diff options
| -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) |