alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-utils.el: improve mu4e-quit-buffer (bury-buffer)

Browse Source
This commit is contained in:
djcb
2012-06-12 00:15:06 +03:00
parent 46a6b445b3
commit a4bef96620
1 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
emacs/mu4e-utils.el
View File

@ -779,14 +779,18 @@ is ignored."
(defun mu4e-quit-buffer () (defun mu4e-quit-buffer ()
"Bury the current buffer (and delete all windows displaying it)." "Bury the current buffer (and delete all windows displaying it)."
(interactive) (interactive)
(walk-windows (let ((buf (current-buffer)))
;; kill any window that: (walk-windows
;; a) displays the current buffer ;; kill any window that:
;; b) is not the only win ;; a) displays the current buffer
(lambda (win) ;; b) is not the only win
(when (eq (window-buffer win) (current-buffer)) (lambda (win)
(unless (one-window-p t) (when (eq (window-buffer win) (current-buffer))
(unless (one-window-p t)
(delete-window win)))) nil t)
;; if current buffer is still here, bury it
(when (eq buf (current-buffer))
(bury-buffer)))) (bury-buffer))))