diff options
| author | Richard M. Stallman | 2004-11-08 16:45:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-08 16:45:17 +0000 |
| commit | d5d126ea02041a77bbe2012b0c82a38960ce7d5c (patch) | |
| tree | 059ea38c9629b8dab74b41cb9f8d6430938f0841 | |
| parent | b23b6fecf7f6692f9eb8fcfcd65bf250e2c31d61 (diff) | |
| download | emacs-d5d126ea02041a77bbe2012b0c82a38960ce7d5c.tar.gz emacs-d5d126ea02041a77bbe2012b0c82a38960ce7d5c.zip | |
(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." | |||
| 139 | (defun show-paren-function () | 139 | (defun show-paren-function () |
| 140 | (if show-paren-mode | 140 | (if show-paren-mode |
| 141 | (let ((oldpos (point)) | 141 | (let ((oldpos (point)) |
| 142 | (dir (cond ((eq (car (syntax-after (1- (point)))) 5) -1) | 142 | (dir (cond ((eq (car (syntax-after (1- (point)))) ?\)) -1) |
| 143 | ((eq (car (syntax-after (point))) 4) 1))) | 143 | ((eq (car (syntax-after (point))) ?\() 1))) |
| 144 | pos mismatch face) | 144 | pos mismatch face) |
| 145 | ;; | 145 | ;; |
| 146 | ;; Find the other end of the sexp. | 146 | ;; Find the other end of the sexp. |