about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-modeline.el4
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