diff options
author | Chong Yidong <[email protected]> | 2009-06-29 03:25:10 +0000 |
---|---|---|
committer | Chong Yidong <[email protected]> | 2009-06-29 03:25:10 +0000 |
commit | 2d25aa5a909ceb40b8ddacc04caf6a9c90d13522 (patch) | |
tree | 237a1883802da0c69739c49d35b283e3db05ea84 /lisp/server.el | |
parent | 347f3cd3dd418025e2137f3c0b8dc9e32a991b31 (diff) |
* server.el (server-buffer-done): Prevent kill-buffer from
prompting by clearing the buffer modification flag (Bug#3696).
Diffstat (limited to 'lisp/server.el')
-rw-r--r-- | lisp/server.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index 10b08ad4a3..e06fb030e7 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1202,10 +1202,15 @@ FOR-KILLING if non-nil indicates that we are called from `kill-buffer'." (not server-existing-buffer))) (setq killed t) (bury-buffer buffer) + ;; Prevent kill-buffer from prompting (Bug#3696). + (with-current-buffer buffer + (set-buffer-modified-p nil)) (kill-buffer buffer)) (unless killed (if (server-temp-file-p buffer) (progn + (with-current-buffer buffer + (set-buffer-modified-p nil)) (kill-buffer buffer) (setq killed t)) (bury-buffer buffer))))))) |