[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.560 emacs/lisp/files.el:1.561
*** emacs/lisp/files.el:1.560   Tue Apr  2 18:14:26 2002
--- emacs/lisp/files.el Thu Apr  4 16:19:32 2002
***************
*** 1934,1939 ****
--- 1934,1945 ----
  (put 'unread-command-events 'risky-local-variable t)
  (put 'max-lisp-eval-depth 'risky-local-variable t)
  (put 'max-specpdl-size 'risky-local-variable t)
+ (put 'mode-line-format 'risky-local-variable t)
+ (put 'mode-line-modified 'risky-local-variable t)
+ (put 'mode-line-mule-info 'risky-local-variable t)
+ (put 'mode-line-buffer-identification 'risky-local-variable t)
+ (put 'mode-line-modes 'risky-local-variable t)
+ (put 'mode-line-position 'risky-local-variable t)
  
  ;; This one is safe because the user gets to check it before it is used.
  (put 'compile-command 'safe-local-variable t)
***************
*** 1957,1963 ****
        ;; Likewise for setting hook variables.
        ((or (get var 'risky-local-variable)
             (and
!             (string-match 
"-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$\\|^mode-line"
                            (symbol-name var))
              (not (get var 'safe-local-variable))))
         ;; Permit evalling a put of a harmless property.
--- 1963,1969 ----
        ;; Likewise for setting hook variables.
        ((or (get var 'risky-local-variable)
             (and
!             (string-match 
"-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$"
                            (symbol-name var))
              (not (get var 'safe-local-variable))))
         ;; Permit evalling a put of a harmless property.