Commit ec96e747 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(describe-char-after): Use `internal-describe-syntax-value' again.

parent 2154a297
2002-03-17 Stefan Monnier <monnier@cs.yale.edu>
* international/mule-diag.el (describe-char-after):
Use `internal-describe-syntax-value' again (got lost somewhere).
* international/ucs-tables.el (ucs-unify-8859, ucs-fragment-8859):
Use unify-8859-on-decoding-mode.
(unify-8859-on-decoding-mode): Also set translation-table-for-input.
......
......@@ -576,17 +576,12 @@ which font is being used for displaying the character."
(format "%d" (nth 1 split))
(format "%d %d" (nth 1 split) (nth 2 split)))))
("syntax"
,(let* ((old-table (syntax-table))
(table (get-char-property (point) 'syntax-table)))
(if (consp table)
(nth 1 (assq (car table)
(mapcar #'cdr syntax-code-table)))
(unwind-protect
(progn
(if (syntax-table-p table)
(set-syntax-table table))
(nth 2 (assq (char-syntax char) syntax-code-table)))
(set-syntax-table old-table)))))
,(let ((syntax (get-char-property (point) 'syntax-table)))
(with-temp-buffer
(internal-describe-syntax-value
(if (consp syntax) syntax
(aref (or syntax (syntax-table)) char)))
(buffer-string))))
("category"
,@(let ((category-set (char-category-set char)))
(if (not category-set)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment