From 0a9e78132c863a8f2c5062fc2120e6ea43bc5de0 Mon Sep 17 00:00:00 2001 From: Neale Pickett Date: Fri, 1 Oct 2010 12:46:41 -0600 Subject: [PATCH] Fix called-interactively-p for emacs 23.1.1 --- rcirc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rcirc.el b/rcirc.el index e1b3a3f..c6b86a4 100644 --- a/rcirc.el +++ b/rcirc.el @@ -2115,7 +2115,7 @@ activity. Only run if the buffer is not visible and "Display list of names in CHANNEL or in current channel if CHANNEL is nil. If called interactively, prompt for a channel when prefix arg is supplied." (interactive "P") - (if (called-interactively-p 'interactive) + (if (called-interactively-p) (if channel (setq channel (read-string "List names in channel: " target)))) (let ((channel (if (> (length channel) 0) @@ -2127,7 +2127,7 @@ If called interactively, prompt for a channel when prefix arg is supplied." "List TOPIC for the TARGET channel. With a prefix arg, prompt for new topic." (interactive "P") - (if (and (called-interactively-p 'interactive) topic) + (if (and (called-interactively-p) topic) (setq topic (read-string "New Topic: " rcirc-topic))) (rcirc-send-string process (concat "TOPIC " target (when (> (length topic) 0)