Currently if I do 'C-c l' (org-store-link) on the top line of a dired
buffer, I get:
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
expand-file-name(nil)
(abbreviate-file-name (expand-file-name (dired-get-filename nil t)))
This simple patch suggests that instead of signaling an error, the
default directory is used. (I've not removed the trailing / from the
directory name, as I prefer that on the link name to indicate directory
- but that can be deleted.)
Thanks, Stephen
2010-02-01 Stephen Eglen <step...@gnu.org>
* org.el (org-store-link): For dired buffers, use
default-directory as link name if dired-get-filename returns
nil.
*** /tmp/ediff11782xez 2010-02-01 15:17:48.000000000 +0000
--- /home/stephen/langs/emacs/elisp-ds/org-mode/lisp/org.el 2010-02-01
15:17:45.000000000 +0000
***************
*** 7669,7679 ****
((eq major-mode 'dired-mode)
;; link to the file in the current line
! (setq cpltxt (concat "file:"
! (abbreviate-file-name
! (expand-file-name
! (dired-get-filename nil t))))
! link (org-make-link cpltxt)))
((and buffer-file-name (org-mode-p))
(setq custom-id (ignore-errors (org-entry-get nil "CUSTOM_ID")))
--- 7669,7682 ----
((eq major-mode 'dired-mode)
;; link to the file in the current line
! (let ((file (dired-get-filename nil t)))
! (setq file (if file
! (abbreviate-file-name
! (expand-file-name (dired-get-filename nil t)))
! ;; otherwise, no file so use current directory.
! default-directory))
! (setq cpltxt (concat "file:" file)
! link (org-make-link cpltxt))))
((and buffer-file-name (org-mode-p))
(setq custom-id (ignore-errors (org-entry-get nil "CUSTOM_ID")))
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
