Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(show-paren-command-hook): Set the face of an overlay

Browse source 
each time we move it somewhere.
This commit is contained in:
Richard M. Stallman 1994-08-17 22:31:16 +00:00
parent d18c3d0d3d
commit 329ff3a4e7
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/paren.el
View file

@ -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.