Function: consult-register-window

consult-register-window is an autoloaded and byte-compiled function defined in consult-register.el.

Signature

(consult-register-window BUFFER &optional SHOW-EMPTY PRED)

Documentation

Enhanced drop-in replacement for register-preview.

BUFFER is the window buffer. SHOW-EMPTY must be t if the window should be shown for an empty register list. Optional argument PRED specifies the types of register to show.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult-register.el
;;;###autoload
(defun consult-register-window (buffer &optional show-empty pred)
  "Enhanced drop-in replacement for `register-preview'.

BUFFER is the window buffer.
SHOW-EMPTY must be t if the window should be shown for an empty register list.
Optional argument PRED specifies the types of register to show."
  (let ((regs (consult-register--alist 'noerror pred)))
    (when (or show-empty regs)
      (with-current-buffer-window buffer
          (cons 'display-buffer-at-bottom
                '((window-height . fit-window-to-buffer)
                  (preserve-size . (nil . t))))
          nil
        (setq-local cursor-in-non-selected-windows nil
                    mode-line-format nil
                    truncate-lines t
                    window-min-height 1
                    window-resize-pixelwise t
                    scroll-margin 0)
        (insert (mapconcat #'consult-register-format regs))))))