diff options
Diffstat (limited to 'battery-conf.el')
-rw-r--r-- | battery-conf.el | 3 |
1 files changed, 2 insertions, 1 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)) |