projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c17e254
)
(show-paren-function): Use syntax-after.
author
Stefan Monnier
<monnier@iro.umontreal.ca>
Mon, 9 Sep 2002 23:16:49 +0000
(23:16 +0000)
committer
Stefan Monnier
<monnier@iro.umontreal.ca>
Mon, 9 Sep 2002 23:16:49 +0000
(23:16 +0000)
lisp/paren.el
patch
|
blob
|
history
diff --git
a/lisp/paren.el
b/lisp/paren.el
index 000854a01d2fe2b1fea41e66d7f36fd2fbc954d9..bb574f7aec293b9bbf6ac50d2f8c035ba3c940a3 100644
(file)
--- a/
lisp/paren.el
+++ b/
lisp/paren.el
@@
-135,11
+135,10
@@
in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
;; and show it until input arrives.
(defun show-paren-function ()
(if show-paren-mode
- (let (pos dir mismatch face (oldpos (point)))
- (cond ((eq (char-syntax (preceding-char)) ?\))
- (setq dir -1))
- ((eq (char-syntax (following-char)) ?\()
- (setq dir 1)))
+ (let ((oldpos (point))
+ (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1)
+ ((eq (car (syntax-after (point))) 4) 1)))
+ pos mismatch face)
;;
;; Find the other end of the sexp.
(when dir