Function: consult-info--buffer

consult-info--buffer is a byte-compiled function defined in consult-info.el.

Signature

(consult-info--buffer MANUAL INIT)

Documentation

Make preview buffer for MANUAL and call INIT.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20261004.957/consult-info.el
(defun consult-info--buffer (manual init)
  "Make preview buffer for MANUAL and call INIT."
  (let (buf)
    (unwind-protect
        (with-current-buffer (setq buf (generate-new-buffer
                                        (format "*info-%s*" manual)))
          (let (Info-history Info-history-list Info-history-forward)
            (Info-mode)
            (Info-find-node manual "Top")
            (setq consult-info--manual (concat "(" manual ")"))
            (and (ignore-errors (funcall init))
                 (prog1 buf
                   (consult--preview-rename-buffer buf)
                   (setq buf nil)))))
      (when buf (kill-buffer buf)))))