diff options
| author | Richard M. Stallman | 2004-11-01 07:42:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-01 07:42:19 +0000 |
| commit | 21df56d56b86b88565ebe9f05f1acbbfd676670f (patch) | |
| tree | deed283eb4548a070b88099220870dcd8d8b64a5 | |
| parent | 6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1 (diff) | |
| download | emacs-21df56d56b86b88565ebe9f05f1acbbfd676670f.tar.gz emacs-21df56d56b86b88565ebe9f05f1acbbfd676670f.zip | |
(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 e679a48d642..94458df56e8 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. | |||
| 6664 | =pod Switch from Perl to POD. | 6664 | =pod Switch from Perl to POD. |
| 6665 | ") | 6665 | ") |
| 6666 | 6666 | ||
| 6667 | (defun cperl-switch-to-doc-buffer () | 6667 | (defun cperl-switch-to-doc-buffer (&optional interactive) |
| 6668 | "Go to the perl documentation buffer and insert the documentation." | 6668 | "Go to the perl documentation buffer and insert the documentation." |
| 6669 | (interactive) | 6669 | (interactive "p") |
| 6670 | (let ((buf (get-buffer-create cperl-doc-buffer))) | 6670 | (let ((buf (get-buffer-create cperl-doc-buffer))) |
| 6671 | (if (interactive-p) | 6671 | (if interactive |
| 6672 | (switch-to-buffer-other-window buf) | 6672 | (switch-to-buffer-other-window buf) |
| 6673 | (set-buffer buf)) | 6673 | (set-buffer buf)) |
| 6674 | (if (= (buffer-size) 0) | 6674 | (if (= (buffer-size) 0) |