From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 14 Aug 2000 19:46:18 +0000 (+0000)
Subject: (show-paren-priority): New user option.
X-Git-Tag: emacs-pretest-21.0.90~2326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5780586ea03237476664e42dc239489e5a725a2d;p=emacs.git

(show-paren-priority): New user option.
(show-paren-function): Set overlay priorities to
show-paren-priority.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index 53fc343c6d5..8fdf9d8f258 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -69,6 +69,12 @@ otherwise)."
   :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 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
 		  (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 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
 	      (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