Add orderless-kwd-read-only

1 files changed, 7 insertions, 0 deletions

diff --git a/orderless-kwd.el b/orderless-kwd.el
index 6812bfb..076f464 100644
--- a/orderless-kwd.el
+++ b/orderless-kwd.el
@@ -63,6 +63,7 @@
     (val ,#'orderless-kwd-value)
     (dif ,#'orderless-kwd-modified t)
     (key ,#'orderless-kwd-key t)
+    (ro  ,#'orderless-kwd-read-only t)
     (off ,#'orderless-kwd-off t)
     (on  ,#'orderless-kwd-on t))
   "Keyword dispatcher alist.
@@ -166,6 +167,12 @@ as a flag and does not require input."
     (when-let ((buf (orderless-kwd--get-buffer str)))
       (buffer-modified-p buf))))
 
+(defun orderless-kwd-read-only (_)
+  "Match read-only buffers."
+  (lambda (str)
+    (when-let ((buf (orderless-kwd--get-buffer str)))
+      (buffer-local-value 'buffer-read-only buf))))
+
 (defun orderless-kwd-mode (pred regexp)
   "Match buffer mode or bookmark type against PRED and REGEXP."
   (declare-function bookmark-prop-get "bookmark")