Better fix for link problem, use Liam's idea

2010-11-02 23:07:47 +01:00 · 2010-11-02 23:07:47 +01:00 · 7f79007e52
parent 739e17e055
commit 7f79007e52
1 changed files with 1 additions and 1 deletions
--- a/lisp/org-id.el
+++ b/lisp/org-id.el
@ -600,7 +600,7 @@ optional argument MARKERP, return the position as a new marker."
 (defun org-id-store-link ()
  "Store a link to the current entry, using its ID."
  (interactive)
-  (when (org-mode-p)
+  (when (and (buffer-file-name (buffer-base-buffer)) (org-mode-p))
    (let* ((link (org-make-link "id:" (org-id-get-create)))
 	   (case-fold-search nil)
 	   (desc (save-excursion