# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1174282820 0
# Node ID ac5d4367be3a88660796d8531bc7693ddc43a61f
# Parent  b8e7b9e517f796311102e4d8c9e5c191015fb973
(default-directory): Mark safe.
(basic-save-buffer-2): Put proper dir name in error message.

diff -r b8e7b9e517f7 -r ac5d4367be3a lisp/files.el
--- 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