diff options
| author | Case Duckworth | 2021-09-02 23:51:52 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-02 23:51:52 -0500 |
| commit | 7fd88a804b98ae1af6ef743e95c0beea83028d9f (patch) | |
| tree | 3e50aabbdba8f7f71fbcb2d2ad02a362568d2b41 | |
| parent | Change to acdw/make-password-fetcher (diff) | |
| download | emacs-7fd88a804b98ae1af6ef743e95c0beea83028d9f.tar.gz emacs-7fd88a804b98ae1af6ef743e95c0beea83028d9f.zip | |
Change modified indicator in special modes
| -rw-r--r-- | lisp/acdw-modeline.el | 9 |
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.") |