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 registers preview in BUFFER.

If SHOW-EMPTY is non-nil, show the 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 registers preview in BUFFER.
If SHOW-EMPTY is non-nil, show the window even if no registers.
Format of each entry is controlled by the variable `register-preview-function'."
  (when (or show-empty (consp register-alist))
    (with-current-buffer-window
     buffer
     (cons 'display-buffer-below-selected
	   '((window-height . fit-window-to-buffer)
	     (preserve-size . (nil . t))))
     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)))))