From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 17 Mar 2002 21:51:46 +0000 (+0000)
Subject: (describe-char-after): Use `internal-describe-syntax-value' again.
X-Git-Tag: ttn-vms-21-2-B4~16120
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec96e747a1779396e770f3194bc6af8f8ebcc707;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbaa35baefb..8e517cc4fe1 100644
--- 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 2911f7fd4c6..ebd9a44ce55 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)