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. "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." If called interactively, prompt for a channel when prefix arg is supplied."
(interactive "P") (interactive "P")
(if (called-interactively-p 'interactive) (if (called-interactively-p)
(if channel (if channel
(setq channel (read-string "List names in channel: " target)))) (setq channel (read-string "List names in channel: " target))))
(let ((channel (if (> (length channel) 0) (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. "List TOPIC for the TARGET channel.
With a prefix arg, prompt for new topic." With a prefix arg, prompt for new topic."
(interactive "P") (interactive "P")
(if (and (called-interactively-p 'interactive) topic) (if (and (called-interactively-p) topic)
(setq topic (read-string "New Topic: " rcirc-topic))) (setq topic (read-string "New Topic: " rcirc-topic)))
(rcirc-send-string process (concat "TOPIC " target (rcirc-send-string process (concat "TOPIC " target
(when (> (length topic) 0) (when (> (length topic) 0)