diff options
| author | Juri Linkov <juri@jurta.org> | 2004-11-11 21:40:43 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-11-11 21:40:43 +0000 |
| commit | f46692199f2bc8e49b1138308f78660aae290a18 (patch) | |
| tree | 0a1d2038299d06652464f1a733a0f8debcaea2e2 | |
| parent | 81668eb26016c75dcc5808f638ec1c4fac4300c2 (diff) | |
| download | emacs-f46692199f2bc8e49b1138308f78660aae290a18.tar.gz | |
(describe-char): Replace syntax-after with code
from its previous version.
| -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)))) |