mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-25 07:40:40 -07:00
(rcirc-cmd-join): Improve argument/docstring consistency.
This commit is contained in:
parent
ece9f5cc23
commit
f161b0795c
2 changed files with 5 additions and 4 deletions
|
|
@ -52,6 +52,7 @@
|
|||
(rcirc-cmd-ignore, rcirc-browse-url, rcirc-url-regexp):
|
||||
Fix typos in docstrings.
|
||||
(rcirc-print): "?\ " -> "?\s".
|
||||
(rcirc-cmd-join): Improve argument/docstring consistency.
|
||||
|
||||
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."
|
|||
(when (not existing-buffer)
|
||||
(rcirc-cmd-whois nick))))
|
||||
|
||||
(defun-rcirc-command join (args)
|
||||
(defun-rcirc-command join (channel)
|
||||
"Join CHANNEL."
|
||||
(interactive "sJoin channel: ")
|
||||
(let* ((channel (car (split-string args)))
|
||||
(buffer (rcirc-get-buffer-create process channel)))
|
||||
(let ((buffer (rcirc-get-buffer-create process
|
||||
(car (split-string channel)))))
|
||||
(when (not (eq (selected-window) (minibuffer-window)))
|
||||
(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)
|
||||
"Part CHANNEL."
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue