Mercurial > emacs
comparison lisp/files.el @ 19145:68b212facca8
(basic-save-buffer-1): Add missing argument for error.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 Aug 1997 18:56:42 +0000 |
| parents | e18ca4290312 |
| children | 4bfebbf0f6a8 |
comparison
equal
deleted
inserted
replaced
| 19144:842869692447 | 19145:68b212facca8 |
|---|---|
| 2139 (if (not (file-writable-p buffer-file-name)) | 2139 (if (not (file-writable-p buffer-file-name)) |
| 2140 (let ((dir (file-name-directory buffer-file-name))) | 2140 (let ((dir (file-name-directory buffer-file-name))) |
| 2141 (if (not (file-directory-p dir)) | 2141 (if (not (file-directory-p dir)) |
| 2142 (if (file-exists-p dir) | 2142 (if (file-exists-p dir) |
| 2143 (error "%s is not a directory" dir) | 2143 (error "%s is not a directory" dir) |
| 2144 (error "%s: no such directory")) | 2144 (error "%s: no such directory" buffer-file-name)) |
| 2145 (if (not (file-exists-p buffer-file-name)) | 2145 (if (not (file-exists-p buffer-file-name)) |
| 2146 (error "Directory %s write-protected" dir) | 2146 (error "Directory %s write-protected" dir) |
| 2147 (if (yes-or-no-p | 2147 (if (yes-or-no-p |
| 2148 (format "File %s is write-protected; try to save anyway? " | 2148 (format "File %s is write-protected; try to save anyway? " |
| 2149 (file-name-nondirectory | 2149 (file-name-nondirectory |