diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-17 22:31:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-17 22:31:16 +0000 |
| commit | 83241afaf3ec37134e8e0e7416a5d1fdc58eaa13 (patch) | |
| tree | ae88a47f6696d56f161ca66146fb3c41fc42f9e8 /lisp/paren.el | |
| parent | 32795bf04cecdcc4f9bbfd02f09c9c5b149b001b (diff) | |
| download | emacs-83241afaf3ec37134e8e0e7416a5d1fdc58eaa13.tar.gz | |
(show-paren-command-hook): Set the face of an overlay
each time we move it somewhere.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 758ac66c124..eb108910e28 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -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. |