[elpa] externals/consult 2d9b9f368b 1/2: Emacs 29: Support buffer register type

[ELPA Syncer]

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

    Emacs 29: Support buffer register type
---
 consult-register.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/consult-register.el b/consult-register.el
index dbfb9ed586..b68c023ab6 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -38,6 +38,7 @@
     (?t . "Frameset")
     (?k . "Kmacro")
     (?f . "File")
+    (?b . "Buffer")
     (?w . "Window"))
   "Register type names.
 Each element of the list must have the form \\='(char . name).")
@@ -84,6 +85,11 @@ Each element of the list must have the form \\='(char . 
name).")
   (list (propertize (abbreviate-file-name (cdr val)) 'face 'consult-file)
         'consult--type ?f 'multi-category `(file . ,(cdr val))))
 
+(cl-defmethod consult-register--describe ((val (head buffer)))
+  "Describe buffer register VAL."
+  (list (propertize (cdr val) 'face 'consult-buffer)
+        'consult--type ?f 'multi-category `(buffer . ,(cdr val))))
+
 (cl-defmethod consult-register--describe ((val (head file-query)))
   "Describe file-query register VAL."
   (list (format "%s at position %d"