From e0fcb483b1ede6bb046c4c72ab0e9c8d924f219e Mon Sep 17 00:00:00 2001 From: jenchieh Date: Sun, 21 Jul 2019 22:57:27 +0800 Subject: Use walk window. --- feebleline.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'feebleline.el') diff --git a/feebleline.el b/feebleline.el index c391019..4c54c21 100644 --- a/feebleline.el +++ b/feebleline.el @@ -157,12 +157,10 @@ window-divider-default-places (quote bottom-only)) (window-divider-mode t) (setq-default mode-line-format nil) - (mapc (lambda (frame) - (mapc (lambda (window) + (walk-windows (lambda (window) (with-selected-window window (setq mode-line-format nil))) - (window-list frame))) - (frame-list))) + nil t)) (defun feebleline-legacy-settings-on () "Some default settings for EMACS < 25." @@ -240,12 +238,10 @@ Returns a pair with desired column and string." ;; Deactivation: (set-face-attribute 'mode-line nil :height 1.0) (setq-default mode-line-format feebleline--mode-line-format-previous) - (mapc (lambda (frame) - (mapc (lambda (window) + (walk-windows (lambda (window) (with-selected-window window (setq mode-line-format feebleline--mode-line-format-previous))) - (window-list frame))) - (frame-list)) + nil t) (cancel-timer feebleline--msg-timer) (remove-hook 'focus-in-hook 'feebleline--insert-ignore-errors) (force-mode-line-update) -- cgit v1.2.3