Don't allow functions that display messages in unsafep.
* emacs-lisp/unsafep.el: Don't mark functions that display messages as safe. Suggested by Johan Bockgård.
This commit is contained in:
parent
5419963b85
commit
a8c41b4c0d
2 changed files with 8 additions and 5 deletions
|
@ -101,15 +101,13 @@ in the parse.")
|
|||
(dolist (x '(;;Special forms
|
||||
and catch if or prog1 prog2 progn while unwind-protect
|
||||
;;Safe subrs that have some side-effects
|
||||
ding error message minibuffer-message random read-minibuffer
|
||||
signal sleep-for string-match throw y-or-n-p yes-or-no-p
|
||||
ding error random signal sleep-for string-match throw
|
||||
;;Defsubst functions from subr.el
|
||||
caar cadr cdar cddr
|
||||
;;Macros from subr.el
|
||||
save-match-data unless when with-temp-message
|
||||
save-match-data unless when
|
||||
;;Functions from subr.el that have side effects
|
||||
read-passwd split-string replace-regexp-in-string
|
||||
play-sound-file))
|
||||
split-string replace-regexp-in-string play-sound-file))
|
||||
(put x 'safe-function t))
|
||||
|
||||
;;;###autoload
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue