6664 |
=pod Switch from Perl to POD. |
=pod Switch from Perl to POD. |
6665 |
") |
") |
6666 |
|
|
6667 |
(defun cperl-switch-to-doc-buffer () |
(defun cperl-switch-to-doc-buffer (&optional interactive) |
6668 |
"Go to the perl documentation buffer and insert the documentation." |
"Go to the perl documentation buffer and insert the documentation." |
6669 |
(interactive) |
(interactive "p") |
6670 |
(let ((buf (get-buffer-create cperl-doc-buffer))) |
(let ((buf (get-buffer-create cperl-doc-buffer))) |
6671 |
(if (interactive-p) |
(if interactive |
6672 |
(switch-to-buffer-other-window buf) |
(switch-to-buffer-other-window buf) |
6673 |
(set-buffer buf)) |
(set-buffer buf)) |
6674 |
(if (= (buffer-size) 0) |
(if (= (buffer-size) 0) |