# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1100209243 0
# Node ID 20a8f104f5b499ede9c40a5493de454871844384
# Parent  a469fda3673768ca7efd733e61a70e4a7bcd2225
(describe-char): Replace syntax-after with code
from its previous version.

diff -r a469fda36737 -r 20a8f104f5b4 lisp/descr-text.el
--- a/lisp/descr-text.el	Thu Nov 11 21:39:41 2004 +0000
+++ b/lisp/descr-text.el	Thu Nov 11 21:40:43 2004 +0000
@@ -507,7 +507,10 @@
 		    (format "%d" (nth 1 split))
 		  (format "%d %d" (nth 1 split) (nth 2 split)))))
 	    ("syntax"
-	     ,(let ((syntax (syntax-after pos)))
+	     ,(let* ((st (if parse-sexp-lookup-properties
+			     (get-char-property pos 'syntax-table)))
+		     (syntax (if (consp st) st
+			       (aref (or st (syntax-table)) (char-after pos)))))
 		(with-temp-buffer
 		  (internal-describe-syntax-value syntax)
 		  (buffer-string))))