diff options
| author | Richard M. Stallman | 2007-03-19 05:40:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-03-19 05:40:20 +0000 |
| commit | 87c60260974f799ae48d3bb304dc8d840543ff4d (patch) | |
| tree | cd632e07b0b53b5c22299444bf5c9eeba87613d1 | |
| parent | ab863ac2631ff3c3256913deb57a69d07ae3ec9c (diff) | |
| download | emacs-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.el | 3 |
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 |