mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(hack-one-local-variable): Treat ...-hook(s) and ..-function(s)

Browse Source 
like setting the `eval' variable.
This commit is contained in:
Richard M. Stallman 1993-06-10 21:31:56 +00:00
parent c2225d0026
commit 7d3221d7e3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/files.el
View File

@ -1011,7 +1011,9 @@ If `enable-local-variables' is nil, this function does not check for a
((memq var ignored-local-variables)
nil)
;; "Setting" eval means either eval it or do nothing.
((eq var 'eval)
;; Likewise for setting hook variables.
((or (eq var 'eval)
(string-match "-hooks?$\\|-functions?$" (symbol-name var)))
(if (and (not (string= (user-login-name) "root"))
(or (eq enable-local-eval t)
(and enable-local-eval
@ -1021,9 +1023,12 @@ If `enable-local-variables' is nil, this function does not check for a
(beginning-of-line)
(set-window-start (selected-window) (point)))
(setq enable-local-eval
(y-or-n-p (format "Process `eval' local variable in file %s? "
(y-or-n-p (format "Process `eval' or hook local variables in file %s? "
(file-name-nondirectory buffer-file-name))))))))
(save-excursion (eval val))
(if (eq var 'eval)
(save-excursion (eval val))
(make-local-variable var)
(set var val))
(message "Ignoring `eval:' in file's local variables")))
;; Ordinary variable, really set it.
(t (make-local-variable var)