Mercurial > emacs

changeset 21327:01870b9b4f2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hack-one-local-variable): Variables named ...-predicate are treated as risky. (write-file): Omit directory part when making default file name.
author Richard M. Stallman <rms@gnu.org>
date Wed, 01 Apr 1998 03:44:50 +0000
parents 8150549598cc
children d5ffccfcea21
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Tue Mar 31 20:14:55 1998 +0000
+++ b/lisp/files.el	Wed Apr 01 03:44:50 1998 +0000
@@ -1616,7 +1616,7 @@
 	;; 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 @@
 	   (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