diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-08 16:45:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-08 16:45:17 +0000 |
| commit | d5d126ea02041a77bbe2012b0c82a38960ce7d5c (patch) | |
| tree | 059ea38c9629b8dab74b41cb9f8d6430938f0841 | |
| parent | b23b6fecf7f6692f9eb8fcfcd65bf250e2c31d61 (diff) | |
(show-paren-function): Change calls to syntax-after
for new way of returning the value.
| -rw-r--r-- | lisp/paren.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 6c5f9dece99..10695a41098 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -139,8 +139,8 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (defun show-paren-function () (if show-paren-mode (let ((oldpos (point)) - (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) - ((eq (car (syntax-after (point))) 4) 1))) + (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1) + ((eq (car (syntax-after (point))) ?\() 1))) pos mismatch face) ;; ;; Find the other end of the sexp. |