summary refs log tree commit diff stats
path: root/lisp/+modeline.el
diff options
context:
space:
mode:
authorCase Duckworth2022-01-04 14:41:46 -0600
committerCase Duckworth2022-01-04 14:41:46 -0600
commit13a3ba026fb29fb9faccca625c41d90769c56db4 (patch)
tree8b8c332ecd770917ed40407599e6b858ffdb2fea /lisp/+modeline.el
parentAdd titlecase-dwim to +casing-map (diff)
downloademacs-13a3ba026fb29fb9faccca625c41d90769c56db4.tar.gz
emacs-13a3ba026fb29fb9faccca625c41d90769c56db4.zip
A few various changes: typos and bugs
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r--lisp/+modeline.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 5f46a75..db3deb4 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -88,10 +88,10 @@ This function makes a lambda, so you can throw it straight into
88(defun +modeline-major-mode (&optional spacer) 88(defun +modeline-major-mode (&optional spacer)
89 "Display the current `major-mode'." 89 "Display the current `major-mode'."
90 (concat (or spacer +modeline-default-spacer) 90 (concat (or spacer +modeline-default-spacer)
91 (propertize (+string-truncate (format-mode-line mode-name) 91 (propertize (+string-truncate (format-mode-line mode-name) 12)
92 12 "~")
93 'face 'bold 92 'face 'bold
94 'keymap mode-line-major-mode-keymap 93 'keymap mode-line-major-mode-keymap
94 'help-echo (concat mode-name " mode\nmouse-1: show menu.")
95 'mouse-face 'mode-line-highlight))) 95 'mouse-face 'mode-line-highlight)))
96 96
97(defcustom +modeline-modified-icon-alist '((ephemeral . "*") 97(defcustom +modeline-modified-icon-alist '((ephemeral . "*")