summary refs log tree commit diff stats
path: root/lisp/+modeline.el
diff options
context:
space:
mode:
authorCase Duckworth2022-01-14 17:20:23 -0600
committerCase Duckworth2022-01-14 17:20:23 -0600
commit4b2e57e396314e63d70558e0aa5ad32c1cf87532 (patch)
treebcd7ccb4c2fac92f7b93702e2c9ec5fa21e4a068 /lisp/+modeline.el
parentMerge branch 'main' of https://tildegit.org/acdw/emacs (diff)
downloademacs-4b2e57e396314e63d70558e0aa5ad32c1cf87532.tar.gz
emacs-4b2e57e396314e63d70558e0aa5ad32c1cf87532.zip
David Bowie
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r--lisp/+modeline.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 3d7b6b7..7683269 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -61,7 +61,9 @@ This function makes a lambda, so you can throw it straight into
61 "Display the buffer name." 61 "Display the buffer name."
62 (concat (or spacer +modeline-default-spacer) 62 (concat (or spacer +modeline-default-spacer)
63 (propertize 63 (propertize
64 (+string-align (buffer-name) 20 :ellipsis nil) 64 (truncate-string-to-width (buffer-name)
65 (min 24 (/ (window-width) 3))
66 nil ?\ t)
65 'help-echo (or (buffer-file-name) 67 'help-echo (or (buffer-file-name)
66 (buffer-name)) 68 (buffer-name))
67 'mouse-face 'mode-line-highlight))) 69 'mouse-face 'mode-line-highlight)))