diff options
| author | Richard M. Stallman <[email protected]> | 2004-11-01 07:42:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2004-11-01 07:42:19 +0000 |
| commit | 21df56d56b86b88565ebe9f05f1acbbfd676670f (patch) | |
| tree | deed283eb4548a070b88099220870dcd8d8b64a5 | |
| parent | 6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1 (diff) | |
(cperl-switch-to-doc-buffer): Don't use interactive-p.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index e679a48d64..94458df56e 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -6664,11 +6664,11 @@ prototype \&SUB Returns prototype of the function given a reference. =pod Switch from Perl to POD. ") -(defun cperl-switch-to-doc-buffer () +(defun cperl-switch-to-doc-buffer (&optional interactive) "Go to the perl documentation buffer and insert the documentation." - (interactive) + (interactive "p") (let ((buf (get-buffer-create cperl-doc-buffer))) - (if (interactive-p) + (if interactive (switch-to-buffer-other-window buf) (set-buffer buf)) (if (= (buffer-size) 0) |