mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Don't allow functions that display messages in unsafep.

Browse Source 
* emacs-lisp/unsafep.el: Don't mark functions that display
messages as safe.  Suggested by Johan Bockgård.
This commit is contained in:
Chong Yidong 2010-10-18 13:28:20 -04:00
parent 5419963b85
commit a8c41b4c0d
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-10-18 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/unsafep.el: Don't mark functions that display
messages as safe. Suggested by Johan Bockgård.
2010-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion--replace): Move point where it belongs

8
lisp/emacs-lisp/unsafep.el
View File

@ -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