/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.555 by rms, Mon Mar 18 04:30:45 2002 UTC revision 1.556 by rms, Thu Mar 28 18:26:07 2002 UTC
# Line 1895  is specified, returning t if it is speci Line 1895  is specified, returning t if it is speci
1895  (put 'ignored-local-variables 'risky-local-variable t)  (put 'ignored-local-variables 'risky-local-variable t)
1896  (put 'eval 'risky-local-variable t)  (put 'eval 'risky-local-variable t)
1897  (put 'file-name-handler-alist 'risky-local-variable t)  (put 'file-name-handler-alist 'risky-local-variable t)
1898    (put 'minor-mode-alist 'risky-local-variable t)
1899  (put 'minor-mode-map-alist 'risky-local-variable t)  (put 'minor-mode-map-alist 'risky-local-variable t)
1900    (put 'minor-mode-overriding-map-alist 'risky-local-variable t)
1901    (put 'overriding-local-map 'risky-local-variable t)
1902    (put 'overriding-terminal-local-map 'risky-local-variable t)
1903    (put 'auto-mode-alist 'risky-local-variable t)
1904  (put 'after-load-alist 'risky-local-variable t)  (put 'after-load-alist 'risky-local-variable t)
1905  (put 'buffer-file-name 'risky-local-variable t)  (put 'buffer-file-name 'risky-local-variable t)
1906    (put 'buffer-undo-list 'risky-local-variable t)
1907  (put 'buffer-auto-save-file-name 'risky-local-variable t)  (put 'buffer-auto-save-file-name 'risky-local-variable t)
1908  (put 'buffer-file-truename 'risky-local-variable t)  (put 'buffer-file-truename 'risky-local-variable t)
1909    (put 'default-text-properties 'risky-local-variable t)
1910  (put 'exec-path 'risky-local-variable t)  (put 'exec-path 'risky-local-variable t)
1911  (put 'load-path 'risky-local-variable t)  (put 'load-path 'risky-local-variable t)
1912  (put 'exec-directory 'risky-local-variable t)  (put 'exec-directory 'risky-local-variable t)
# Line 1910  is specified, returning t if it is speci Line 1917  is specified, returning t if it is speci
1917  (put 'outline-level 'risky-local-variable t)  (put 'outline-level 'risky-local-variable t)
1918  (put 'rmail-output-file-alist 'risky-local-variable t)  (put 'rmail-output-file-alist 'risky-local-variable t)
1919  (put 'font-lock-defaults 'risky-local-variable t)  (put 'font-lock-defaults 'risky-local-variable t)
1920    (put 'special-display-buffer-names 'risky-local-variable t)
1921    (put 'frame-title-format 'risky-local-variable t)
1922    (put 'global-mode-string 'risky-local-variable t)
1923    (put 'header-line-format 'risky-local-variable t)
1924    (put 'icon-title-format 'risky-local-variable t)
1925    (put 'input-method-alist 'risky-local-variable t)
1926    (put 'vc-mode 'risky-local-variable t)
1927    (put 'imenu-generic-expression 'risky-local-variable t)
1928    (put 'imenu-index-alist 'risky-local-variable t)
1929    (put 'standard-input 'risky-local-variable t)
1930    (put 'standard-output 'risky-local-variable t)
1931    (put 'unread-command-events 'risky-local-variable t)
1932    (put 'max-lisp-eval-depth 'risky-local-variable t)
1933    (put 'max-specpdl-size 'risky-local-variable t)
1934    
1935  ;; This one is safe because the user gets to check it before it is used.  ;; This one is safe because the user gets to check it before it is used.
1936  (put 'compile-command 'safe-local-variable t)  (put 'compile-command 'safe-local-variable t)
# Line 1919  is specified, returning t if it is speci Line 1940  is specified, returning t if it is speci
1940    
1941  (defun hack-one-local-variable (var val)  (defun hack-one-local-variable (var val)
1942    "\"Set\" one variable in a local variables spec.    "\"Set\" one variable in a local variables spec.
1943  A few variable names are treated specially."  A few patterns are specified so that any name which matches one
1944    is considered risky."
1945    (cond ((eq var 'mode)    (cond ((eq var 'mode)
1946           (funcall (intern (concat (downcase (symbol-name val))           (funcall (intern (concat (downcase (symbol-name val))
1947                                    "-mode"))))                                    "-mode"))))
# Line 1932  A few variable names are treated special Line 1954  A few variable names are treated special
1954          ;; Likewise for setting hook variables.          ;; Likewise for setting hook variables.
1955          ((or (get var 'risky-local-variable)          ((or (get var 'risky-local-variable)
1956               (and               (and
1957                (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$"                (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"
1958                              (symbol-name var))                              (symbol-name var))
1959                (not (get var 'safe-local-variable))))                (not (get var 'safe-local-variable))))
1960           ;; Permit evalling a put of a harmless property.           ;; Permit evalling a put of a harmless property.

Legend:
Removed from v.1.555  
changed lines
  Added in v.1.556

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26