Mercurial > emacs
changeset 30787:efa4d1ed3f1b
(show-paren-priority): New user option.
(show-paren-function): Set overlay priorities to
show-paren-priority.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 14 Aug 2000 19:46:18 +0000 |
| parents | 550344dcef43 |
| children | fff9b9ec1df1 |
| files | lisp/paren.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paren.el Mon Aug 14 16:30:59 2000 +0000 +++ b/lisp/paren.el Mon Aug 14 19:46:18 2000 +0000 @@ -69,6 +69,12 @@ :type '(number :tag "seconds") :group 'paren-showing) +(defcustom show-paren-priority 1000 + "*Priority of paren highlighting overlays." + :type 'integer + :group 'paren-showing + :version "21.1") + (defcustom show-paren-ring-bell-on-mismatch nil "*If non-nil, beep if mismatched paren is detected." :type 'boolean @@ -204,6 +210,7 @@ (move-overlay show-paren-overlay-1 from to (current-buffer)) (setq show-paren-overlay-1 (make-overlay from to))) ;; Always set the overlay face, since it varies. + (overlay-put show-paren-overlay-1 'priority show-paren-priority) (overlay-put show-paren-overlay-1 'face face))) ;; ;; Turn on highlighting for the matching paren, if found. @@ -227,6 +234,7 @@ (setq show-paren-overlay (make-overlay from to)))) ;; ;; Always set the overlay face, since it varies. + (overlay-put show-paren-overlay 'priority show-paren-priority) (overlay-put show-paren-overlay 'face face))) ;; show-paren-mode is nil in this buffer. (and show-paren-overlay