diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/mairix.el | 2 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 18 |
2 files changed, 12 insertions, 8 deletions
diff --git a/lisp/net/mairix.el b/lisp/net/mairix.el index 360b2286b7b..a8e969a18c5 100644 --- a/lisp/net/mairix.el +++ b/lisp/net/mairix.el @@ -659,7 +659,7 @@ Fill in VALUES if based on an article." " containing the word)\n" " substring= to match words containing the substring\n" " substring=N to match words containing the substring, allowing\n" - " up to N errors(mising/extra/different letters)\n" + " up to N errors(missing/extra/different letters)\n" " ^substring= to match the substring at the beginning of a word.\n")) (widget-insert "Whitespace will be converted to ',' (i.e. AND). Use '/' for OR.\n\n") diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 1c74e6190dc..d09b6aa831f 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2165,13 +2165,17 @@ CHANNELS is a comma- or space-separated string of channel names." (let ((channel (if (> (length channel) 0) channel target))) (rcirc-send-string process (concat "PART " channel " :" rcirc-id-string)))) -(defun-rcirc-command quit (reason) - "Send a quit message to server with REASON." - (interactive "sQuit reason: ") - (rcirc-send-string process (concat "QUIT :" - (if (not (zerop (length reason))) - reason - rcirc-id-string)))) +(defun-rcirc-command quit (reason all) + "Send a quit message to server with REASON. +When called with prefix, quit all servers." + (interactive "sQuit reason: \nP") + (dolist (p (if all + (rcirc-process-list) + (list process))) + (rcirc-send-string p (concat "QUIT :" + (if (not (zerop (length reason))) + reason + rcirc-id-string))))) (defun-rcirc-command nick (nick) "Change nick to NICK." |