diff options
| author | Glenn Morris | 2019-10-26 09:55:12 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-10-26 09:55:12 -0700 |
| commit | 8ea63ecdd9b76fbe074bcd6b97ee8400667455a4 (patch) | |
| tree | ef5e3393f58180d1e61a54ce5cb603459610a510 | |
| parent | 045bcdb7c410d4ee7cda1766c76e8bf7df3bf82f (diff) | |
| parent | 55dcd32ad2209dc34bfb6b713bf73be9bf4c4cb2 (diff) | |
| download | emacs-8ea63ecdd9b76fbe074bcd6b97ee8400667455a4.tar.gz emacs-8ea63ecdd9b76fbe074bcd6b97ee8400667455a4.zip | |
Merge from origin/emacs-26
55dcd32 (origin/emacs-26) Fix rcirc not to interpret nil as nickname ...
| -rw-r--r-- | lisp/net/rcirc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 4a94afe0917..a373c7c7d3e 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -827,6 +827,7 @@ Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.") | |||
| 827 | (process-send-string process string))) | 827 | (process-send-string process string))) |
| 828 | 828 | ||
| 829 | (defun rcirc-send-privmsg (process target string) | 829 | (defun rcirc-send-privmsg (process target string) |
| 830 | (cl-check-type target string) | ||
| 830 | (rcirc-send-string process (format "PRIVMSG %s :%s" target string))) | 831 | (rcirc-send-string process (format "PRIVMSG %s :%s" target string))) |
| 831 | 832 | ||
| 832 | (defun rcirc-send-ctcp (process target request &optional args) | 833 | (defun rcirc-send-ctcp (process target request &optional args) |
| @@ -2332,8 +2333,8 @@ With a prefix arg, prompt for new topic." | |||
| 2332 | (let ((timestamp (format-time-string "%s"))) | 2333 | (let ((timestamp (format-time-string "%s"))) |
| 2333 | (rcirc-send-ctcp process target "PING" timestamp))) | 2334 | (rcirc-send-ctcp process target "PING" timestamp))) |
| 2334 | 2335 | ||
| 2335 | (defun rcirc-cmd-me (args &optional process target) | 2336 | (defun rcirc-cmd-me (args process target) |
| 2336 | (rcirc-send-ctcp process target "ACTION" args)) | 2337 | (when target (rcirc-send-ctcp process target "ACTION" args))) |
| 2337 | 2338 | ||
| 2338 | (defun rcirc-add-or-remove (set &rest elements) | 2339 | (defun rcirc-add-or-remove (set &rest elements) |
| 2339 | (dolist (elt elements) | 2340 | (dolist (elt elements) |