Menu
▾
▴
emacs-jabber jabber-alert.el, 1.34, 1.35 jabber.el, 1.89, 1.90 jabber-chat.el, 1.90, 1.91 jabber-muc.el, 1.79, 1.80 jabber-chatbuffer.el, 2.14, 2.15 jabber-ahc-presence.el, 1.6, 1.7 jabber-presence.el, 1.48, 1.49 jabber-ahc.el, 1.12, 1.13 jabber-activity.el, 1.33, 1.34
|
From: Magnus H. <leg...@us...> - 2008-06-17 14:51:50
|
Update of /cvsroot/emacs-jabber/emacs-jabber In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv14972 Modified Files: jabber-alert.el jabber.el jabber-chat.el jabber-muc.el jabber-chatbuffer.el jabber-ahc-presence.el jabber-presence.el jabber-ahc.el jabber-activity.el Log Message: Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-541 Creator: Magnus Henoch <ma...@fr...> Add more autoloads and use them (to silence incorrect warnings) Index: jabber-ahc.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-ahc.el,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- jabber-ahc.el 15 Apr 2007 23:53:00 -0000 1.12 +++ jabber-ahc.el 17 Jun 2008 14:51:42 -0000 1.13 @@ -1,6 +1,6 @@ ;; jabber-ahc.el - Ad-Hoc Commands by JEP-0050 -;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - ma...@fr... +;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - ma...@fr... ;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in... ;; This file is a part of jabber.el. @@ -21,6 +21,7 @@ (require 'jabber-disco) (require 'jabber-widget) +(require 'jabber-autoloads) (defvar jabber-ahc-sessionid nil "session id of Ad-Hoc Command session") Index: jabber-presence.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-presence.el,v retrieving revision 1.48 retrieving revision 1.49 diff -u -d -r1.48 -r1.49 --- jabber-presence.el 17 Jun 2008 14:46:23 -0000 1.48 +++ jabber-presence.el 17 Jun 2008 14:51:41 -0000 1.49 @@ -25,6 +25,7 @@ (require 'jabber-util) (require 'jabber-menu) (require 'jabber-muc) +(require 'jabber-autoloads) (require 'assoc) @@ -285,6 +286,7 @@ (setq count (1+ count)))) count)) +;;;###autoload (defun jabber-send-presence (show status priority) "Set presence for all accounts." (interactive (list (completing-read "show:" Index: jabber-chat.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-chat.el,v retrieving revision 1.90 retrieving revision 1.91 diff -u -d -r1.90 -r1.91 --- jabber-chat.el 1 Mar 2008 21:58:08 -0000 1.90 +++ jabber-chat.el 17 Jun 2008 14:51:41 -0000 1.91 @@ -209,6 +209,7 @@ "Float-time of earliest backlog entry inserted into buffer. nil if no backlog has been inserted.") +;;;###autoload (defun jabber-chat-get-buffer (chat-with) "Return the chat buffer for chatting with CHAT-WITH (bare or full JID). Either a string or a buffer is returned, so use `get-buffer' or Index: jabber-ahc-presence.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-ahc-presence.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- jabber-ahc-presence.el 15 Apr 2007 23:53:00 -0000 1.6 +++ jabber-ahc-presence.el 17 Jun 2008 14:51:41 -0000 1.7 @@ -1,6 +1,6 @@ ;; jabber-ahc-presence.el - provide remote control of presence -;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - ma...@fr... +;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - ma...@fr... ;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in... ;; This file is a part of jabber.el. @@ -20,6 +20,7 @@ ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA (require 'jabber-ahc) +(require 'jabber-autoloads) (defconst jabber-ahc-presence-node "http://jabber.org/protocol/rc#set-status" "Node used by jabber-ahc-presence") Index: jabber-activity.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-activity.el,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- jabber-activity.el 21 Feb 2008 15:29:45 -0000 1.33 +++ jabber-activity.el 17 Jun 2008 14:51:42 -0000 1.34 @@ -42,6 +42,7 @@ (require 'jabber-core) (require 'jabber-alert) (require 'jabber-util) +(require 'jabber-autoloads) (require 'cl) (defgroup jabber-activity nil Index: jabber-chatbuffer.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-chatbuffer.el,v retrieving revision 2.14 retrieving revision 2.15 diff -u -d -r2.14 -r2.15 --- jabber-chatbuffer.el 20 Mar 2007 16:13:20 -0000 2.14 +++ jabber-chatbuffer.el 17 Jun 2008 14:51:41 -0000 2.15 @@ -1,6 +1,6 @@ ;; jabber-chatbuffer.el - functions common to all chat buffers -;; Copyright (C) 2005, 2007 - Magnus Henoch - ma...@fr... +;; Copyright (C) 2005, 2007, 2008 - Magnus Henoch - ma...@fr... ;; This file is a part of jabber.el. @@ -41,8 +41,10 @@ (defvar jabber-chat-ewoc nil "The ewoc showing the messages of this chat buffer.") +;;;###autoload (defvar jabber-buffer-connection nil "The connection used by this buffer.") +;;;###autoload (make-variable-buffer-local 'jabber-buffer-connection) (defun jabber-chat-mode (jc ewoc-pp) Index: jabber-muc.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-muc.el,v retrieving revision 1.79 retrieving revision 1.80 diff -u -d -r1.79 -r1.80 --- jabber-muc.el 17 Jun 2008 14:48:45 -0000 1.79 +++ jabber-muc.el 17 Jun 2008 14:51:41 -0000 1.80 @@ -25,6 +25,7 @@ (require 'cl) +;;;###autoload (defvar *jabber-active-groupchats* nil "alist of groupchats and nicknames Keys are strings, the bare JID of the room. @@ -139,6 +140,7 @@ "List of functions that may be able to print part of a MUC message. This gets prepended to `jabber-chat-printers', which see.") +;;;###autoload (defun jabber-muc-get-buffer (group) "Return the chat buffer for chatroom GROUP. Either a string or a buffer is returned, so use `get-buffer' or @@ -163,6 +165,7 @@ (setq header-line-format jabber-muc-header-line-format) (current-buffer))) +;;;###autoload (defun jabber-muc-private-get-buffer (group nickname) "Return the chat buffer for private chat with NICKNAME in GROUP. Either a string or a buffer is returned, so use `get-buffer' or @@ -722,11 +725,13 @@ (gethash (jabber-jid-symbol from) jabber-pending-groupchats)) (jabber-xml-path message '(("http://jabber.org/protocol/muc#user" . "x") invite))))) +;;;###autoload (defun jabber-muc-sender-p (jid) "Return non-nil if JID is a full JID of an MUC participant." (and (assoc (jabber-jid-user jid) *jabber-active-groupchats*) (jabber-jid-resource jid))) +;;;###autoload (defun jabber-muc-private-message-p (message) "Return non-nil if MESSAGE is a private message in a groupchat." (let ((from (jabber-xml-get-attribute message 'from)) Index: jabber-alert.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-alert.el,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- jabber-alert.el 20 Apr 2008 06:21:41 -0000 1.34 +++ jabber-alert.el 17 Jun 2008 14:51:40 -0000 1.35 @@ -1,6 +1,6 @@ ;; jabber-alert.el - alert hooks -;; Copyright (C) 2003, 2004, 2005, 2007 - Magnus Henoch - ma...@fr... +;; Copyright (C) 2003, 2004, 2005, 2007, 2008 - Magnus Henoch - ma...@fr... ;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in... ;; This file is a part of jabber.el. @@ -20,6 +20,7 @@ ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA (require 'jabber-util) +(require 'jabber-autoloads) (require 'cl) Index: jabber.el =================================================================== RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber.el,v retrieving revision 1.89 retrieving revision 1.90 diff -u -d -r1.89 -r1.90 --- jabber.el 17 Jun 2008 14:49:20 -0000 1.89 +++ jabber.el 17 Jun 2008 14:51:40 -0000 1.90 @@ -88,6 +88,7 @@ (const :tag "Legacy SSL/TLS" ssl)))))) :group 'jabber) +;;;###autoload (defcustom jabber-default-show "" "default show state" :type '(choice (const :tag "Online" "") @@ -97,11 +98,13 @@ (const :tag "Do not disturb" "dnd")) :group 'jabber) +;;;###autoload (defcustom jabber-default-status "" "default status string" :type 'string :group 'jabber) +;;;###autoload (defcustom jabber-default-priority 10 "default priority" :type 'integer @@ -155,13 +158,15 @@ (require 'jabber-autoloads) - +;;;###autoload (defvar *jabber-current-status* nil "the users current presence staus") +;;;###autoload (defvar *jabber-current-show* nil "the users current presence show") +;;;###autoload (defvar *jabber-current-priority* nil "the user's current priority") |
