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

New variables to skip confirmation for elisp/shell links.

Browse source 
* org.el (org-confirm-shell-link-not-regexp)
(org-confirm-elisp-link-not-regexp): New custom variables.
(org-open-at-point): Use the new custom variables.
This commit is contained in:
Bastien Guerry 2011-03-05 10:08:19 +01:00
parent 18c1bcf645
commit ae8d522a6c
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/org.el
View file

@ -1587,6 +1587,11 @@ single keystroke rather than having to type \"yes\"."
'safe-local-variable
'(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
(defcustom org-confirm-shell-link-not-regexp ""
"A regexp to skip confirmation for shell links."
:group 'org-link-follow
:type 'regexp)
(defcustom org-confirm-elisp-link-function 'yes-or-no-p
"Non-nil means ask for confirmation before executing Emacs Lisp links.
Elisp links can be dangerous: just think about a link
@ -1607,6 +1612,11 @@ single keystroke rather than having to type \"yes\"."
'safe-local-variable
'(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
(defcustom org-confirm-elisp-link-not-regexp ""
"A regexp to skip confirmation for Elisp links."
:group 'org-link-follow
:type 'regexp)
(defconst org-file-apps-defaults-gnu
'((remote . emacs)
(system . mailcap)
@ -9314,7 +9324,8 @@ application the system uses for this file type."
((string= type "shell")
(let ((cmd path))
(if (or (not org-confirm-shell-link-function)
(if (or (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? "
(org-add-props cmd nil
@ -9326,7 +9337,8 @@ application the system uses for this file type."
((string= type "elisp")
(let ((cmd path))
(if (or (not org-confirm-elisp-link-function)
(if (or (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? "
(org-add-props cmd nil