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 | 329ff3a4e7733f960adac638526ae1aec21873f3 (patch) | |
| tree | ef5965f2b09420edb33c80111794e2c6cd3d969d /lisp/paren.el | |
| parent | d18c3d0d3d535d0b9de27bd3907c179d0db1b1f3 (diff) | |
| download | emacs-329ff3a4e7733f960adac638526ae1aec21873f3.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. |