From 87c60260974f799ae48d3bb304dc8d840543ff4d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 19 Mar 2007 05:40:20 +0000 Subject: [PATCH] (default-directory): Mark safe. (basic-save-buffer-2): Put proper dir name in error message. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index 02b50123a50..cfbbff029b6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2445,6 +2445,7 @@ asking you for confirmation." (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 @@ Before and after saving the buffer, this function runs (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 -- 2.39.5