(mule-version): Updated to 5.0 (AOI).

(mule-version-date): Updated to 1999.12.7.
(with-category-table): New macro.

1 files changed, 11 insertions, 2 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 94f6a6a9bed..38dd3988ecd 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -24,10 +24,10 @@
 
 ;;; Code:
 
-(defconst mule-version "4.0 (HANANOEN)" "\
+(defconst mule-version "5.0 (AOI)" "\
 Version number and name of this version of MULE (multilingual environment).")
 
-(defconst mule-version-date "1998.7.1" "\
+(defconst mule-version-date "1999.12.7" "\
 Distribution date of this version of MULE (multilingual environment).")
 
 (defun load-with-code-conversion (fullname file &optional noerror nomessage)
@@ -1280,6 +1280,15 @@ identification number of the table respectively."
     (put symbol 'translation-table-id id)
     id))
 
+(put 'with-category-table 'lisp-indent-function 1)
+
+(defmacro with-category-table (category-table &rest body)
+  `(let ((current-category-table (category-table)))
+     (set-category-table ,category-table)
+     (unwind-protect
+         (progn ,@body)
+       (set-category-table current-category-table))))
+
 ;;; Initialize some variables.
 
 (put 'use-default-ascent 'char-table-extra-slots 0)