mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(hack-one-local-variable): Silently execute eval

Browse Source 
if the form is a put of a harmless property with harmless args.
This commit is contained in:
Richard M. Stallman 1994-04-30 04:29:23 +00:00
parent cac76c6929
commit d0bd3513be
1 changed files with 28 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lisp/files.el
View File

@ -1111,6 +1111,9 @@ If `enable-local-variables' is nil, this function does not check for a
(put 'minor-mode-map-alist 'risky-local-variable t)
(put 'after-load-alist 'risky-local-variable t)
(defun hack-one-local-variable-quotep (exp)
(and (consp exp) (eq (car exp) 'quote) (consp (cdr exp))))
;; "Set" one variable in a local variables spec.
;; A few variable names are treated specially.
(defun hack-one-local-variable (var val)
@ -1124,17 +1127,31 @@ If `enable-local-variables' is nil, this function does not check for a
((or (get var 'risky-local-variable)
(string-match "-hooks?$\\|-functions?$\\|-forms?$"
(symbol-name var)))
(if (and (not (string= (user-login-name) "root"))
(or (eq enable-local-eval t)
(and enable-local-eval
(save-window-excursion
(switch-to-buffer (current-buffer))
(save-excursion
(beginning-of-line)
(set-window-start (selected-window) (point)))
(setq enable-local-eval
(y-or-n-p (format "Process `eval' or hook local variables in file %s? "
(file-name-nondirectory buffer-file-name))))))))
;; Permit evaling a put of a harmless property
;; if the args do nothing tricky.
(if (or (and (eq var 'eval)
(consp val)
(eq (car val) 'put)
(hack-one-local-variable-quotep (nth 1 val))
(hack-one-local-variable-quotep (nth 2 val))
;; Only allow safe values of lisp-indent-hook;
;; not functions.
(or (numberp (nth 3 val))
(eq (nth 3 val) 'defun))
(memq (nth 1 (nth 2 val))
'(lisp-indent-hook)))
;; Permit eval if not root and user says ok.
(and (not (string= (user-login-name) "root"))
(or (eq enable-local-eval t)
(and enable-local-eval
(save-window-excursion
(switch-to-buffer (current-buffer))
(save-excursion
(beginning-of-line)
(set-window-start (selected-window) (point)))
(setq enable-local-eval
(y-or-n-p (format "Process `eval' or hook local variables in file %s? "
(file-name-nondirectory buffer-file-name)))))))))
(if (eq var 'eval)
(save-excursion (eval val))
(make-local-variable var)