diff options
| author | jenchieh <jcs090218@gmail.com> | 2019-07-21 22:57:27 +0800 |
|---|---|---|
| committer | jenchieh <jcs090218@gmail.com> | 2019-07-21 22:57:27 +0800 |
| commit | e0fcb483b1ede6bb046c4c72ab0e9c8d924f219e (patch) | |
| tree | 99effe1553b264e3a1eb0d18f8db927e4fb2a431 | |
| parent | 65881deed5c3a0747739e366aea9ff93a5c5c6af (diff) | |
Use walk window.
| -rw-r--r-- | feebleline.el | 12 |
1 files changed, 4 insertions, 8 deletions
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) |