Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv19336
Modified Files:
jabber.texi jabber-core.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-445
Creator: Magnus Henoch <ma...@fr...>
Keybinding for jabber-connect
Patch by Evgenii Terechkov
Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -d -r1.76 -r1.77
--- jabber-core.el 2 Feb 2008 16:20:50 -0000 1.76
+++ jabber-core.el 11 Feb 2008 09:47:22 -0000 1.77
@@ -124,16 +124,16 @@
"Return non-nil if SASL functions are available."
(featurep 'sasl))
-(defun jabber-connect-all ()
+(defun jabber-connect-all (&optional arg)
"Connect to all configured Jabber accounts.
See `jabber-account-list'.
If no accounts are configured, call `jabber-connect' interactively."
- (interactive)
+ (interactive "P")
(let ((accounts
(remove-if (lambda (account)
(cdr (assq :disabled (cdr account))))
jabber-account-list)))
- (if (null accounts)
+ (if (or (null accounts) arg)
(call-interactively 'jabber-connect)
;; Only connect those accounts that are not yet connected.
(let ((already-connected (mapcar #'jabber-connection-bare-jid jabber-connections))
Index: jabber.texi
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber.texi,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- jabber.texi 17 Nov 2007 11:29:00 -0000 1.80
+++ jabber.texi 11 Feb 2008 09:47:21 -0000 1.81
@@ -12,7 +12,7 @@
@copying
This manual is for jabber.el, version 0.8.
-Copyright @copyright{} 2004, 2005, 2006, 2007 Magnus Henoch, Tom Berger.
+Copyright @copyright{} 2004, 2005, 2006, 2007, 2008 Magnus Henoch, Tom Berger.
@quotation
Permission is granted to make and distribute verbatim copies or
@@ -137,7 +137,7 @@
@code{jabber-account-list}. It sets accounts, that jabber.el knows about. See
comments for this variable to learn how to set it up. Save your
changes, and type @kbd{M-x jabber-connect-all} or @kbd{C-x C-j C-c} to
-connect. Use @kbd{M-x jabber-connect} to connect just one account.
+connect. Use @kbd{M-x jabber-connect} to connect just one account (or just type @kbd{C-u C-x C-j C-c}).
If you do not yet have a Jabber account, you can register one. Enter
your desired username and the server you wish
|
