Mercurial > emacs
changeset 3917:00ea0fc45685
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 29 Jun 1993 18:21:12 +0000 |
| parents | b3f0b10b39c8 |
| children | 41c85710702d |
| files | lisp/paren.el |
| diffstat | 1 files changed, 14 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paren.el Tue Jun 29 17:08:09 1993 +0000 +++ b/lisp/paren.el Tue Jun 29 18:21:12 1993 +0000 @@ -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)