diff options
| author | Rob Giardina <rgiar@yahoo.com> | 2019-06-30 14:18:10 -0400 |
|---|---|---|
| committer | Rob Giardina <rgiar@yahoo.com> | 2019-06-30 14:18:10 -0400 |
| commit | a3204b2ccf77a645108f63ccc7e743e5b7bb81fc (patch) | |
| tree | 88161cba4480b8a50bb04c8f221af5b821ac088a | |
| parent | 0230d6e403308c6931a21c9d3485ff5dce167366 (diff) | |
display errors inserting modeline info, once
| -rw-r--r-- | feebleline.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/feebleline.el b/feebleline.el index 5ca1107..64061f0 100644 --- a/feebleline.el +++ b/feebleline.el @@ -93,6 +93,7 @@ (defvar feebleline--home-dir nil) (defvar feebleline--msg-timer) (defvar feebleline--mode-line-format-previous) +(defvar feebleline-last-error-shown nil) (defface feebleline-git-face '((t :foreground "#444444")) "Example face for git branch." @@ -164,12 +165,13 @@ "Some default settings for EMACS < 25." (set-face-attribute 'mode-line nil :height 0.1)) -;; disabled, because we really shouldn't silently fail (defun feebleline--insert-ignore-errors () "Insert stuff into the echo area, ignoring potential errors." (unless (current-message) - (condition-case nil (feebleline--insert) - (error nil)))) + (condition-case err (feebleline--insert) + (error (unless (equal feebleline-last-error-shown err) + (setq feebleline-last-error-shown err) + (message (format "feebleline error: %s" err))))))) (defun feebleline--force-insert () "Insert stuff into the echo area even if it's displaying something." |