Mercurial > emacs
comparison lisp/files.el @ 76140:bebed32eb12f
(hack-one-local-variable-eval-safep): Correct handling
of edebug-form-spec property value. Reported by Johan Bockgrd
<bojohan+mail@dd.chalmers.se>.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 25 Feb 2007 09:24:11 +0000 |
| parents | 732f9b589f8e |
| children | ec75921d5b7b dd7c098af727 |
comparison
equal
deleted
inserted
replaced
| 76139:1cd9f0d1c35a | 76140:bebed32eb12f |
|---|---|
| 2785 ((eq prop 'edebug-form-spec) | 2785 ((eq prop 'edebug-form-spec) |
| 2786 ;; Only allow indirect form specs. | 2786 ;; Only allow indirect form specs. |
| 2787 ;; During bootstrapping, edebug-basic-spec might not be | 2787 ;; During bootstrapping, edebug-basic-spec might not be |
| 2788 ;; defined yet. | 2788 ;; defined yet. |
| 2789 (and (fboundp 'edebug-basic-spec) | 2789 (and (fboundp 'edebug-basic-spec) |
| 2790 (edebug-basic-spec val)))))) | 2790 (hack-one-local-variable-quotep val) |
| 2791 (edebug-basic-spec (nth 1 val))))))) | |
| 2791 ;; Allow expressions that the user requested. | 2792 ;; Allow expressions that the user requested. |
| 2792 (member exp safe-local-eval-forms) | 2793 (member exp safe-local-eval-forms) |
| 2793 ;; Certain functions can be allowed with safe arguments | 2794 ;; Certain functions can be allowed with safe arguments |
| 2794 ;; or can specify verification functions to try. | 2795 ;; or can specify verification functions to try. |
| 2795 (and (symbolp (car exp)) | 2796 (and (symbolp (car exp)) |