mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1993-06-29 18:21:12 +00:00
parent a12ff9f32b
commit d1475aa1ba
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/paren.el
View File

@ -24,11 +24,11 @@
;;; Code:
(defvar blink-paren-overlay nil)
(defvar show-paren-overlay nil)
;; Find the place to blink, if there is one,
;; and blink it until input arrives.
(defun blink-paren-command-hook ()
;; Find the place to show, if there is one,
;; and show it until input arrives.
(defun show-paren-command-hook ()
(let (pos dir mismatch (oldpos (point))
(face (if (face-equal 'highlight 'region)
'underline 'highlight)))
@ -59,27 +59,28 @@
(char-after beg))
-8)
255))))))
;; If they don't properly match, don't blink.
;; If they don't properly match, don't show.
(if mismatch
(setq pos nil))))
(cond (pos
(if blink-paren-overlay
(move-overlay blink-paren-overlay (- pos dir) pos)
(setq blink-paren-overlay
(if show-paren-overlay
(move-overlay show-paren-overlay (- pos dir) pos)
(setq show-paren-overlay
(make-overlay (- pos dir) pos)))
(overlay-put blink-paren-overlay 'face face)
(overlay-put show-paren-overlay 'face face)
;;; This is code to blink the highlighting.
;;; It is desirable to avoid this because
;;; it would interfere with auto-save and gc when idle.
;;; (while (sit-for 1)
;;; (overlay-put blink-paren-overlay
;;; (overlay-put show-paren-overlay
;;; 'face
;;; (if (overlay-get blink-paren-overlay
;;; (if (overlay-get show-paren-overlay
;;; 'face)
;;; nil face)))
)
(t
(delete-overlay blink-paren-overlay)))))
(and show-paren-overlay (overlay-buffer show-paren-overlay)
(delete-overlay show-paren-overlay))))))
(add-hook 'post-command-hook 'blink-paren-command-hook)
(add-hook 'post-command-hook 'show-paren-command-hook)