From: Andreas Schwab <schwab@suse.de>
Date: Sun, 25 Feb 2007 09:24:29 +0000 (+0000)
Subject: (hack-one-local-variable-eval-safep): Correct handling
X-Git-Tag: emacs-pretest-22.0.95~120
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f215a02f44f5dd04f597e6db5a02af74ead095be;p=emacs.git

(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 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