Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f161b079
Commit
f161b079
authored
Feb 02, 2006
by
Juanma Barranquero
Browse files
(rcirc-cmd-join): Improve argument/docstring consistency.
parent
ece9f5cc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
4 deletions
+5
-4
lisp/ChangeLog
lisp/ChangeLog
+1
-0
lisp/net/rcirc.el
lisp/net/rcirc.el
+4
-4
No files found.
lisp/ChangeLog
View file @
f161b079
...
...
@@ -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>
...
...
lisp/net/rcirc.el
View file @
f161b079
...
...
@@ -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."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment