 If the frame has a fringe, it will absorb the newline.
 Otherwise, we reduce the line length by a one-character offset."
   (let* ((window (get-buffer-window deft-buffer))
-         (offset (if (> (frame-fringe-width) 0) 0 1)))
+         (offset (if (> (fringe-columns 'right) 0) 0 1)))
     (when window
       (- (window-text-width window) offset))))
 

       :link link
       :description title))))

(org-add-link-type
 "deft"
 (lambda (handle)
   (org-open-file-with-emacs
    (expand-file-name handle deft-directory))))

(add-hook 'org-store-link-functions 'org-deft-store-link)



;;; Org-link

(declare-function org-store-link-props "org")
(declare-function org-add-link-type "org")
(declare-function org-open-file-with-emacs "org")

(defun org-deft-store-link ()
  "Store the Deft widget at point as an org-mode link."
  (when (equal major-mode 'deft-mode)
    (let ((link (concat "deft:" (substring (deft-filename-at-point)
                                           (1+ (length deft-directory)))))
