about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw-modeline.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 6a11418..44bb889 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -86,7 +86,14 @@ indicator in the mode-line."
86 (let* ((read-only (and buffer-read-only (buffer-file-name))) 86 (let* ((read-only (and buffer-read-only (buffer-file-name)))
87 (modified (buffer-modified-p))) 87 (modified (buffer-modified-p)))
88 (propertize 88 (propertize
89 (if read-only " =" (if modified " +" " -")) 89 (concat " "
90 (cond
91 ((derived-mode-p 'special-mode
92 'lui-mode)
93 "~")
94 (read-only "=")
95 (modified "+")
96 (t "-")))
90 'help-echo (format 97 'help-echo (format
91 (concat "Buffer is %s and %smodified\n" 98 (concat "Buffer is %s and %smodified\n"
92 "mouse-1: Toggle read-only status.") 99 "mouse-1: Toggle read-only status.")