diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-05-29 05:47:29 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-05-29 05:47:29 +0000 |
| commit | b486a098cb1969341daf73eb96b106cd52fa2b32 (patch) | |
| tree | 7e4ddc784bf86778c34457a2de6787626ceac8f4 /lisp/files.el | |
| parent | bb7a346faa03a6703dd7b4dcd10dfc8bcaa5d143 (diff) | |
| download | emacs-b486a098cb1969341daf73eb96b106cd52fa2b32.tar.gz | |
(hack-one-local-variable-eval-safep): Don't burp if used
during bootstrapping.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 8ecd57a4d24..9f15e35e987 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2689,7 +2689,10 @@ It is dangerous if either of these conditions are met: (or (numberp val) (equal val ''defun))) ((eq prop 'edebug-form-spec) ;; Only allow indirect form specs. - (edebug-basic-spec val))))) + ;; During bootstrapping, edebug-basic-spec might not be + ;; defined yet. + (and (fboundp 'edebug-basic-spec) + (edebug-basic-spec val)))))) ;; Allow expressions that the user requested. (member exp safe-local-eval-forms) ;; Certain functions can be allowed with safe arguments |