Mercurial > emacs
changeset 74359:749bbf34ba64
Fix the highlight overlay extension
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 01 Dec 2006 21:03:19 +0000 |
| parents | 7d94aedb394a |
| children | b90d473c449b |
| files | lisp/ChangeLog lisp/paren.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Dec 01 17:43:30 2006 +0000 +++ b/lisp/ChangeLog Fri Dec 01 21:03:19 2006 +0000 @@ -4,6 +4,10 @@ 2006-12-01 Vinicius Jose Latorre <viniciusjl@ig.com.br> + * paren.el: Fix the highlight overlay extension when the user types a + sequence of char very fast just after the open parenthesis. + Suggested by Ben North <ben@redfrontdoor.org>. + * ps-mule.el: Eliminate Emacs 20 compatibility. * ps-print.el: Eliminate Emacs 20 & 21 compatibility.
--- a/lisp/paren.el Fri Dec 01 17:43:30 2006 +0000 +++ b/lisp/paren.el Fri Dec 01 21:03:19 2006 +0000 @@ -220,7 +220,7 @@ (point)))) (if show-paren-overlay-1 (move-overlay show-paren-overlay-1 from to (current-buffer)) - (setq show-paren-overlay-1 (make-overlay from to))) + (setq show-paren-overlay-1 (make-overlay from to nil t))) ;; Always set the overlay face, since it varies. (overlay-put show-paren-overlay-1 'priority show-paren-priority) (overlay-put show-paren-overlay-1 'face face))) @@ -243,7 +243,7 @@ (forward-point (- dir)))))) (if show-paren-overlay (move-overlay show-paren-overlay from to (current-buffer)) - (setq show-paren-overlay (make-overlay from to)))) + (setq show-paren-overlay (make-overlay from to nil t)))) ;; ;; Always set the overlay face, since it varies. (overlay-put show-paren-overlay 'priority show-paren-priority)