From f215a02f44f5dd04f597e6db5a02af74ead095be Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 25 Feb 2007 09:24:29 +0000 Subject: [PATCH] =?utf8?q?(hack-one-local-variable-eval-safep):=20Correct?= =?utf8?q?=20handling=20of=20edebug-form-spec=20property=20value.=20=20Rep?= =?utf8?q?orted=20by=20Johan=20Bockg=C3=A5rd=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 6 ++++++ lisp/files.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * files.el (hack-one-local-variable-eval-safep): Correct handling + of edebug-form-spec property value. Reported by Johan Bockg,Ae(Brd + . + 2007-02-25 Carsten Dominik * 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 -- 2.39.5