neale
/
rcirc
mirror of https://github.com/nealey/rcirc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix called-interactively-p for emacs 23.1.1

This commit is contained in:
Neale Pickett 2010-10-01 12:46:41 -06:00
parent aeab4c5009
commit 0a9e78132c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rcirc.el
View File

@ -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)