Commit f161b079 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(rcirc-cmd-join): Improve argument/docstring consistency.

parent ece9f5cc
...@@ -52,6 +52,7 @@ ...@@ -52,6 +52,7 @@
(rcirc-cmd-ignore, rcirc-browse-url, rcirc-url-regexp): (rcirc-cmd-ignore, rcirc-browse-url, rcirc-url-regexp):
Fix typos in docstrings. Fix typos in docstrings.
(rcirc-print): "?\ " -> "?\s". (rcirc-print): "?\ " -> "?\s".
(rcirc-cmd-join): Improve argument/docstring consistency.
   
2006-02-01 Mark A. Hershberger <mah@everybody.org> 2006-02-01 Mark A. Hershberger <mah@everybody.org>
   
......
...@@ -1375,14 +1375,14 @@ Also, clear the overlay arrow if the current buffer is now hidden." ...@@ -1375,14 +1375,14 @@ Also, clear the overlay arrow if the current buffer is now hidden."
(when (not existing-buffer) (when (not existing-buffer)
(rcirc-cmd-whois nick)))) (rcirc-cmd-whois nick))))
(defun-rcirc-command join (args) (defun-rcirc-command join (channel)
"Join CHANNEL." "Join CHANNEL."
(interactive "sJoin channel: ") (interactive "sJoin channel: ")
(let* ((channel (car (split-string args))) (let ((buffer (rcirc-get-buffer-create process
(buffer (rcirc-get-buffer-create process channel))) (car (split-string channel)))))
(when (not (eq (selected-window) (minibuffer-window))) (when (not (eq (selected-window) (minibuffer-window)))
(funcall rcirc-switch-to-buffer-function buffer)) (funcall rcirc-switch-to-buffer-function buffer))
(rcirc-send-string process (concat "JOIN " args)))) (rcirc-send-string process (concat "JOIN " channel))))
(defun-rcirc-command part (channel) (defun-rcirc-command part (channel)
"Part CHANNEL." "Part CHANNEL."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment