From cc5a104d66d63d09015cb9a26eb43ec1fafa5bc2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 8 Sep 2006 11:58:46 +0000 Subject: [PATCH] (risky-local-variable-p): Match ...-bindat-spec. --- lisp/files.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index a96ba9776ef..642bd2d9372 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2696,8 +2696,8 @@ It is dangerous if either of these conditions are met: * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\", \"program\", \"command(s)\", \"predicate(s)\", \"frame-alist\", - \"mode-alist\", \"font-lock-(syntactic-)keyword*\", or - \"map-alist\"." + \"mode-alist\", \"font-lock-(syntactic-)keyword*\", + \"map-alist\", or \"bindat-spec\"." ;; If this is an alias, check the base name. (condition-case nil (setq sym (indirect-variable sym)) @@ -2706,7 +2706,7 @@ It is dangerous if either of these conditions are met: (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|\ -commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords\ -[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|\ --map$\\|-map-alist$" (symbol-name sym)))) +-map$\\|-map-alist$\\|-bindat-spec$" (symbol-name sym)))) (defun hack-one-local-variable-quotep (exp) (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp)))) -- 2.39.2