Function: cperl-info-buffer

cperl-info-buffer is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-info-buffer TYPE)

Documentation

Return buffer with documentation. Create if missing.

If TYPE, this vars buffer. Special care is taken to not stomp over an existing info buffer

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-info-buffer (type)
  "Return buffer with documentation.  Create if missing.
If TYPE, this vars buffer.
Special care is taken to not stomp over an existing info buffer"
  (let* ((bname (if type "*info-perl-var*" "*info-perl*"))
	 (info (get-buffer bname))
	 (oldbuf (get-buffer "*info*")))
    (if info info
      (save-window-excursion
	;; Get Info running
	(require 'info)
	(cond (oldbuf
	       (set-buffer oldbuf)
	       (rename-buffer "*info-perl-tmp*")))
	(save-window-excursion
	  (info))
	(Info-find-node cperl-info-page (if type "perlvar" "perlfunc"))
	(set-buffer "*info*")
	(rename-buffer bname)
	(cond (oldbuf
	       (set-buffer "*info-perl-tmp*")
	       (rename-buffer "*info*")
	       (set-buffer bname)))
        (setq-local window-min-height 2)
	(current-buffer)))))