emacs-jabber jabber-roster.el,1.51,1.52

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv9847

Modified Files:
	jabber-roster.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-386
Creator:  Magnus Henoch <ma...@fr...>

Keybinding for toggling roster buffer keybinding help text

Patch by Xavier Maillard.


Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- jabber-roster.el	19 Aug 2007 09:46:34 -0000	1.51
+++ jabber-roster.el	21 Aug 2007 23:27:53 -0000	1.52
@@ -197,6 +197,7 @@
     (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 "H" 'jabber-roster-toggle-binding-display)
     ;;(define-key map "D" 'jabber-disconnect)
     map))
 
@@ -296,6 +297,13 @@
 	(not jabber-show-offline-contacts))
   (jabber-display-roster))
 
+(defun jabber-roster-toggle-binding-display ()
+  "Toggle display of the roster binding text."
+  (interactive)
+  (setq jabber-roster-show-bindings
+	(not jabber-roster-show-bindings))
+  (jabber-display-roster))
+
 (defun jabber-display-roster ()
   "switch to the main jabber buffer and refresh the roster display to reflect the current information"
   (interactive)
@@ -321,7 +329,8 @@
 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
-To disable this text, set `jabber-roster-show-bindings' to nil.
+
+H        Toggle displaying this text
 "))
       (insert "__________________________________\n\n")
       (if (null jabber-connections)