Function: register-preview

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

Signature

(register-preview BUFFER &optional SHOW-EMPTY PRED)

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. Optional argument PRED specifies the types of register to show; if it is nil, show all the 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 pred)
  "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.
Optional argument PRED specifies the types of register to show;
if it is nil, show all the registers.
Format of each entry is controlled by the variable `register-preview-function'."
  (let ((registers (register-of-type-alist pred)))
    (when (or show-empty (consp registers))
      (with-current-buffer-window
        buffer
        register-preview-display-buffer-alist
        nil
        (with-current-buffer standard-output
          (setq cursor-in-non-selected-windows nil)
          (dolist (elem (sort registers :key #'car))
            (when (cdr elem)
              (let ((beg (point)))
                (insert (funcall register-preview-function elem))
                (put-text-property beg (point)
                                   'register--name (car elem))))))))))