Fix the highlight overlay extension

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd3a2a5..cc1982b 100644 (file)
--- 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 2950617..fe92804 100644 (file)
--- 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)