Function: register-preview

register-preview is a byte-compiled function defined in register.el.gz.

Signature

(register-preview BUFFER &optional SHOW-EMPTY)

Documentation

Pop up a window showing the preview of registers in BUFFER.

If SHOW-EMPTY is non-nil, show the preview window even if no registers. Format of each entry is controlled by the variable register-preview-function.

Source Code

;; Defined in /usr/src/emacs/lisp/register.el.gz
(defun register-preview (buffer &optional show-empty)
  "Pop up a window showing the preview of registers in BUFFER.
If SHOW-EMPTY is non-nil, show the preview window even if no registers.
Format of each entry is controlled by the variable `register-preview-function'."
  (unless register-preview-function
    (setq register-preview-function (register--preview-function
                                     register--read-with-preview-function)))
  (when (or show-empty (consp register-alist))
    (with-current-buffer-window buffer
        register-preview-display-buffer-alist
        nil
      (with-current-buffer standard-output
        (setq cursor-in-non-selected-windows nil)
        (mapc (lambda (elem)
                (when (get-register (car elem))
                  (insert (funcall register-preview-function elem))))
              register-alist)))))