diff options
author | Case Duckworth | 2021-03-30 11:58:37 -0500 |
---|---|---|
committer | Case Duckworth | 2021-03-30 11:58:37 -0500 |
commit | 82dcdbb459db9a398ad249b259c18f26458cf90c (patch) | |
tree | 1b18baac9293674e512d61ea007d6d85cbbfc4b7 /lisp | |
parent | Add autoloads to `:acdw/map' and `:acdw/leader' (diff) | |
download | emacs-82dcdbb459db9a398ad249b259c18f26458cf90c.tar.gz emacs-82dcdbb459db9a398ad249b259c18f26458cf90c.zip |
Fix arrayp bug in `acdw-modeline/vc-branch'
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-modeline.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index a364cef..c7b904f 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -65,7 +65,7 @@ indicator in the mode-line." | |||
65 | 65 | ||
66 | ;; from https://www.gonsie.com/blorg/modeline.html, from Doom | 66 | ;; from https://www.gonsie.com/blorg/modeline.html, from Doom |
67 | (defun acdw-modeline/vc-branch () | 67 | (defun acdw-modeline/vc-branch () |
68 | (let ((backend (vc-backend buffer-file-name))) | 68 | (if-let ((backend (vc-backend buffer-file-name))) |
69 | (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2)))) | 69 | (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2)))) |
70 | 70 | ||
71 | ;; from gonsie | 71 | ;; from gonsie |