[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el |
Date: |
Fri, 04 Apr 2003 01:22:23 -0500 |
Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.180
emacs/lisp/international/mule.el:1.181
*** emacs/lisp/international/mule.el:1.180 Mon Mar 17 23:11:32 2003
--- emacs/lisp/international/mule.el Fri Mar 28 21:56:35 2003
***************
*** 593,599 ****
(make-char charset (+ i start) (+ start chars -1)))))))
(defun register-char-codings (coding-system safe-chars)
! "This is an obsolete function.
It exists just for backward compatibility, and it does nothing.")
(make-obsolete 'register-char-codings
"Unnecessary function. Calling it has no effect."
--- 593,599 ----
(make-char charset (+ i start) (+ start chars -1)))))))
(defun register-char-codings (coding-system safe-chars)
! "This is an obsolete function.
It exists just for backward compatibility, and it does nothing.")
(make-obsolete 'register-char-codings
"Unnecessary function. Calling it has no effect."
***************
*** 1985,1996 ****
(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))))
(defun define-translation-hash-table (symbol table)
"Define SYMBOL as the name of the hash translation TABLE for use in CCL.
--- 1985,2006 ----
(put 'with-category-table 'lisp-indent-function 1)
! (defmacro with-category-table (table &rest body)
! "Evaluate BODY with category table of current buffer set to TABLE.
! The category table of the current buffer is saved, BODY is evaluated,
! then the saved table is restored, even in case of an abnormal exit.
! Value is what BODY returns."
! (let ((old-table (make-symbol "old-table"))
! (old-buffer (make-symbol "old-buffer")))
! `(let ((,old-table (category-table))
! (,old-buffer (current-buffer)))
! (unwind-protect
! (progn
! (set-category-table ,table)
! ,@body)
! (save-current-buffer
! (set-buffer ,old-buffer)
! (set-category-table ,old-table))))))
(defun define-translation-hash-table (symbol table)
"Define SYMBOL as the name of the hash translation TABLE for use in CCL.
- [Emacs-diffs] Changes to emacs/lisp/international/mule.el,
Miles Bader <=