branch: externals/consult
commit 8083f7f314e2d0bd5a4d424bf9b2cb2950f4310b
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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."
