[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117062: Remove unneeded prompt "Buffer ... still ha
From: |
Jarek Czekalski |
Subject: |
[Emacs-diffs] trunk r117062: Remove unneeded prompt "Buffer ... still has clients" |
Date: |
Mon, 05 May 2014 07:38:15 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117062
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16548
committer: Jarek Czekalski <address@hidden>
branch nick: emacs-bzr
timestamp: Mon 2014-05-05 09:35:50 +0200
message:
Remove unneeded prompt "Buffer ... still has clients"
* server.el (server-start): Remove the only call to:
(server-kill-buffer-query-function): Remove.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/server.el server.el-20091113204419-o5vbwnq5f7feedwu-107
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-05-04 23:49:33 +0000
+++ b/lisp/ChangeLog 2014-05-05 07:35:50 +0000
@@ -1,3 +1,10 @@
+2014-05-05 Jarek Czekalski <address@hidden>
+
+ Remove unneeded prompt when closing a buffer with active
+ emacsclient ("Buffer ... still has clients"), #16548.
+ * server.el (server-start): Remove the only call to:
+ (server-kill-buffer-query-function): Remove.
+
2014-05-04 Leo Liu <address@hidden>
* calendar/diary-lib.el (calendar-chinese-month-name-array):
=== modified file 'lisp/server.el'
--- a/lisp/server.el 2014-03-21 01:12:57 +0000
+++ b/lisp/server.el 2014-05-05 07:35:50 +0000
@@ -642,8 +642,6 @@
(cl-letf (((default-file-modes) ?\700))
(add-hook 'suspend-tty-functions 'server-handle-suspend-tty)
(add-hook 'delete-frame-functions 'server-handle-delete-frame)
- (add-hook 'kill-buffer-query-functions
- 'server-kill-buffer-query-function)
(add-hook 'kill-emacs-query-functions
'server-kill-emacs-query-function)
(add-hook 'kill-emacs-hook 'server-force-stop) ;Cleanup upon exit.
@@ -1472,22 +1470,6 @@
(save-buffer)))
(server-buffer-done (current-buffer))))
-;; Ask before killing a server buffer.
-;; It was suggested to release its client instead,
-;; but I think that is dangerous--the client would proceed
-;; using whatever is on disk in that file. -- rms.
-(defun server-kill-buffer-query-function ()
- "Ask before killing a server buffer."
- (or (not server-buffer-clients)
- (let ((res t))
- (dolist (proc server-buffer-clients)
- (when (and (memq proc server-clients)
- (eq (process-status proc) 'open))
- (setq res nil)))
- res)
- (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
- (buffer-name (current-buffer))))))
-
(defun server-kill-emacs-query-function ()
"Ask before exiting Emacs if it has live clients."
(or (not server-clients)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117062: Remove unneeded prompt "Buffer ... still has clients",
Jarek Czekalski <=