diff options
Diffstat (limited to 'lisp/net/rcirc.el')
| -rw-r--r-- | lisp/net/rcirc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index ab9a0ba8b7d..dd6f0f0efac 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2014,7 +2014,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 (interactive-p) + (if (called-interactively-p 'interactive) (if channel (setq channel (read-string "List names in channel: " target)))) (let ((channel (if (> (length channel) 0) @@ -2026,7 +2026,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 (interactive-p) topic) + (if (and (called-interactively-p 'interactive) topic) (setq topic (read-string "New Topic: " rcirc-topic))) (rcirc-send-string process (concat "TOPIC " target (when (> (length topic) 0) |