Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv29448
Modified Files:
NEWS jabber-iq.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-368
Creator: Magnus Henoch <ma...@fr...>
Make browse buffer names customizable
Patch by Evgenii Terechkov.
Index: NEWS
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/NEWS,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- NEWS 7 May 2007 01:40:29 -0000 1.58
+++ NEWS 31 Jul 2007 07:05:10 -0000 1.59
@@ -16,6 +16,10 @@
** MUC bookmarks
(not documented yet)
+** Name of browse buffers customizable
+See jabber-browse-buffer-format.
+(not documented yet)
+
* New features in jabber.el 0.7.1
** STARTTLS
Index: jabber-iq.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-iq.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- jabber-iq.el 5 Feb 2007 21:59:03 -0000 1.20
+++ jabber-iq.el 31 Jul 2007 07:05:11 -0000 1.21
@@ -1,7 +1,7 @@
;; jabber-iq.el - infoquery functions
+;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - ma...@fr...
;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in...
-;; Copyright (C) 2003, 2004 - Magnus Henoch - ma...@fr...
;; This file is a part of jabber.el.
@@ -43,6 +43,18 @@
:group 'jabber
:type 'hook)
+(defgroup jabber-browse nil "browse display options"
+ :group 'jabber)
+
+(defcustom jabber-browse-buffer-format "*-jabber-browse:-%n-*"
+ "The format specification for the name of browse buffers.
+
+These fields are available at this moment:
+
+%n JID to browse"
+ :type 'string
+ :group 'jabber-browse)
+
(defun jabber-browse-mode ()
"\\{jabber-browse-mode-map}"
(kill-all-local-variables)
@@ -152,7 +164,8 @@
(let ((from (or (jabber-xml-get-attribute xml-data 'from) jabber-server))
(xmlns (jabber-iq-xmlns xml-data))
(type (jabber-xml-get-attribute xml-data 'type)))
- (with-current-buffer (get-buffer-create (concat "*-jabber-browse-:-" from "-*"))
+ (with-current-buffer (get-buffer-create (format-spec jabber-browse-buffer-format
+ (list (cons ?n from))))
(if (not (eq major-mode 'jabber-browse-mode))
(jabber-browse-mode))
|
