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

[Luc Teirlinck]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.670 emacs/lisp/files.el:1.671
*** emacs/lisp/files.el:1.670   Mon Oct  6 12:29:50 2003
--- emacs/lisp/files.el Tue Nov  4 23:06:27 2003
***************
*** 2179,2187 ****
  ;; This case is safe because the user gets to check it before it is used.
  (put 'compile-command 'safe-local-variable 'stringp)
  
! (defun risky-local-variable-p (sym val)
    "Non-nil if SYM could be dangerous as a file-local variable with value VAL.
! If VAL is nil, the question is whether any value might be dangerous."
    (let ((safep (get sym 'safe-local-variable)))
      (or (memq sym ignored-local-variables)
        (get sym 'risky-local-variable)
--- 2179,2188 ----
  ;; This case is safe because the user gets to check it before it is used.
  (put 'compile-command 'safe-local-variable 'stringp)
  
! (defun risky-local-variable-p (sym &optional val)
    "Non-nil if SYM could be dangerous as a file-local variable with value VAL.
! If VAL is nil or omitted, the question is whether any value might be
! dangerous."
    (let ((safep (get sym 'safe-local-variable)))
      (or (memq sym ignored-local-variables)
        (get sym 'risky-local-variable)