Mercurial > emacs
changeset 43977:633c9f5b4b14
(describe-char-after): Use `internal-describe-syntax-value' again.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 17 Mar 2002 21:51:26 +0000 |
| parents | c928ca07e2b9 |
| children | 9f447f01d6c9 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 6 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Sun Mar 17 20:50:48 2002 +0000 +++ b/lisp/international/mule-diag.el Sun Mar 17 21:51:26 2002 +0000 @@ -576,17 +576,12 @@ (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)