Mercurial > emacs
changeset 26887:2f284b9ec711
(mule-version): Updated to 5.0 (AOI).
(mule-version-date): Updated to 1999.12.7.
(with-category-table): New macro.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Dec 1999 00:40:48 +0000 |
| parents | 8a6d8101919e |
| children | 1f32811873b7 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)