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)
|
