summaryrefslogtreecommitdiff
path: root/modally.el
diff options
context:
space:
mode:
Diffstat (limited to 'modally.el')
-rw-r--r--modally.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/modally.el b/modally.el
index 084c5c4..13cb17f 100644
--- a/modally.el
+++ b/modally.el
@@ -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