[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Miles Bader]

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.