(hack-one-local-variable-eval-safep): Correct handling

of edebug-form-spec property value.  Reported by Johan Bockgård
<bojohan+mail@dd.chalmers.se>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6180d2d7415a2ee8c64cc7aaa8a7995ef8b33205..6cc6088f170d17f98984988dc749d11627d89ff9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-02-25  Andreas Schwab  <schwab@suse.de>
+
+       * files.el (hack-one-local-variable-eval-safep): Correct handling
+       of edebug-form-spec property value.  Reported by Johan Bockg\e,Ae\e(Brd
+       <bojohan+mail@dd.chalmers.se>.
+
 2007-02-25  Carsten Dominik  <dominik@science.uva.nl>
 
        * textmodes/org.el (org-table-overlay-coordinates)

diff --git a/lisp/files.el b/lisp/files.el
index 6d5b101d3c177871c13da72193db7222282046a6..adec33ef77ba8e143a82c262ed2e1826403b1fe4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2787,7 +2787,8 @@ It is dangerous if either of these conditions are met:
                    ;; During bootstrapping, edebug-basic-spec might not be
                    ;; defined yet.
                     (and (fboundp 'edebug-basic-spec)
-                         (edebug-basic-spec val))))))
+                        (hack-one-local-variable-quotep val)
+                         (edebug-basic-spec (nth 1 val)))))))
       ;; Allow expressions that the user requested.
       (member exp safe-local-eval-forms)
       ;; Certain functions can be allowed with safe arguments