Commit 35554641 authored by Kenichi Handa's avatar Kenichi Handa

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

(mule-version-date): Updated to 1999.12.7.
(with-category-table): New macro.
parent 0c4f97d0
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment