A real version number.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 1a47e55765987b076e7f7eecae62c086dbfa26f8..d0fda4f48b764c790ce83a1fca41e93fff48c166 100644 (file)
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-01  Karl Eichwalder  <ke@suse.de>
+
+       * po-mode.el (po-mode-version-string): New variable.
+       (po-mode-version): Use it instead of RCS/CVS Revision tag.
+
 2002-01-31  Bruno Haible  <bruno@clisp.org>
 
        * gettext-0.11 released.

diff --git a/misc/po-mode.el b/misc/po-mode.el
index 48583204bbeabacfbd173611483543a517bad089..674294e1210c78ac723f4c67dfe1efd5ad280cca 100644 (file)
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -49,6 +49,9 @@
 
 ;;; Code:
 \f
+(defconst po-mode-version-string "1.90" "\
+Version number of this version of po-mode.el.")
+
 ;;; Emacs portability matters - part I.
 ;;; Here is the minimum for customization to work.  See part II.
 
@@ -618,8 +621,7 @@ No doubt that highlighting, when Emacs does not allow it, is a kludge."
 (defun po-mode-version ()
   "Show Emacs PO mode version."
   (interactive)
-  (message (_"Emacs PO mode, version %s")
-          (substring "$Revision: 1.1.1.1 $" 11 -2)))
+  (message (_"Emacs PO mode, version %s") po-mode-version-string))
 
 (defconst po-help-display-string
   (_"\