Mercurial > emacs
comparison lisp/paren.el @ 14543:77a1345ec9ca
(show-paren-command-hook): Position show-paren-overlay-1
properly when first creating it (just like when moving it).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 11 Feb 1996 19:25:08 +0000 |
| parents | 83f275dcd93a |
| children | 700c1a3ee265 |
comparison
equal
deleted
inserted
replaced
| 14542:73e281e7b1aa | 14543:77a1345ec9ca |
|---|---|
| 105 (if show-paren-overlay-1 | 105 (if show-paren-overlay-1 |
| 106 (move-overlay show-paren-overlay-1 | 106 (move-overlay show-paren-overlay-1 |
| 107 (+ (point) dir) (point) | 107 (+ (point) dir) (point) |
| 108 (current-buffer)) | 108 (current-buffer)) |
| 109 (setq show-paren-overlay-1 | 109 (setq show-paren-overlay-1 |
| 110 (make-overlay (- pos dir) pos))) | 110 (make-overlay (+ (point) dir) (point)))) |
| 111 ;; Always set the overlay face, since it varies. | 111 ;; Always set the overlay face, since it varies. |
| 112 (overlay-put show-paren-overlay-1 'face face)) | 112 (overlay-put show-paren-overlay-1 'face face)) |
| 113 ;; Otherwise, turn off any such highlighting. | 113 ;; Otherwise, turn off any such highlighting. |
| 114 (and show-paren-overlay-1 | 114 (and show-paren-overlay-1 |
| 115 (overlay-buffer show-paren-overlay-1) | 115 (overlay-buffer show-paren-overlay-1) |