[nongnu] elpa/highlight-parentheses 9088ba4 04/49: Added setter for colors.

[ELPA Syncer]

branch: elpa/highlight-parentheses
commit 9088ba4ceb1df9eeb28196442e941e43260fe1a3
Author: Nikolaj Schumacher <g...@nschum.de>
Commit: Nikolaj Schumacher <g...@nschum.de>

    Added setter for colors.
---
 highlight-parentheses.el | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/highlight-parentheses.el b/highlight-parentheses.el
index f445819..e02c05e 100644
--- a/highlight-parentheses.el
+++ b/highlight-parentheses.el
@@ -32,6 +32,8 @@
 ;;
 ;;; Change Log:
 ;;
+;;    Added setter for color variables.
+;;
 ;; 2007-07-30 (1.0)
 ;;    Added background highlighting and faces.
 ;;
@@ -50,21 +52,24 @@
   :group 'faces
   :group 'matching)
 
-(defvar hl-paren-overlays nil
-  "This buffers currently active overlays.")
-(make-variable-buffer-local 'hl-paren-overlays)
+(defun hl-paren-set (variable value)
+  (set variable value)
+  (when (fboundp 'hl-paren-color-update)
+    (hl-paren-color-update)))
 
 (defcustom hl-paren-colors
-  '("firebrick1" "IndianRed4" "IndianRed")
+  '("firebrick1" "IndianRed1" "IndianRed3" "IndianRed4")
   "*List of colors for the highlighted parentheses.
 The list starts with the the inside parentheses and moves outwards."
   :type '(repeat color)
+  :set 'hl-paren-set
   :group 'highlight-parentheses)
 
 (defcustom hl-paren-background-colors nil
   "*List of colors for the background highlighted parentheses.
 The list starts with the the inside parentheses and moves outwards."
   :type '(repeat color)
+  :set 'hl-paren-set
   :group 'highlight-parentheses)
 
 (defface hl-paren-face nil
@@ -136,6 +141,16 @@ This is used to prevent analyzing the same context over 
and over.")
         (overlay-put (car hl-paren-overlays) 'face attributes)))
     (setq hl-paren-overlays (nreverse hl-paren-overlays))))
 
+(defun hl-paren-color-update ()
+  (dolist (buffer (buffer-list))
+    (with-current-buffer buffer
+      (when hl-paren-overlays
+        (mapc 'delete-overlay hl-paren-overlays)
+        (setq hl-paren-overlays nil)
+        (hl-paren-create-overlays)
+        (let ((hl-paren-last-point -1)) ;; force update
+          (hl-paren-highlight))))))
+
 (provide 'highlight-parentheses)
 
 ;;; highlight-parentheses.el ends here