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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbaa35baefb5fdad3c62acc730ae505573975e10..8e517cc4fe10a7760e8f5209250733419ea82d3c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 2911f7fd4c64c57cb1a61321050eec8bc3e6b7d4..ebd9a44ce5500a0f1bfc7e5b57c81cdc0e813008 100644 (file)
--- 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)