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 |