[elpa] externals/consult 4892007505: Handle buffer handles in register-alist

[ELPA Syncer]

branch: externals/consult
commit 48920075058421dde0592c7702ed84e9fa2ffb5d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    Handle buffer handles in register-alist
---
 consult-register.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult-register.el b/consult-register.el
index 6508a5eb8a..07df495732 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -89,8 +89,9 @@ Each element of the list must have the form (char . name).")
 
 (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))))
+  (let ((buf (cdr val)))
+    (list (propertize (if (bufferp buf) (buffer-name buf) buf) 'face 
'consult-buffer)
+          'consult--type ?f 'multi-category `(buffer . ,buf))))
 
 (cl-defmethod consult-register--describe ((val (head file-query)))
   "Describe file-query register VAL."