# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945218448 0
# Node ID 2f284b9ec7110fbbc11b8fd41ef5e78ad2e2d718
# Parent  8a6d8101919e22b96ea58bf9d8fce7c1bdd25af4
(mule-version): Updated to 5.0 (AOI).
(mule-version-date): Updated to 1999.12.7.
(with-category-table): New macro.

diff -r 8a6d8101919e -r 2f284b9ec711 lisp/international/mule.el
--- a/lisp/international/mule.el	Wed Dec 15 00:40:24 1999 +0000
+++ b/lisp/international/mule.el	Wed Dec 15 00:40:48 1999 +0000
@@ -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 @@
     (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)