diff options
Diffstat (limited to 'lisp/acdw-modeline.el')
-rw-r--r-- | lisp/acdw-modeline.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index ccc07cb..6131484 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -32,7 +32,9 @@ | |||
32 | 32 | ||
33 | (defun acdw-modeline/erc () | 33 | (defun acdw-modeline/erc () |
34 | "ERC indicator for the modeline." | 34 | "ERC indicator for the modeline." |
35 | (when (boundp 'erc-modified-channels-object) | 35 | (when (and (boundp 'erc-modified-channels-object) |
36 | (not (bound-and-true-p org-clock-current-task)) | ||
37 | ) | ||
36 | (format-mode-line erc-modified-channels-object))) | 38 | (format-mode-line erc-modified-channels-object))) |
37 | 39 | ||
38 | (defun acdw-modeline/god-mode-indicator () | 40 | (defun acdw-modeline/god-mode-indicator () |
@@ -116,6 +118,6 @@ Uses `acdw-modeline/word-count-modes' to determine which function to use." | |||
116 | #'count-words)) | 118 | #'count-words)) |
117 | (min (if (region-active-p) (region-beginning) (point-min))) | 119 | (min (if (region-active-p) (region-beginning) (point-min))) |
118 | (max (if (region-active-p) (region-end) (point-max)))) | 120 | (max (if (region-active-p) (region-end) (point-max)))) |
119 | (format "%dW" (funcall fn min max))))) | 121 | (format " %dW" (funcall fn min max))))) |
120 | 122 | ||
121 | (provide 'acdw-modeline) | 123 | (provide 'acdw-modeline) |