diff options
| -rw-r--r-- | feebleline.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/feebleline.el b/feebleline.el index bf3faba..06ee7a2 100644 --- a/feebleline.el +++ b/feebleline.el @@ -202,10 +202,12 @@ Returns a pair with desired column and string." (with-current-buffer feebleline--minibuf (erase-buffer) (let* ((left-string (string-join (reverse left))) + (message-truncate-lines t) + (max-mini-window-height 1) (right-string (string-join (reverse right))) (free-space (- (window-width) (length left-string) (length right-string))) (padding (make-string (max 0 free-space) ?\ ))) - (insert (concat left-string padding right-string))))))) + (insert (concat left-string (if right-string (concat padding right-string))))))))) (defun feebleline--clear-echo-area () "Erase echo area." @@ -224,17 +226,17 @@ Returns a pair with desired column and string." (setq feebleline--mode-line-format-previous mode-line-format) (setq feebleline--msg-timer (run-with-timer 0 feebleline-timer-interval - 'feebleline--insert)) + 'feebleline--insert-ignore-errors)) (if feebleline-use-legacy-settings (feebleline-legacy-settings-on) (feebleline-default-settings-on)) - (add-hook 'focus-in-hook 'feebleline--insert)) + (add-hook 'focus-in-hook 'feebleline--insert-ignore-errors)) ;; Deactivation: (set-face-attribute 'mode-line nil :height 1.0) (setq-default mode-line-format feebleline--mode-line-format-previous) (setq mode-line-format feebleline--mode-line-format-previous) (cancel-timer feebleline--msg-timer) - (remove-hook 'focus-in-hook 'feebleline--insert) + (remove-hook 'focus-in-hook 'feebleline--insert-ignore-errors) (force-mode-line-update) (redraw-display) (feebleline--clear-echo-area))) |