# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 966282378 0
# Node ID efa4d1ed3f1b5f3979401ca14b390c620b7f9b66
# Parent  550344dcef4322e297164e64cc424d099ff0d0d3
(show-paren-priority): New user option.
(show-paren-function): Set overlay priorities to
show-paren-priority.

diff -r 550344dcef43 -r efa4d1ed3f1b lisp/paren.el
--- 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