diff options
| author | Richard M. Stallman | 2006-09-08 11:58:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-09-08 11:58:46 +0000 |
| commit | cc5a104d66d63d09015cb9a26eb43ec1fafa5bc2 (patch) | |
| tree | bdad144ecca2927d972be21904d0fe5af5ee06d3 | |
| parent | ddcfebf1ae00930dfa46339dca83f45628140df5 (diff) | |
| download | emacs-cc5a104d66d63d09015cb9a26eb43ec1fafa5bc2.tar.gz emacs-cc5a104d66d63d09015cb9a26eb43ec1fafa5bc2.zip | |
(risky-local-variable-p): Match ...-bindat-spec.
| -rw-r--r-- | lisp/files.el | 6 |
1 files 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: | |||
| 2696 | 2696 | ||
| 2697 | * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\", | 2697 | * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\", |
| 2698 | \"program\", \"command(s)\", \"predicate(s)\", \"frame-alist\", | 2698 | \"program\", \"command(s)\", \"predicate(s)\", \"frame-alist\", |
| 2699 | \"mode-alist\", \"font-lock-(syntactic-)keyword*\", or | 2699 | \"mode-alist\", \"font-lock-(syntactic-)keyword*\", |
| 2700 | \"map-alist\"." | 2700 | \"map-alist\", or \"bindat-spec\"." |
| 2701 | ;; If this is an alias, check the base name. | 2701 | ;; If this is an alias, check the base name. |
| 2702 | (condition-case nil | 2702 | (condition-case nil |
| 2703 | (setq sym (indirect-variable sym)) | 2703 | (setq sym (indirect-variable sym)) |
| @@ -2706,7 +2706,7 @@ It is dangerous if either of these conditions are met: | |||
| 2706 | (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|\ | 2706 | (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|\ |
| 2707 | -commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords\ | 2707 | -commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords\ |
| 2708 | -[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|\ | 2708 | -[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|\ |
| 2709 | -map$\\|-map-alist$" (symbol-name sym)))) | 2709 | -map$\\|-map-alist$\\|-bindat-spec$" (symbol-name sym)))) |
| 2710 | 2710 | ||
| 2711 | (defun hack-one-local-variable-quotep (exp) | 2711 | (defun hack-one-local-variable-quotep (exp) |
| 2712 | (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp)))) | 2712 | (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp)))) |