Mercurial > emacs

changeset 8558:30f91aa9b364

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-command-hook): Set the face of an overlay each time we move it somewhere.
author Richard M. Stallman <rms@gnu.org>
date Wed, 17 Aug 1994 22:31:16 +0000
parents e8b82da14fd7
children 509daefd2d13
files lisp/paren.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/paren.el	Wed Aug 17 22:20:40 1994 +0000
+++ b/lisp/paren.el	Wed Aug 17 22:31:16 1994 +0000
@@ -102,8 +102,9 @@
 				       (+ (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)))
+		     ;; Always set the overlay face, since it varies.
+		     (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)
@@ -113,8 +114,9 @@
 		   (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)))
+	       ;; Always set the overlay face, since it varies.
+	       (overlay-put show-paren-overlay 'face face))
 	      (t
 	       ;; If not at a paren that has a match,
 	       ;; turn off any previous paren highlighting.