(describe-char): Replace syntax-after with code

from its previous version.

1 files changed, 4 insertions, 1 deletions

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))))