[elpa] externals/consult 8083f7f314: Assign the consult-location category to marker registers

[ELPA Syncer]

branch: externals/consult
commit 8083f7f314e2d0bd5a4d424bf9b2cb2950f4310b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Assign the consult-location category to marker registers
    
    cc @oantolin
---
 consult-register.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/consult-register.el b/consult-register.el
index 4ac736fc66..6bafebab3d 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -68,11 +68,12 @@ Each element of the list must have the form '(char . 
name).")
       (save-excursion
         (widen)
         (goto-char val)
-        (list
-         (consult--format-location
-          (buffer-name) (line-number-at-pos)
-          (consult--line-with-cursor val))
-         'consult--type ?p)))))
+        (let* ((line (line-number-at-pos))
+               (str (propertize (consult--line-with-cursor val)
+                                'consult-location (cons val line))))
+          (list (consult--format-location (buffer-name) line str)
+                'multi-category `(consult-location . ,str)
+                'consult--type ?p))))))
 
 (cl-defmethod consult-register--describe ((val kmacro-register))
   "Describe kmacro register VAL."