Mercurial > emacs

changeset 76561:ac5d4367be3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(default-directory): Mark safe. (basic-save-buffer-2): Put proper dir name in error message.
author Richard M. Stallman <rms@gnu.org>
date Mon, 19 Mar 2007 05:40:20 +0000
parents b8e7b9e517f7
children 4eed412c4d44
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Mar 19 05:37:58 2007 +0000
+++ b/lisp/files.el	Mon Mar 19 05:40:20 2007 +0000
@@ -2445,6 +2445,7 @@
 (mapc (lambda (pair)
 	(put (car pair) 'safe-local-variable (cdr pair)))
       '((buffer-read-only                . booleanp) ;; C source code
+	(default-directory               . stringp)  ;; C source code
 	(fill-column                     . integerp) ;; C source code
 	(indent-tabs-mode                . booleanp) ;; C source code
 	(left-margin                     . integerp) ;; C source code
@@ -3681,7 +3682,7 @@
 	  (if (not (file-directory-p dir))
 	      (if (file-exists-p dir)
 		  (error "%s is not a directory" dir)
-		(error "%s: no such directory" buffer-file-name))
+		(error "%s: no such directory" dir))
 	    (if (not (file-exists-p buffer-file-name))
 		(error "Directory %s write-protected" dir)
 	      (if (yes-or-no-p