aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2007-03-19 05:40:20 +0000
committerRichard M. Stallman2007-03-19 05:40:20 +0000
commit87c60260974f799ae48d3bb304dc8d840543ff4d (patch)
treecd632e07b0b53b5c22299444bf5c9eeba87613d1
parentab863ac2631ff3c3256913deb57a69d07ae3ec9c (diff)
downloademacs-87c60260974f799ae48d3bb304dc8d840543ff4d.tar.gz
emacs-87c60260974f799ae48d3bb304dc8d840543ff4d.zip
(default-directory): Mark safe.
(basic-save-buffer-2): Put proper dir name in error message.
-rw-r--r--lisp/files.el3
1 files changed, 2 insertions, 1 deletions
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."
2445(mapc (lambda (pair) 2445(mapc (lambda (pair)
2446 (put (car pair) 'safe-local-variable (cdr pair))) 2446 (put (car pair) 'safe-local-variable (cdr pair)))
2447 '((buffer-read-only . booleanp) ;; C source code 2447 '((buffer-read-only . booleanp) ;; C source code
2448 (default-directory . stringp) ;; C source code
2448 (fill-column . integerp) ;; C source code 2449 (fill-column . integerp) ;; C source code
2449 (indent-tabs-mode . booleanp) ;; C source code 2450 (indent-tabs-mode . booleanp) ;; C source code
2450 (left-margin . integerp) ;; C source code 2451 (left-margin . integerp) ;; C source code
@@ -3681,7 +3682,7 @@ Before and after saving the buffer, this function runs
3681 (if (not (file-directory-p dir)) 3682 (if (not (file-directory-p dir))
3682 (if (file-exists-p dir) 3683 (if (file-exists-p dir)
3683 (error "%s is not a directory" dir) 3684 (error "%s is not a directory" dir)
3684 (error "%s: no such directory" buffer-file-name)) 3685 (error "%s: no such directory" dir))
3685 (if (not (file-exists-p buffer-file-name)) 3686 (if (not (file-exists-p buffer-file-name))
3686 (error "Directory %s write-protected" dir) 3687 (error "Directory %s write-protected" dir)
3687 (if (yes-or-no-p 3688 (if (yes-or-no-p