Commit 04d807e6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(hack-one-local-variable): Variables named ...-predicate are treated as risky.

(write-file): Omit directory part when making default file name.
parent 6b0cc1b5
......@@ -1616,7 +1616,7 @@ is specified, returning t if it is specified."
;; Likewise for setting hook variables.
((or (get var 'risky-local-variable)
(and
(string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$"
(string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$"
(symbol-name var))
(not (get var 'safe-local-variable))))
;; Permit evalling a put of a harmless property.
......@@ -1789,7 +1789,7 @@ Interactively, confirmation is required unless you supply a prefix argument."
(read-file-name "Write file: "
(cdr (assq 'default-directory
(buffer-local-variables)))
nil nil (buffer-name)))
nil nil (file-name-nondirectory (buffer-name))))
(not current-prefix-arg)))
(or (null filename) (string-equal filename "")
(progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment