From 9b3e808682234b2ed17b90a76b2dd2ae880459db Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Aug 2008 20:46:42 +0000 Subject: [PATCH] (hack-one-local-variable-eval-safep): Handle lisp-indent-function and scheme-indent-function in addition to the deprecated lisp-indent-hook. --- lisp/files.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index ee9f6bb43bc..6e2bcf4486c 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2995,11 +2995,15 @@ It is dangerous if either of these conditions are met: (and (eq (car exp) 'put) (hack-one-local-variable-quotep (nth 1 exp)) (hack-one-local-variable-quotep (nth 2 exp)) - (let ((prop (nth 1 (nth 2 exp))) (val (nth 3 exp))) - (cond ((eq prop 'lisp-indent-hook) - ;; Only allow safe values of lisp-indent-hook; - ;; not functions. - (or (numberp val) (equal val ''defun))) + (let ((prop (nth 1 (nth 2 exp))) + (val (nth 3 exp))) + (cond ((memq prop '(lisp-indent-hook + lisp-indent-function + scheme-indent-function)) + ;; Only allow safe values (not functions). + (or (numberp val) + (and (hack-one-local-variable-quotep val) + (eq (nth 1 val) 'defun)))) ((eq prop 'edebug-form-spec) ;; Only allow indirect form specs. ;; During bootstrapping, edebug-basic-spec might not be -- 2.39.2