emacs-jabber jabber-roster.el,1.47,1.48

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

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

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

defalias of emacs 21 doesn't accept a docstring


Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- jabber-roster.el	8 May 2007 15:57:48 -0000	1.47
+++ jabber-roster.el	3 Jun 2007 18:33:22 -0000	1.48
@@ -1,7 +1,7 @@
 ;; jabber-roster.el - displaying the roster    -*- coding: utf-8; -*-
 
-;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in...
 ;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - ma...@fr...
+;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in...
 
 ;; This file is a part of jabber.el.
 
@@ -496,9 +496,9 @@
 	   (t
 	    (setq where (ewoc-next ewoc where)))))))))
 
-(defalias 'jabber-presence-update-roster 'ignore
-  "jabber-presence-update-roster is not needed anymore.
-Its work is done in `jabber-process-presence'.")
+(defalias 'jabber-presence-update-roster 'ignore)
+;;jabber-presence-update-roster is not needed anymore.
+;;Its work is done in `jabber-process-presence'."
 (make-obsolete 'jabber-presence-update-roster 'ignore)
 
 (defun jabber-go-to-next-jid ()