mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 03:32:51 +00:00
Code Releases Activity

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

Browse source
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")
(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)
(funcall org-confirm-shell-link-function
(format "Execute \"%s\" in shell? "
@ -9337,7 +9338,8 @@ application the system uses for this file type."
((string= type "elisp")
(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)
(funcall org-confirm-elisp-link-function
(format "Execute \"%s\" as elisp? "