Преглед изворни кода

Better fix for link problem, use Liam's idea

Carsten Dominik пре 15 година
родитељ
комит
7f79007e52
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      lisp/org-id.el

+ 1 - 1
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