[Emacs-diffs] /srv/bzr/emacs/trunk r109816: * lisp/paren.el (show-paren-delay): Add a :set function. Doc fix. (Bug#12297)

[Glenn Morris]

------------------------------------------------------------
revno: 109816
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-29 21:44:11 -0400
message:
  * lisp/paren.el (show-paren-delay): Add a :set function.  Doc fix.  
(Bug#12297)
modified:
  lisp/ChangeLog
  lisp/paren.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-29 18:15:12 +0000
+++ b/lisp/ChangeLog    2012-08-30 01:44:11 +0000
@@ -1,3 +1,8 @@
+2012-08-30  Glenn Morris  <address@hidden>
+
+       * paren.el (show-paren-delay):
+       Add a :set function.  Doc fix.  (Bug#12297)
+
 2012-08-29  Martin Blais  <address@hidden>  (tiny change)
 
        * progmodes/compile.el (compilation-always-kill): New var.

=== modified file 'lisp/paren.el'
--- a/lisp/paren.el     2012-04-09 13:05:48 +0000
+++ b/lisp/paren.el     2012-08-30 01:44:11 +0000
@@ -52,8 +52,17 @@
   :group 'paren-showing)
 
 (defcustom show-paren-delay 0.125
-  "Time in seconds to delay before showing a matching paren."
+  "Time in seconds to delay before showing a matching paren.
+If you change this without using customize while `show-paren-mode' is
+active, you must toggle the mode off and on again for this to take effect."
   :type '(number :tag "seconds")
+  :initialize 'custom-initialize-default
+  :set (lambda (sym val)
+        (if (not show-paren-mode)
+            (set sym val)
+          (show-paren-mode -1)
+          (set sym val)
+          (show-paren-mode 1)))
   :group 'paren-showing)
 
 (defcustom show-paren-priority 1000