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

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

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6180d2d7415..6cc6088f170 100644
--- 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,Ae(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 6d5b101d3c1..adec33ef77b 100644
--- 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