Mercurial > emacs
changeset 8050:bef2c11470f8
(show-paren-command-hook): Use matching-paren.
Call overlay-put once for each overlay.
Wait .1 sec to see if any input comes in.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Jun 1994 01:20:11 +0000 |
| parents | 1a8747d19087 |
| children | a320525f4d8f |
| files | lisp/paren.el |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paren.el Sat Jun 25 00:35:12 1994 +0000 +++ b/lisp/paren.el Sat Jun 25 01:20:11 1994 +0000 @@ -45,7 +45,7 @@ ;; Do nothing if no window system to display results with. ;; Do nothing if executing keyboard macro. ;; Do nothing if input is pending. - (if (and window-system (not executing-kbd-macro) (sit-for 0)) + (if (and window-system (not executing-kbd-macro) (sit-for 0 100)) (let (pos dir mismatch (oldpos (point)) (face show-paren-face)) (cond ((eq (char-syntax (preceding-char)) ?\)) @@ -72,10 +72,7 @@ (and (/= (char-syntax (char-after beg)) ?\$) (setq mismatch (/= (char-after (1- end)) - (logand (lsh (aref (syntax-table) - (char-after beg)) - -8) - 255)))))) + (matching-paren (char-after beg))))))) ;; If they don't properly match, use a different face, ;; or print a message. (if mismatch @@ -104,8 +101,8 @@ (+ (point) dir) (point) (current-buffer)) (setq show-paren-overlay-1 - (make-overlay (- pos dir) pos))) - (overlay-put show-paren-overlay-1 'face face)) + (make-overlay (- pos dir) pos)) + (overlay-put show-paren-overlay-1 'face face))) ;; Otherwise, turn off any such highlighting. (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1) @@ -115,8 +112,8 @@ (move-overlay show-paren-overlay (- pos dir) pos (current-buffer)) (setq show-paren-overlay - (make-overlay (- pos dir) pos))) - (overlay-put show-paren-overlay 'face face)) + (make-overlay (- pos dir) pos)) + (overlay-put show-paren-overlay 'face face))) (t ;; If not at a paren that has a match, ;; turn off any previous paren highlighting.