[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/files.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/files.el [lexbind] |
Date: |
Thu, 20 Nov 2003 19:36:36 -0500 |
Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.583.2.2 emacs/lisp/files.el:1.583.2.3
*** emacs/lisp/files.el:1.583.2.2 Tue Oct 14 19:51:03 2003
--- emacs/lisp/files.el Thu Nov 20 19:36:03 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/files.el [lexbind],
Miles Bader <=