diff options
| -rw-r--r-- | lisp/descr-text.el | 5 |
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)))) |