Fix the highlight overlay extension

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd3a2a50103..cc1982b69c6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/paren.el b/lisp/paren.el
index 29506174c6b..fe928045765 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -220,7 +220,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
                         (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 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
                           (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)