summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--modally.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/modally.el b/modally.el
index 13cb17f..734535a 100644
--- a/modally.el
+++ b/modally.el
@@ -40,11 +40,12 @@
(defun modally--read-only-status ()
"Return a string to display read-only status."
- (format "%s %s"
- (if buffer-read-only
- (propertize " RO" 'face (if (mode-line-window-selected-p)
- 'warning))
- " RW")
+ (format " %s %s"
+ (propertize
+ (if buffer-read-only "RO" "RW")
+ 'face (when (and (mode-line-window-selected-p)
+ buffer-read-only)
+ 'modally-buffer-readonly))
(modally--separator)))
(defun modally--buffer-name ()