From 21df56d56b86b88565ebe9f05f1acbbfd676670f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Nov 2004 07:42:19 +0000 Subject: [PATCH] (cperl-switch-to-doc-buffer): Don't use interactive-p. --- lisp/progmodes/cperl-mode.el | 6 +++--- 1 file 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. =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) -- 2.39.5