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." |
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. |