From: Juri Linkov <juri@jurta.org>
Date: Thu, 11 Nov 2004 21:40:43 +0000 (+0000)
Subject: (describe-char): Replace syntax-after with code
X-Git-Tag: ttn-vms-21-2-B4~3996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f46692199f2bc8e49b1138308f78660aae290a18;p=emacs.git

(describe-char): Replace syntax-after with code
from its previous version.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 72ddde7c8cb..7dd6966a486 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -507,7 +507,10 @@ as well as widgets, buttons, overlays, and text properties."
 		    (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))))