* paren.el (show-paren-function): Make sure to set 'priority and

'face only if the overlay does exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c4f8f37a9b57a0c1388457232d929fff8abef6f..5efa7810ad204500bbdbaa6acc19a3e5b13e0e43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-24  Aaron Ecay <aaronecay@gmail.com>  (tiny change)
+
+       * paren.el (show-paren-function): Make sure to set 'priority and
+       'face only if the overlay does exist.
+
 2013-01-24  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-tramp-file-p): Check, whether NAME is unibyte.

diff --git a/lisp/paren.el b/lisp/paren.el
index bf2238d4907b48f9d30dfb80cc2f6eb35946f9fb..a9d3be606220c8f01adaa79b5b13d8cff9ce3926 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -259,11 +259,10 @@ matching parenthesis is highlighted in `show-paren-style' after
                            (- (point) dir)))))
              (if show-paren-overlay
                  (move-overlay show-paren-overlay from to (current-buffer))
-               (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)
-         (overlay-put show-paren-overlay 'face face)))
+               (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)
+            (overlay-put show-paren-overlay 'face face))))
     ;; show-paren-mode is nil in this buffer.
     (and show-paren-overlay
         (delete-overlay show-paren-overlay))