Mercurial > emacs
changeset 58150:20a8f104f5b4
(describe-char): Replace syntax-after with code
from its previous version.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 11 Nov 2004 21:40:43 +0000 |
| parents | a469fda36737 |
| children | b80bdcafb346 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Thu Nov 11 21:39:41 2004 +0000 +++ b/lisp/descr-text.el Thu Nov 11 21:40:43 2004 +0000 @@ -507,7 +507,10 @@ (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))))