diff options
Diffstat (limited to 'modally.el')
| -rw-r--r-- | modally.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -41,7 +41,10 @@ (defun modally--read-only-status () "Return a string to display read-only status." (format "%s %s" - (if buffer-read-only " RO" " RW") + (if buffer-read-only + (propertize " RO" 'face (if (mode-line-window-selected-p) + 'warning)) + " RW") (modally--separator))) (defun modally--buffer-name () @@ -49,7 +52,6 @@ (let* ((buffer-face (cond ((not (mode-line-window-selected-p)) 'mode-line-inactive) ((buffer-modified-p) 'modally-buffer-modified) - (buffer-read-only 'modally-buffer-readonly) ('modally-buffer))) (buffer-name (if buffer-file-name |
