# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1157716726 0
# Node ID 3c10728bc06465887ed79fb90c3c8387d48e8acc
# Parent  28b70fec32848c70583019c012d153060091b1ff
(risky-local-variable-p): Match ...-bindat-spec.

diff -r 28b70fec3284 -r 3c10728bc064 lisp/files.el
--- a/lisp/files.el	Fri Sep 08 11:58:18 2006 +0000
+++ b/lisp/files.el	Fri Sep 08 11:58:46 2006 +0000
@@ -2696,8 +2696,8 @@
 
  * 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 @@
       (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))))