;ELC   
;;; compiled by jwz@thalidomide on Fri May 13 00:32:25 1994
;;; from file /u/jwz/emacs19/lisp/packages/blink-paren.el
;;; emacs version 19.10 Lucid (beta22).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defvar blink-paren-timeout 0.2 "\
*If the cursor is on a parenthesis, the matching parenthesis will blink.
This variable controls how long each phase of the blink lasts in seconds.
This should be a fractional part of a second (a float.)")
(defvar highlight-paren-expression nil "\
*If true, highlight the whole expression of the paren under the cursor
instead of blinking (or highlighting) the matching paren.  This will highlight
the expression using the `highlight-expression' face.")
(byte-code "АБ!€АВ!€АГ!€ДВ!¬ЋЕВЖЗ!\"€ИВЖЗ!\"€ДГ!¬…ЙГК\"€ЛМ!¬ѓНЛО!¬ѓНПРM€СТM€УФM€ХЦM€ЧШM‡" [make-face blink-paren-on blink-paren-off highlight-expression face-differs-from-default-p set-face-background face-background default set-face-foreground set-face-underline-p t boundp blink-paren-extent nil blink-paren-timeout-id blink-paren-sexp-dir #[nil "`dW«‰`fzА=«‚Б‡`eV«‹`БZfzВ=«‚Г‡Д‡" [40 1 41 -1 nil] 2] blink-paren-make-extent #[nil "А ‰­„ВГДЏ)‡" [blink-paren-sexp-dir dir nil (byte-code "АЉВ!€`)ЕU«ЏЖ«ѓ`ЄѓЕZ\"ЄЌЖ«ѓ`ЄѓЕ\\\"Й«ѓКЄЃЛ\"€+‡" [t parse-sexp-ignore-comments forward-sexp dir other-pos 1 make-extent highlight-paren-expression extent set-extent-face highlight-expression blink-paren-on] 4) ((error))] 4] blink-paren-timeout #[(arg) "АБВЏ‡" [nil (byte-code "А	В	!Г=«ѓДЄЃГ\"‡" [set-extent-face blink-paren-extent extent-face blink-paren-on blink-paren-off] 4) ((error (blink-paren-pre-command)))] 3] blink-paren-post-command #[nil "А €Б ‰­©?­ҐДЕЖ\"­†З\nЕ\"€И?­–Й\n!¬…\nЁ­‹Л\nКМ\n$‰‡" [blink-paren-pre-command blink-paren-make-extent blink-paren-extent highlight-paren-expression face-equal blink-paren-on blink-paren-off set-extent-face t floatp blink-paren-timeout add-timeout nil blink-paren-timeout-id] 5] blink-paren-pre-command #[nil "АБВЏ‡" [c (byte-code "А\n«†Г\nД!€­…ЖД!)‡" [t inhibit-quit blink-paren-timeout-id disable-timeout nil blink-paren-extent delete-extent] 3) ((error (message "blink paren error! %s" c)))] 3]] 4)
(fset 'blink-paren #[(&optional arg) "А	>??¬„\n?Є…Д!ЕV‰\n=¬©«ЏЗБА\"€ЗИЙ\"€КЄ–МБА\"€МИЙ\"€«…О!€П*‡" [blink-paren-pre-command pre-command-hook was-on arg prefix-numeric-value 0 on-p add-hook post-command-hook blink-paren-post-command nil blink-matching-paren remove-hook blink-paren-extent detach-extent t] 4 "\
Toggles paren blinking on and off.
With a positive argument, turns it on.
With a non-positive argument, turns it off." "P"])
(fset 'blink-paren-init #[nil "АБ!‡" [blink-paren 1] 2 "\
obsolete - use `blink-paren' instead."])
(byte-code "АБ!€БВ!‡" [provide blink-paren 1] 2)