ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bug when using org-confirm-shell/elisp-link-not-regexp.

This commit is contained in:
Bastien Guerry 2011-03-05 11:36:15 +01:00
parent 4369d4f9a3
commit 9a7f9eda3c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -9324,7 +9324,8 @@ application the system uses for this file type."
((string= type "shell") ((string= type "shell")
(let ((cmd path)) (let ((cmd path))
(if (or (string-match org-confirm-shell-link-not-regexp cmd) (if (or (and (not (zerop (length org-confirm-shell-link-not-regexp)))
(string-match org-confirm-shell-link-not-regexp cmd))
(not org-confirm-shell-link-function) (not org-confirm-shell-link-function)
(funcall org-confirm-shell-link-function (funcall org-confirm-shell-link-function
(format "Execute \"%s\" in shell? " (format "Execute \"%s\" in shell? "
@ -9337,7 +9338,8 @@ application the system uses for this file type."
((string= type "elisp") ((string= type "elisp")
(let ((cmd path)) (let ((cmd path))
(if (or (string-match org-confirm-elisp-link-not-regexp cmd) (if (or (and (not (zerop (length org-confirm-elisp-link-not-regexp)))
(string-match org-confirm-elisp-link-not-regexp cmd))
(not org-confirm-elisp-link-function) (not org-confirm-elisp-link-function)
(funcall org-confirm-elisp-link-function (funcall org-confirm-elisp-link-function
(format "Execute \"%s\" as elisp? " (format "Execute \"%s\" as elisp? "