/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.180 by handa, Tue Mar 18 04:11:32 2003 UTC revision 1.181 by jpw, Sat Mar 29 02:56:35 2003 UTC
# Line 593  character code range.  Thus FUNC should Line 593  character code range.  Thus FUNC should
593                   (make-char charset (+ i start) (+ start chars -1)))))))                   (make-char charset (+ i start) (+ start chars -1)))))))
594    
595  (defun register-char-codings (coding-system safe-chars)  (defun register-char-codings (coding-system safe-chars)
596    "This is an obsolete function.      "This is an obsolete function.
597  It exists just for backward compatibility, and it does nothing.")  It exists just for backward compatibility, and it does nothing.")
598  (make-obsolete 'register-char-codings  (make-obsolete 'register-char-codings
599                 "Unnecessary function.  Calling it has no effect."                 "Unnecessary function.  Calling it has no effect."
# Line 1985  the table in `translation-table-vector'. Line 1985  the table in `translation-table-vector'.
1985    
1986  (put 'with-category-table 'lisp-indent-function 1)  (put 'with-category-table 'lisp-indent-function 1)
1987    
1988  (defmacro with-category-table (category-table &rest body)  (defmacro with-category-table (table &rest body)
1989    `(let ((current-category-table (category-table)))    "Evaluate BODY with category table of current buffer set to TABLE.
1990       (set-category-table ,category-table)  The category table of the current buffer is saved, BODY is evaluated,
1991       (unwind-protect  then the saved table is restored, even in case of an abnormal exit.
1992           (progn ,@body)  Value is what BODY returns."
1993         (set-category-table current-category-table))))    (let ((old-table (make-symbol "old-table"))
1994            (old-buffer (make-symbol "old-buffer")))
1995        `(let ((,old-table (category-table))
1996               (,old-buffer (current-buffer)))
1997           (unwind-protect
1998               (progn
1999                 (set-category-table ,table)
2000                 ,@body)
2001             (save-current-buffer
2002               (set-buffer ,old-buffer)
2003               (set-category-table ,old-table))))))
2004    
2005  (defun define-translation-hash-table (symbol table)  (defun define-translation-hash-table (symbol table)
2006    "Define SYMBOL as the name of the hash translation TABLE for use in CCL.    "Define SYMBOL as the name of the hash translation TABLE for use in CCL.

Legend:
Removed from v.1.180  
changed lines
  Added in v.1.181

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26