summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-02 23:51:52 -0500
committerCase Duckworth2021-09-02 23:51:52 -0500
commit7fd88a804b98ae1af6ef743e95c0beea83028d9f (patch)
tree3e50aabbdba8f7f71fbcb2d2ad02a362568d2b41
parentChange to acdw/make-password-fetcher (diff)
downloademacs-7fd88a804b98ae1af6ef743e95c0beea83028d9f.tar.gz
emacs-7fd88a804b98ae1af6ef743e95c0beea83028d9f.zip
Change modified indicator in special modes
-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.")