Mercurial > emacs

comparison lisp/net/rcirc.el @ 68578:2b5f6787aa4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rcirc-cmd-join): Improve argument/docstring consistency.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 02 Feb 2006 16:48:23 +0000
parents 979fba30166f
children 067115a6e738 9bec09743395 d6f8fe3307c8
comparison
equal deleted inserted replaced
68577:488f65041f04 68578:2b5f6787aa4f
1373 (switch-to-buffer (or existing-buffer 1373 (switch-to-buffer (or existing-buffer
1374 (rcirc-get-buffer-create process nick))) 1374 (rcirc-get-buffer-create process nick)))
1375 (when (not existing-buffer) 1375 (when (not existing-buffer)
1376 (rcirc-cmd-whois nick)))) 1376 (rcirc-cmd-whois nick))))
1377 1377
1378 (defun-rcirc-command join (args) 1378 (defun-rcirc-command join (channel)
1379 "Join CHANNEL." 1379 "Join CHANNEL."
1380 (interactive "sJoin channel: ") 1380 (interactive "sJoin channel: ")
1381 (let* ((channel (car (split-string args))) 1381 (let ((buffer (rcirc-get-buffer-create process
1382 (buffer (rcirc-get-buffer-create process channel))) 1382 (car (split-string channel)))))
1383 (when (not (eq (selected-window) (minibuffer-window))) 1383 (when (not (eq (selected-window) (minibuffer-window)))
1384 (funcall rcirc-switch-to-buffer-function buffer)) 1384 (funcall rcirc-switch-to-buffer-function buffer))
1385 (rcirc-send-string process (concat "JOIN " args)))) 1385 (rcirc-send-string process (concat "JOIN " channel))))
1386 1386
1387 (defun-rcirc-command part (channel) 1387 (defun-rcirc-command part (channel)
1388 "Part CHANNEL." 1388 "Part CHANNEL."
1389 (interactive "sPart channel: ") 1389 (interactive "sPart channel: ")
1390 (let ((channel (if (> (length channel) 0) channel target))) 1390 (let ((channel (if (> (length channel) 0) channel target)))