commit 9d4c4f95f7561d72d6baf4518b8a5dbe29751b0d parent 2b79c20fc741be7cab3126f6001295579042bfeb Author: andsy10 <andsy1016@gmail.com> Date: Tue, 22 Sep 2026 19:18:18 +0800 Fix consult register preview Diffstat:
| M | lisp/init-completion.el | | | 15 | +++++++++++++-- |
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/lisp/init-completion.el b/lisp/init-completion.el @@ -96,14 +96,25 @@ value of the selected COLOR." (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help) ;; xref - (setq xref-show-definitions-function #'consult-xref) - (setq xref-show-xrefs-function #'consult-xref) + (setq xref-show-definitions-function #'consult-xref + xref-show-xrefs-function #'consult-xref) ;; register (setq register-preview-delay 0.5 register-preview-function #'consult-register-format) (advice-add #'register-preview :override #'consult-register-window) + (with-eval-after-load 'consult-register + (cl-defmethod consult-register--describe ((val (head buffer))) + "Describe buffer register VAL." + (let* ((buf (cdr val)) + (dead (and (bufferp buf) (not (buffer-live-p buf)))) + (name (cond ((bufferp buf) (or (buffer-name buf) "#<killed buffer>")) + ((stringp buf) buf) + (t "#<invalid>")))) + (list (propertize name 'face (if dead 'error 'consult-buffer)) + 'consult--type ?f 'multi-category `(buffer . ,buf))))) + ;; delete unused buffer sources (delete 'consult-source-bookmark consult-buffer-sources)