branch: externals/consult
commit d8c925b9c62cd90ebd0970d944bdc6e0129ecce3
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-register: Add support for file values (Fix #449)
---
consult-register.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/consult-register.el b/consult-register.el
index 089fb6d..873cbde 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -28,11 +28,12 @@
(defcustom consult-register-narrow
`((?n "Number" ,#'numberp)
(?s "String" ,#'stringp)
+ (?p "Point" ,#'markerp)
(?r "Rectangle" ,(lambda (x) (stringp (car-safe x))))
;; frameset-register-p and kmacro-register-p exists since 27.1
- (?f "Frameset" ,(lambda (x) (eq (type-of x) 'frameset-register)))
+ (?t "Frameset" ,(lambda (x) (eq (type-of x) 'frameset-register)))
(?k "Kmacro" ,(lambda (x) (eq (type-of x) 'kmacro-register)))
- (?p "Point" ,(lambda (x) (or (markerp x) (eq (car-safe x) 'file-query))))
+ (?f "File" ,(lambda (x) (memq (car-safe x) '(file file-query))))
(?w "Window" ,(lambda (x) (window-configuration-p (car-safe x)))))
"Register narrowing configuration.
@@ -96,6 +97,9 @@ This function can be used as `register-preview-function'."
(format "%s at position %d"
(propertize (abbreviate-file-name (cadr val)) 'face
'consult-file)
(caddr val)))
+ ;; Display 'file
+ ((eq (car-safe val) 'file)
+ (propertize (abbreviate-file-name (cdr val)) 'face 'consult-file))
;; Display full line of buffer
((and (markerp val) (marker-buffer val))
(with-current-buffer (marker-buffer val)
