Mercurial > emacs

comparison lisp/paren.el @ 58042:286ed823f2b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-function): Change calls to syntax-after for new way of returning the value.
author Richard M. Stallman <rms@gnu.org>
date Mon, 08 Nov 2004 16:45:17 +0000
parents 6bce3db285b5
children 28906724d6e3 cb7f41387eb3
comparison
equal deleted inserted replaced
58041:78341df33f26 58042:286ed823f2b0
137 ;; Find the place to show, if there is one, 137 ;; Find the place to show, if there is one,
138 ;; and show it until input arrives. 138 ;; and show it until input arrives.
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.
147 (when dir 147 (when dir
148 (save-excursion 148 (save-excursion