aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/descr-text.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r--lisp/descr-text.el5
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."
507 (format "%d" (nth 1 split)) 507 (format "%d" (nth 1 split))
508 (format "%d %d" (nth 1 split) (nth 2 split))))) 508 (format "%d %d" (nth 1 split) (nth 2 split)))))
509 ("syntax" 509 ("syntax"
510 ,(let ((syntax (syntax-after pos))) 510 ,(let* ((st (if parse-sexp-lookup-properties
511 (get-char-property pos 'syntax-table)))
512 (syntax (if (consp st) st
513 (aref (or st (syntax-table)) (char-after pos)))))
511 (with-temp-buffer 514 (with-temp-buffer
512 (internal-describe-syntax-value syntax) 515 (internal-describe-syntax-value syntax)
513 (buffer-string)))) 516 (buffer-string))))