diff options
Diffstat (limited to 'lisp/descr-text.el')
| -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." | |||
| 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)))) |