From fe2faa6992f845ca39a6757db473c8cffbabd73d Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Wed, 6 Mar 2024 17:59:15 +0100
Subject: Add orderless-kwd-read-only

---
 orderless-kwd.el | 7 +++++++
 1 file changed, 7 insertions(+)

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")
-- 
cgit v1.0