diff options
Diffstat (limited to 'orderless-kwd.el')
| -rw-r--r-- | orderless-kwd.el | 7 |
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") |