HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
81668eb
)
(describe-char): Replace syntax-after with code
author
Juri Linkov
<juri@jurta.org>
Thu, 11 Nov 2004 21:40:43 +0000
(21:40 +0000)
committer
Juri Linkov
<juri@jurta.org>
Thu, 11 Nov 2004 21:40:43 +0000
(21:40 +0000)
from its previous version.
lisp/descr-text.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/descr-text.el
b/lisp/descr-text.el
index
72ddde7
..
7dd6966
100644
(file)
--- 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))))