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

* mu4e-utils: don't use `walk-windows' when manipulating them

Browse Source
This commit is contained in:
djcb
2012-06-23 18:14:49 +03:00
parent 75dbcda4c2
commit 5a731ea624
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
emacs/mu4e-utils.el
View File

@ -62,6 +62,7 @@ dir already existed, or has been created, nil otherwise."
(t nil))) (t nil)))
(defun mu4e-format (frm &rest args) (defun mu4e-format (frm &rest args)
"Create [mu4e]-prefixed string based on format FRM and ARGS." "Create [mu4e]-prefixed string based on format FRM and ARGS."
(concat "[" mu4e-logo "] " (apply 'format frm args))) (concat "[" mu4e-logo "] " (apply 'format frm args)))
@ -827,13 +828,15 @@ is ignored."
"Bury mu4e-buffers (main, headers, view) (and delete all windows "Bury mu4e-buffers (main, headers, view) (and delete all windows
displaying it). Do _not_ bury the current buffer, though." displaying it). Do _not_ bury the current buffer, though."
(interactive) (interactive)
(let ((curbuf (current-buffer))) (let ((curbuf (current-buffer)))
(walk-windows ;; note: 'walk-windows' does not seem to work correctly when modifying
;; windows; therefore, the doloops here
(dolist (frame (frame-list))
(dolist (win (window-list frame nil)) (dolist (win (window-list frame nil))
(with-current-buffer (window-buffer win) (with-current-buffer (window-buffer win)
(unless (eq curbuf (current-buffer)) (unless (eq curbuf (current-buffer))
(when (member major-mode '(mu4e-headers-mode mu4e-view-mode)) (when (member major-mode '(mu4e-headers-mode mu4e-view-mode))
(unless (one-window-p t) (unless (one-window-p t)
(delete-window win))))))) nil t)) (delete-window win))))))) nil t))