diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-modeline.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index a9020c5..adfcb44 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -33,9 +33,7 @@ Otherwise, cdr should be a function that takes two points (see `count-words')." | |||
33 | 33 | ||
34 | (defun acdw-modeline/buffer-name () ; gonsie | 34 | (defun acdw-modeline/buffer-name () ; gonsie |
35 | "Display the buffer name in a face reflecting its modified status." | 35 | "Display the buffer name in a face reflecting its modified status." |
36 | (propertize (concat " " | 36 | (propertize (concat (format " %-20s" (truncate-string 20 (buffer-name) "~"))) |
37 | (truncate-string (/ (window-total-width) 2) | ||
38 | (buffer-name) "~")) | ||
39 | 'face 'bold | 37 | 'face 'bold |
40 | ;; (if (buffer-modified-p) | 38 | ;; (if (buffer-modified-p) |
41 | ;; 'font-lock-warning-face | 39 | ;; 'font-lock-warning-face |