Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-30 16:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Minor fixes for layout and workspace

Browse source 
* exwm-layout.el (exwm-layout-show-mode-line): Force update mode-line.

* exwm-workspace.el (exwm-workspace--update-minibuffer): Treat nil as empty
string.
This commit is contained in:
Chris Feng 2016-02-26 09:24:15 +08:00
parent 84a9041b20
commit bc4aafec16
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
exwm-layout.el
View file

@ -455,7 +455,8 @@ See also `exwm-layout-enlarge-window'."
(window-mode-line-height (frame-root-window (window-mode-line-height (frame-root-window
exwm--floating-frame))) exwm--floating-frame)))
nil t) nil t)
(exwm-input-grab-keyboard)))) (exwm-input-grab-keyboard))
(force-mode-line-update)))
;;;###autoload ;;;###autoload
(defun exwm-layout-toggle-mode-line () (defun exwm-layout-toggle-mode-line ()

2
exwm-workspace.el
View file

@ -453,7 +453,7 @@ The optional FORCE option is for internal use only."
(setq result (setq result
(+ result (+ result
(ceiling (1+ (length i)) width)))) (ceiling (1+ (length i)) width))))
(split-string (current-message) "\n")) (split-string (or (current-message) "") "\n"))
result) result)
(count-screen-lines)))))) (count-screen-lines))))))
(when (and (integerp max-mini-window-height) (when (and (integerp max-mini-window-height)