Browse Source

org.el: Fix bug in ̀org-open-at-point'.

* org.el (org-open-at-point): Only set
`clean-buffer-list-kill-buffer-names' when the feature
'midnight has been loaded.

Thanks to François Allisson for reporting this bug.
Bastien Guerry 12 years ago
parent
commit
4f627f86d7
1 changed files with 4 additions and 3 deletions
  1. 4 3
      lisp/org.el

+ 4 - 3
lisp/org.el

@@ -9835,9 +9835,10 @@ application the system uses for this file type."
 				       'face 'org-warning))))
 				       'face 'org-warning))))
 		(progn
 		(progn
 		  (message "Executing %s" cmd)
 		  (message "Executing %s" cmd)
-		  (setq clean-buffer-list-kill-buffer-names
-			(cons buf clean-buffer-list-kill-buffer-names))
-		  (shell-command cmd buf))
+		  (shell-command cmd buf)
+		  (if (featurep 'midnight)
+		      (setq clean-buffer-list-kill-buffer-names
+			    (cons buf clean-buffer-list-kill-buffer-names))))
 	      (error "Abort"))))
 	      (error "Abort"))))
 
 
 	 ((string= type "elisp")
 	 ((string= type "elisp")