diff options
| author | Simon Marshall <simon@gnu.org> | 1997-06-19 09:04:09 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1997-06-19 09:04:09 +0000 |
| commit | 74ddaa37f18163edf04b0b55a699cb1c6dcd9682 (patch) | |
| tree | 523922127c1c63a2e69a6501ec5bf0c54098872d /lisp/simple.el | |
| parent | a9ca32a74d1f476cd96d4b29adf001c21e1da42c (diff) | |
| download | emacs-74ddaa37f18163edf04b0b55a699cb1c6dcd9682.tar.gz | |
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 59abd525a1a..21b6815b3a8 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -38,8 +38,6 @@ (defgroup paren-matching nil "Highlight (un)matching of parens and expressions." - :prefix "paren-" - :prefix "blink-matching-" :group 'matching) @@ -2878,32 +2876,37 @@ in the mode line." (> (prefix-numeric-value arg) 0))) (force-mode-line-update)) +(defgroup paren-blinking nil + "Blinking (un)matching of parens and expressions." + :prefix "blink-matching-" + :group 'paren-matching) + (defcustom blink-matching-paren t "*Non-nil means show matching open-paren when close-paren is inserted." :type 'boolean - :group 'paren-matching) + :group 'paren-blinking) (defcustom blink-matching-paren-on-screen t "*Non-nil means show matching open-paren when it is on screen. -nil means don't show it (but the open-paren can still be shown -when it is off screen." +If nil, means don't show it (but the open-paren can still be shown +when it is off screen)." :type 'boolean - :group 'paren-matching) + :group 'paren-blinking) -(defcustom blink-matching-paren-distance 12000 +(defcustom blink-matching-paren-distance (* 25 1024) "*If non-nil, is maximum distance to search for matching open-paren." :type 'integer - :group 'paren-matching) + :group 'paren-blinking) (defcustom blink-matching-delay 1 - "*The number of seconds that `blink-matching-open' will delay at a match." - :type 'integer - :group 'paren-matching) + "*Time in seconds to delay after showing a matching paren." + :type 'number + :group 'paren-blinking) (defcustom blink-matching-paren-dont-ignore-comments nil - "*Non-nil means `blink-matching-paren' should not ignore comments." + "*Non-nil means `blink-matching-paren' will not ignore comments." :type 'boolean - :group 'paren-matching) + :group 'paren-blinking) (defun blink-matching-open () "Move cursor momentarily to the beginning of the sexp before point." |