From f46692199f2bc8e49b1138308f78660aae290a18 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 11 Nov 2004 21:40:43 +0000 Subject: [PATCH] (describe-char): Replace syntax-after with code from its previous version. --- lisp/descr-text.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- 2.39.2