diff options
author | Stefan Monnier <[email protected]> | 2002-03-17 21:51:46 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2002-03-17 21:51:46 +0000 |
commit | ec96e747a1779396e770f3194bc6af8f8ebcc707 (patch) | |
tree | 03e672117905e18bf71535e55aff2e699fef99cd /lisp/international | |
parent | 2154a29765fbd87edf495b1db960e8a90d1be9bc (diff) |
(describe-char-after): Use `internal-describe-syntax-value' again.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/mule-diag.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 2911f7fd4c..ebd9a44ce5 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -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) |