mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 04:02:51 +00:00
New variables to skip confirmation for elisp/shell links.
* 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:
parent
18c1bcf645
commit
ae8d522a6c
16
lisp/org.el
16
lisp/org.el
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue