From: Kenichi Handa <handa@m17n.org>
Date: Wed, 15 Dec 1999 00:40:48 +0000 (+0000)
Subject: (mule-version): Updated to 5.0 (AOI).
X-Git-Tag: emacs-pretest-21.0.90~5721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35554641be808ce5991c974d0d7dca144f1606f9;p=emacs.git

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

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)