diff options
| -rw-r--r-- | battery-conf.el | 3 | ||||
| -rw-r--r-- | modeline.el | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/battery-conf.el b/battery-conf.el index 2781eda..271db2e 100644 --- a/battery-conf.el +++ b/battery-conf.el @@ -44,7 +44,8 @@ The following %-sequences are provided: (ignore-errors (call-process "pmset" nil t nil "-g" "ps")) (goto-char (point-min)) (when (re-search-forward "\\(?:Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" nil t) - (setq power-source (match-string 1)) + ;; One letter suffices + (setq power-source (substring (match-string 1) 0 1)) (when (re-search-forward "^ -InternalBattery-0\\([ \t]+(id=[0-9]+)\\)*[ \t]+" nil t) (when (looking-at "\\([0-9]\\{1,3\\}\\)%") (setq load-percentage (match-string 1)) diff --git a/modeline.el b/modeline.el index 2a0ca37..2d95adf 100644 --- a/modeline.el +++ b/modeline.el @@ -308,7 +308,7 @@ MAP is the local keymap of the text." mode-line-column-line-number-mode-map)) ;;;###autoload -(defvar modeline-minor-modes-name-len-max 20 +(defvar modeline-minor-modes-name-len-max 150 "The maximal length for the display of minor modes in the mode line.") ;;;###autoload @@ -374,7 +374,7 @@ Modified for my custom mode line." (advice-add 'mouse-minor-mode-menu :override #'durand-mouse-minor-mode-menu) ;;;###autoload -(defvar modeline-buffer-name-len-max 50 +(defvar modeline-buffer-name-len-max 40 "The maximal length of the name of the buffer to be displayed in the mode line.") (let ((map (make-sparse-keymap))) |