From b486a098cb1969341daf73eb96b106cd52fa2b32 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 29 May 2006 05:47:29 +0000 Subject: (hack-one-local-variable-eval-safep): Don't burp if used during bootstrapping. --- lisp/files.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/files.el') 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 -- cgit v1.2.1