diff options
| author | Richard M. Stallman | 1997-04-13 06:12:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-13 06:12:34 +0000 |
| commit | ffdd27965e92a992dba4e752c48f4591359960ff (patch) | |
| tree | 2d07234254f1d3cc72618fe439ed051f8f4d7f9f /lisp | |
| parent | 6811a757a57f886bc9d172164da79903ec901227 (diff) | |
| download | emacs-ffdd27965e92a992dba4e752c48f4591359960ff.tar.gz emacs-ffdd27965e92a992dba4e752c48f4591359960ff.zip | |
(server-done): If buffer visits no file, don't offer save.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/server.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index 78f10f422df..dcd025b3d03 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -353,6 +353,7 @@ or nil. KILLED is t if we killed the BUFFER (because it was a temp file)." | |||
| 353 | (buffer-backed-up nil)) | 353 | (buffer-backed-up nil)) |
| 354 | (save-buffer)) | 354 | (save-buffer)) |
| 355 | (if (and (buffer-modified-p) | 355 | (if (and (buffer-modified-p) |
| 356 | buffer-file-name | ||
| 356 | (y-or-n-p (concat "Save file " buffer-file-name "? "))) | 357 | (y-or-n-p (concat "Save file " buffer-file-name "? "))) |
| 357 | (save-buffer buffer))) | 358 | (save-buffer buffer))) |
| 358 | (server-buffer-done buffer))))) | 359 | (server-buffer-done buffer))))) |