Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv4229
Modified Files:
jabber-roster.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-355
Creator: Magnus Henoch <ma...@fr...>
Add key binding for toggling offline contacts in roster
Patch from Detlev Zundel.
Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- jabber-roster.el 15 Apr 2007 23:53:24 -0000 1.45
+++ jabber-roster.el 7 May 2007 02:04:43 -0000 1.46
@@ -196,6 +196,7 @@
(define-key map "a" 'jabber-send-presence)
(define-key map "g" 'jabber-display-roster)
(define-key map "S" 'jabber-ft-send)
+ (define-key map "o" 'jabber-roster-toggle-offline-display)
;;(define-key map "D" 'jabber-disconnect)
map))
@@ -284,6 +285,13 @@
(get buddy 'connected)))
buddies))
+(defun jabber-roster-toggle-offline-display ()
+ "Toggle display of offline contacts."
+ (interactive)
+ (setq jabber-show-offline-contacts
+ (not jabber-show-offline-contacts))
+ (jabber-display-roster))
+
(defun jabber-display-roster ()
"switch to the main jabber buffer and refresh the roster display to reflect the current information"
(interactive)
@@ -305,7 +313,7 @@
q Bury buffer i Get disco items
I Get disco info b Browse
j Join groupchat (MUC) v Get client version
-a Send presence
+a Send presence o Show offline contacts on/off
C-c C-c Chat menu C-c C-m Multi-User Chat menu
C-c C-i Info menu C-c C-r Roster menu
C-c C-s Service menu
|
