diff options
| author | Magnus Henoch <mange@freemail.hu> | 2004-03-27 22:35:06 +0000 |
|---|---|---|
| committer | Kirill A. Korinskiy <catap@catap.ru> | 2004-03-27 22:35:06 +0000 |
| commit | 9b9ab82de3efae15919bc97ec8f3c22c727f87c1 (patch) | |
| tree | 5d450e9ff2fc874b861e34fab7e91db25ba64c73 /jabber-version.el | |
| parent | d10464ea773bd5b4ee6a731ac23ea9d66b37af43 (diff) | |
Make version number a constant. Update to 0.5.
Diffstat (limited to 'jabber-version.el')
| -rw-r--r-- | jabber-version.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/jabber-version.el b/jabber-version.el index 4ef2355..417719a 100644 --- a/jabber-version.el +++ b/jabber-version.el @@ -1,5 +1,5 @@ ;; jabber-version.el - version reporting by JEP-0092 -;; $Id: jabber-version.el,v 1.2 2004/03/06 12:53:42 legoscia Exp $ +;; $Id: jabber-version.el,v 1.3 2004/03/27 22:35:06 legoscia Exp $ ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu @@ -22,6 +22,9 @@ (require 'jabber-iq) +(defconst jabber-version "0.5" + "version returned to those who query us") + (add-to-list 'jabber-jid-info-menu (cons "Request software version" 'jabber-get-version)) (defun jabber-get-version (to) @@ -57,7 +60,7 @@ determined from the incoming packet passed in XML-DATA." (jabber-send-iq to "result" `(query ((xmlns . "jabber:iq:version")) (name () "jabber.el") - (version () "0.4") + (version () ,jabber-version) ;; Booting... /vmemacs.el ;; Shamelessly stolen from someone's sig. (os () ,(jabber-escape-xml (emacs-version)))) |