[elpa] externals/consult d8c925b: consult-register: Add support for file values (Fix #449)

[ELPA Syncer]

branch: externals/consult
commit d8c925b9c62cd90ebd0970d944bdc6e0129ecce3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)