Gecko [ 122.154.134.11 ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	538 B	-rw-r--r--
abbrev.elc	29.69 KB	-rw-r--r--
abbrevlist.elc	1.12 KB	-rw-r--r--
add-log.elc	35.21 KB	-rw-r--r--
align.elc	38.38 KB	-rw-r--r--
allout.elc	208.3 KB	-rw-r--r--
ansi-color.elc	16.3 KB	-rw-r--r--
apropos.elc	31.93 KB	-rw-r--r--
arc-mode.elc	54.72 KB	-rw-r--r--
array.elc	25.83 KB	-rw-r--r--
autoarg.elc	5.98 KB	-rw-r--r--
autoinsert.elc	12.01 KB	-rw-r--r--
autorevert.elc	18.25 KB	-rw-r--r--
avoid.elc	10.17 KB	-rw-r--r--
battery.elc	17.98 KB	-rw-r--r--
bindings.elc	39.04 KB	-rw-r--r--
bookmark.elc	55.9 KB	-rw-r--r--
bs.elc	48.34 KB	-rw-r--r--
buff-menu.elc	28 KB	-rw-r--r--
button.elc	13.92 KB	-rw-r--r--
calculator.elc	49.18 KB	-rw-r--r--
case-table.elc	4.42 KB	-rw-r--r--
cdl.elc	1.26 KB	-rw-r--r--
chistory.elc	5.75 KB	-rw-r--r--
cmuscheme.elc	17.43 KB	-rw-r--r--
comint.elc	100.97 KB	-rw-r--r--
compare-w.elc	10.98 KB	-rw-r--r--
complete.elc	23.62 KB	-rw-r--r--
completion.elc	45.06 KB	-rw-r--r--
composite.elc	29.39 KB	-rw-r--r--
cus-dep.elc	5.04 KB	-rw-r--r--
cus-edit.elc	129.67 KB	-rw-r--r--
cus-face.elc	10.46 KB	-rw-r--r--
cus-load.el	63.45 KB	-rw-r--r--
cus-start.elc	10.67 KB	-rw-r--r--
cus-theme.elc	13.7 KB	-rw-r--r--
custom.elc	36.46 KB	-rw-r--r--
cvs-status.elc	23 KB	-rw-r--r--
dabbrev.elc	23.08 KB	-rw-r--r--
delim-col.elc	8.41 KB	-rw-r--r--
delsel.elc	5.24 KB	-rw-r--r--
descr-text.elc	20.69 KB	-rw-r--r--
desktop.elc	34.52 KB	-rw-r--r--
dframe.elc	22.51 KB	-rw-r--r--
diff-mode.elc	55.58 KB	-rw-r--r--
diff.elc	5.51 KB	-rw-r--r--
dired-aux.elc	67.5 KB	-rw-r--r--
dired-x.elc	44.96 KB	-rw-r--r--
dired.elc	96.48 KB	-rw-r--r--
dirtrack.elc	7.39 KB	-rw-r--r--
disp-table.elc	8.33 KB	-rw-r--r--
dnd.elc	7.04 KB	-rw-r--r--
doc-view.elc	36.01 KB	-rw-r--r--
dos-fns.elc	5.53 KB	-rw-r--r--
dos-vars.elc	1.24 KB	-rw-r--r--
dos-w32.elc	11.12 KB	-rw-r--r--
double.elc	4.13 KB	-rw-r--r--
ebuff-menu.elc	9.11 KB	-rw-r--r--
echistory.elc	4.93 KB	-rw-r--r--
ediff-diff.elc	35.54 KB	-rw-r--r--
ediff-help.elc	11.47 KB	-rw-r--r--
ediff-hook.elc	5.89 KB	-rw-r--r--
ediff-init.elc	60.88 KB	-rw-r--r--
ediff-merg.elc	10.04 KB	-rw-r--r--
ediff-mult.elc	58.31 KB	-rw-r--r--
ediff-ptch.elc	18.63 KB	-rw-r--r--
ediff-util.elc	118.44 KB	-rw-r--r--
ediff-vers.elc	4.74 KB	-rw-r--r--
ediff-wind.elc	30.56 KB	-rw-r--r--
ediff.elc	36.28 KB	-rw-r--r--
edmacro.elc	21.45 KB	-rw-r--r--
ehelp.elc	11.03 KB	-rw-r--r--
electric.elc	2.81 KB	-rw-r--r--
elide-head.elc	2.8 KB	-rw-r--r--
emacs-lock.elc	2.77 KB	-rw-r--r--
emerge.elc	80.16 KB	-rw-r--r--
env.elc	5.69 KB	-rw-r--r--
epa-dired.elc	1.87 KB	-rw-r--r--
epa-file.elc	6.77 KB	-rw-r--r--
epa-hook.elc	4.28 KB	-rw-r--r--
epa-mail.elc	7.04 KB	-rw-r--r--
epa.elc	34.03 KB	-rw-r--r--
epg-config.elc	4.01 KB	-rw-r--r--
epg.elc	85.05 KB	-rw-r--r--
expand.elc	9.42 KB	-rw-r--r--
ezimage.elc	9.2 KB	-rw-r--r--
face-remap.elc	13.15 KB	-rw-r--r--
facemenu.elc	23.61 KB	-rw-r--r--
faces.elc	81.51 KB	-rw-r--r--
ffap.elc	46.14 KB	-rw-r--r--
filecache.elc	16.1 KB	-rw-r--r--
files.elc	175.25 KB	-rw-r--r--
filesets.elc	73.03 KB	-rw-r--r--
find-cmd.elc	4.94 KB	-rw-r--r--
find-dired.elc	7.4 KB	-rw-r--r--
find-file.elc	18.68 KB	-rw-r--r--
find-lisp.elc	7.42 KB	-rw-r--r--
finder-inf.el	93.47 KB	-rw-r--r--
finder.elc	12.11 KB	-rw-r--r--
flow-ctrl.elc	2.44 KB	-rw-r--r--
foldout.elc	7.6 KB	-rw-r--r--
follow.elc	37.11 KB	-rw-r--r--
font-core.elc	12.92 KB	-rw-r--r--
font-lock.elc	61.1 KB	-rw-r--r--
format-spec.elc	1.98 KB	-rw-r--r--
format.elc	27.73 KB	-rw-r--r--
forms-d2.el	3.13 KB	-rw-r--r--
forms-pass.el	742 B	-rw-r--r--
forms.elc	35.13 KB	-rw-r--r--
frame.elc	48.66 KB	-rw-r--r--
fringe.elc	8.01 KB	-rw-r--r--
generic-x.elc	44.25 KB	-rw-r--r--
gs.elc	3.93 KB	-rw-r--r--
help-at-pt.elc	11.27 KB	-rw-r--r--
help-fns.elc	21.77 KB	-rw-r--r--
help-macro.elc	4.37 KB	-rw-r--r--
help-mode.elc	19.38 KB	-rw-r--r--
help.elc	40.91 KB	-rw-r--r--
hex-util.elc	1.48 KB	-rw-r--r--
hexl.elc	32.06 KB	-rw-r--r--
hi-lock.elc	23.27 KB	-rw-r--r--
hilit-chg.elc	28.02 KB	-rw-r--r--
hippie-exp.elc	23.39 KB	-rw-r--r--
hl-line.elc	7.71 KB	-rw-r--r--
ibuf-ext.elc	54.62 KB	-rw-r--r--
ibuf-macs.elc	11.65 KB	-rw-r--r--
ibuffer.elc	91.96 KB	-rw-r--r--
icomplete.elc	10.36 KB	-rw-r--r--
ido.elc	110.93 KB	-rw-r--r--
ielm.elc	17.67 KB	-rw-r--r--
iimage.elc	4.06 KB	-rw-r--r--
image-dired.elc	82.24 KB	-rw-r--r--
image-file.elc	6.11 KB	-rw-r--r--
image-mode.elc	14.54 KB	-rw-r--r--
image.elc	17.09 KB	-rw-r--r--
imenu.elc	24.8 KB	-rw-r--r--
indent.elc	17 KB	-rw-r--r--
info-look.elc	26.13 KB	-rw-r--r--
info-xref.elc	7.04 KB	-rw-r--r--
info.elc	119.11 KB	-rw-r--r--
informat.elc	9.69 KB	-rw-r--r--
isearch.elc	76.23 KB	-rw-r--r--
isearchb.elc	4.92 KB	-rw-r--r--
iswitchb.elc	32.11 KB	-rw-r--r--
jit-lock.elc	17.93 KB	-rw-r--r--
jka-cmpr-hook.elc	11.67 KB	-rw-r--r--
jka-compr.elc	12.64 KB	-rw-r--r--
json.elc	13.04 KB	-rw-r--r--
kermit.elc	2.96 KB	-rw-r--r--
kmacro.elc	31.07 KB	-rw-r--r--
ldefs-boot.el	1.17 MB	-rw-r--r--
ledit.elc	4.74 KB	-rw-r--r--
linum.elc	9.56 KB	-rw-r--r--
loaddefs.el	1.17 MB	-rw-r--r--
loadhist.elc	8.65 KB	-rw-r--r--
loadup.el	12.67 KB	-rw-r--r--
locate.elc	17.81 KB	-rw-r--r--
log-edit.elc	24.93 KB	-rw-r--r--
log-view.elc	14.06 KB	-rw-r--r--
longlines.elc	14.94 KB	-rw-r--r--
lpr.elc	8.61 KB	-rw-r--r--
ls-lisp.elc	17.35 KB	-rw-r--r--
macros.elc	6.99 KB	-rw-r--r--
makesum.elc	2.16 KB	-rw-r--r--
man.elc	40.03 KB	-rw-r--r--
master.elc	4.52 KB	-rw-r--r--
mb-depth.elc	3.12 KB	-rw-r--r--
md4.elc	8.14 KB	-rw-r--r--
menu-bar.elc	67.01 KB	-rw-r--r--
midnight.elc	8.92 KB	-rw-r--r--
minibuf-eldef.elc	5.15 KB	-rw-r--r--
minibuffer.elc	42.75 KB	-rw-r--r--
misc.elc	3.67 KB	-rw-r--r--
misearch.elc	8.96 KB	-rw-r--r--
mouse-copy.elc	4.07 KB	-rw-r--r--
mouse-drag.elc	7.33 KB	-rw-r--r--
mouse-sel.elc	20.93 KB	-rw-r--r--
mouse.elc	60.03 KB	-rw-r--r--
msb.elc	27.27 KB	-rw-r--r--
mwheel.elc	9.41 KB	-rw-r--r--
newcomment.elc	32.76 KB	-rw-r--r--
novice.elc	4.75 KB	-rw-r--r--
outline.elc	34.54 KB	-rw-r--r--
paren.elc	6.43 KB	-rw-r--r--
password-cache.elc	3.58 KB	-rw-r--r--
patcomp.el	775 B	-rw-r--r--
paths.el	7.28 KB	-rw-r--r--
pcmpl-cvs.elc	6 KB	-rw-r--r--
pcmpl-gnu.elc	8.21 KB	-rw-r--r--
pcmpl-linux.elc	3.17 KB	-rw-r--r--
pcmpl-rpm.elc	7.5 KB	-rw-r--r--
pcmpl-unix.elc	5.44 KB	-rw-r--r--
pcomplete.elc	34.1 KB	-rw-r--r--
pcvs-defs.elc	16.27 KB	-rw-r--r--
pcvs-info.elc	25.83 KB	-rw-r--r--
pcvs-parse.elc	15.34 KB	-rw-r--r--
pcvs-util.elc	26.8 KB	-rw-r--r--
pcvs.elc	85.52 KB	-rw-r--r--
pgg-def.elc	2.78 KB	-rw-r--r--
pgg-gpg.elc	13.09 KB	-rw-r--r--
pgg-parse.elc	13.45 KB	-rw-r--r--
pgg-pgp.elc	7.64 KB	-rw-r--r--
pgg-pgp5.elc	7.68 KB	-rw-r--r--
pgg.elc	18.01 KB	-rw-r--r--
printing.elc	157.56 KB	-rw-r--r--
proced.elc	57.95 KB	-rw-r--r--
ps-bdf.elc	13.34 KB	-rw-r--r--
ps-def.elc	3.09 KB	-rw-r--r--
ps-mule.elc	36.17 KB	-rw-r--r--
ps-print.elc	145.59 KB	-rw-r--r--
ps-samp.elc	5.5 KB	-rw-r--r--
recentf.elc	49.04 KB	-rw-r--r--
rect.elc	10.79 KB	-rw-r--r--
register.elc	10.69 KB	-rw-r--r--
repeat.elc	6.05 KB	-rw-r--r--
replace.elc	55.02 KB	-rw-r--r--
reposition.elc	2.88 KB	-rw-r--r--
reveal.elc	6.61 KB	-rw-r--r--
rfn-eshadow.elc	7.12 KB	-rw-r--r--
rot13.elc	2.6 KB	-rw-r--r--
ruler-mode.elc	22.48 KB	-rw-r--r--
s-region.elc	3.3 KB	-rw-r--r--
savehist.elc	10.57 KB	-rw-r--r--
saveplace.elc	7.51 KB	-rw-r--r--
sb-image.elc	2.51 KB	-rw-r--r--
scroll-all.elc	4.05 KB	-rw-r--r--
scroll-bar.elc	11.47 KB	-rw-r--r--
scroll-lock.elc	4.64 KB	-rw-r--r--
select.elc	11.8 KB	-rw-r--r--
server.elc	39.79 KB	-rw-r--r--
ses.elc	87.39 KB	-rw-r--r--
sha1.elc	8 KB	-rw-r--r--
shadowfile.elc	22.61 KB	-rw-r--r--
shell.elc	34.08 KB	-rw-r--r--
simple.elc	196.35 KB	-rw-r--r--
skeleton.elc	15.78 KB	-rw-r--r--
smerge-mode.elc	33.61 KB	-rw-r--r--
sort.elc	12.94 KB	-rw-r--r--
soundex.elc	1.34 KB	-rw-r--r--
speedbar.elc	115.06 KB	-rw-r--r--
startup.elc	60.78 KB	-rw-r--r--
strokes.elc	44.11 KB	-rw-r--r--
subdirs.el	426 B	-rw-r--r--
subr.elc	113.48 KB	-rw-r--r--
t-mouse.elc	3.38 KB	-rw-r--r--
tabify.elc	2 KB	-rw-r--r--
talk.elc	3.19 KB	-rw-r--r--
tar-mode.elc	52.24 KB	-rw-r--r--
tempo.elc	18.63 KB	-rw-r--r--
term.elc	99.67 KB	-rw-r--r--
terminal.elc	31.36 KB	-rw-r--r--
thingatpt.elc	10.84 KB	-rw-r--r--
thumbs.elc	26.23 KB	-rw-r--r--
time-stamp.elc	21.03 KB	-rw-r--r--
time.elc	18.2 KB	-rw-r--r--
timezone.elc	10.99 KB	-rw-r--r--
tmm.elc	13.9 KB	-rw-r--r--
tool-bar.elc	9.69 KB	-rw-r--r--
tooltip.elc	12.35 KB	-rw-r--r--
tree-widget.elc	20.87 KB	-rw-r--r--
tutorial.elc	21.41 KB	-rw-r--r--
type-break.elc	35.61 KB	-rw-r--r--
uniquify.elc	19.91 KB	-rw-r--r--
userlock.elc	4.69 KB	-rw-r--r--
vc-annotate.elc	22.68 KB	-rw-r--r--
vc-arch.elc	17.58 KB	-rw-r--r--
vc-bzr.elc	26.84 KB	-rw-r--r--
vc-cvs.elc	32.19 KB	-rw-r--r--
vc-dav.elc	5.3 KB	-rw-r--r--
vc-dir.elc	39.5 KB	-rw-r--r--
vc-dispatcher.elc	14.61 KB	-rw-r--r--
vc-git.elc	32.75 KB	-rw-r--r--
vc-hg.elc	25.95 KB	-rw-r--r--
vc-hooks.elc	32.75 KB	-rw-r--r--
vc-mtn.elc	10.95 KB	-rw-r--r--
vc-rcs.elc	34.99 KB	-rw-r--r--
vc-sccs.elc	13.24 KB	-rw-r--r--
vc-svn.elc	20.57 KB	-rw-r--r--
vc.elc	59.4 KB	-rw-r--r--
vcursor.elc	23.44 KB	-rw-r--r--
version.el	3.37 KB	-rw-r--r--
view.elc	35.96 KB	-rw-r--r--
vt-control.elc	2.06 KB	-rw-r--r--
vt100-led.elc	1.53 KB	-rw-r--r--
w32-fns.elc	15.82 KB	-rw-r--r--
w32-vars.elc	5.53 KB	-rw-r--r--
wdired.elc	21.69 KB	-rw-r--r--
whitespace.elc	59.83 KB	-rw-r--r--
wid-browse.elc	7.89 KB	-rw-r--r--
wid-edit.elc	104.76 KB	-rw-r--r--
widget.elc	1.37 KB	-rw-r--r--
windmove.elc	9.57 KB	-rw-r--r--
window.elc	57.4 KB	-rw-r--r--
winner.elc	11.61 KB	-rw-r--r--
woman.elc	107.73 KB	-rw-r--r--
x-dnd.elc	19.35 KB	-rw-r--r--
xml.elc	18.38 KB	-rw-r--r--
xt-mouse.elc	7.43 KB	-rw-r--r--

Code Editor : type-break.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:22 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/type-break.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`type-break.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'type-break nil "Encourage the user to take a rest from typing at suitable intervals." :prefix "type-break" :group 'keyboard)
#@213 Toggle typing break mode.
See the docstring for the `type-break-mode' command for more information.
Setting this variable directly does not take effect;
use either \[customize] or the function `type-break-mode'.
(custom-declare-variable 'type-break-mode 'nil '(#$ . 760) :set #[(symbol value) "\301\203	�\302\202\n�\303!\207" [value type-break-mode 1 -1] 2] :initialize 'custom-initialize-default :type 'boolean :group 'type-break :require 'type-break)
#@52 Number of seconds between scheduled typing breaks.
(custom-declare-variable 'type-break-interval '(* 60 60) '(#$ . 1220) :type 'integer :group 'type-break)
#@418 Number of seconds of idle time considered to be an adequate typing rest.

When this variable is non-nil, Emacs checks the idle time between
keystrokes.  If this idle time is long enough to be considered a "good"
rest from typing, then the next typing break is simply rescheduled for later.

If a break is interrupted before this much time elapses, the user will be
asked whether or not really to interrupt the break.
(custom-declare-variable 'type-break-good-rest-interval '(/ type-break-interval 6) '(#$ . 1383) :type 'integer :group 'type-break)
#@348 Number of seconds considered to be an adequate explicit typing rest.

When this variable is non-nil, its value is considered to be a "good"
length (in seconds) for a break initiated by the command `type-break',
overriding `type-break-good-rest-interval'.  This provides querying of
break interruptions when `type-break-good-rest-interval' is nil.
(custom-declare-variable 'type-break-good-break-interval 'nil '(#$ . 1938) :type 'integer :group 'type-break)
#@1080 Upper and lower bound on number of keystrokes for considering typing break.
This structure is a pair of numbers (MIN . MAX).

The first number is the minimum number of keystrokes that must have been
entered since the last typing break before considering another one, even if
the scheduled time has elapsed; the break is simply rescheduled until later
if the minimum threshold hasn't been reached.  If this first value is nil,
then there is no minimum threshold; as soon as the scheduled time has
elapsed, the user will always be queried.

The second number is the maximum number of keystrokes that can be entered
before a typing break is requested immediately, pre-empting the originally
scheduled break.  If this second value is nil, then no pre-emptive breaks
will occur; only scheduled ones will.

Keys with bucky bits (shift, control, meta, etc) are counted as only one
keystroke even though they really require multiple keys to generate them.

The command `type-break-guesstimate-keystroke-threshold' can be used to
guess a reasonably good pair of values for this variable.
(custom-declare-variable 'type-break-keystroke-threshold '(let* ((wpm 35) (avg-word-length 5) (upper (* wpm avg-word-length (/ type-break-interval 60))) (lower (/ upper 5))) (cons lower upper)) '(#$ . 2403) :type 'sexp :group 'type-break)
#@171 Non-nil means ask whether or not to prompt user for breaks.
If so, call the function specified in the value of the variable
`type-break-query-function' to do the asking.
(custom-declare-variable 'type-break-query-mode 't '(#$ . 3728) :type 'boolean :group 'type-break)
#@233 Function to use for making query for a typing break.
It should take a string as an argument, the prompt.
Usually this should be set to `yes-or-no-p' or `y-or-n-p'.

To avoid being queried at all, set `type-break-query-mode' to nil.
(custom-declare-variable 'type-break-query-function ''yes-or-no-p '(#$ . 4004) :type '(radio function (function-item yes-or-no-p) (function-item y-or-n-p)) :group 'type-break)
#@177 Number of seconds between queries to take a break, if put off.
The user will continue to be prompted at this interval until he or she
finally submits to taking a typing break.
(custom-declare-variable 'type-break-query-interval '60 '(#$ . 4419) :type 'integer :group 'type-break)
#@184 List of time intervals for warnings about upcoming typing break.
At each of the intervals (specified in seconds) away from a scheduled
typing break, print a warning in the echo area.
(custom-declare-variable 'type-break-time-warning-intervals ''(300 120 60 30) '(#$ . 4706) :type '(repeat integer) :group 'type-break)
#@284 List of keystroke measurements for warnings about upcoming typing break.
At each of the intervals (specified in keystrokes) away from the upper
keystroke threshold, print a warning in the echo area.
If either this variable or the upper threshold is set, then no warnings
will occur.
(custom-declare-variable 'type-break-keystroke-warning-intervals ''(300 200 100 50) '(#$ . 5031) :type '(repeat integer) :group 'type-break)
#@178 Number of keystrokes for which warnings should be repeated.
That is, for each of this many keystrokes the warning is redisplayed
in the echo area to make sure it's really seen.
(custom-declare-variable 'type-break-warning-repeat '40 '(#$ . 5462) :type 'integer :group 'type-break)
#@98 Timestamp format used to prefix messages.
Format specifiers are as used by `format-time-string'.
(custom-declare-variable 'type-break-time-stamp-format '"[%H:%M] " '(#$ . 5749) :type 'string :group 'type-break)
#@271 List of functions to consider running as demos during typing breaks.
When a typing break begins, one of these functions is selected randomly
to have Emacs do something interesting.

Any function in this list should start a demo which ceases as soon as a
key is pressed.
(custom-declare-variable 'type-break-demo-functions ''(type-break-demo-boring type-break-demo-life type-break-demo-hanoi) '(#$ . 5967) :type '(repeat function) :group 'type-break)
#@64 Show word per minute and keystroke figures in the Boring demo.
(custom-declare-variable 'type-break-demo-boring-stats 'nil '(#$ . 6423) :type 'boolean :group 'type-break)
#@31 Use slightly terser messages.
(custom-declare-variable 'type-break-terse-messages 'nil '(#$ . 6600) :type 'boolean :group 'type-break)
#@105 Name of file used to save state across sessions.
If this is nil, no data will be saved across sessions.
(custom-declare-variable 'type-break-file-name '(convert-standard-filename "~/.type-break") '(#$ . 6742) :type 'file :group 'type-break)
#@466 Hook run indirectly by `post-command-hook' for typing break functions.
This is not really intended to be set by the user, but it's probably
harmless to do so.  Mainly it is used by various parts of the typing break
program to delay actions until after the user has completed some command.
It exists because `post-command-hook' itself is inaccessible while its
functions are being run, and some type-break--related functions want to
remove themselves after running.
(defvar type-break-post-command-hook '(type-break-check) (#$ . 6990))
#@173 Non-nil means put type-break related messages in the mode line.
Otherwise, messages typically go in the echo area.

See also `type-break-mode-line-format' and its members.
(custom-declare-variable 'type-break-mode-line-message-mode 'nil '(#$ . 7532) :type 'boolean :group 'type-break)
#@64 *Format of messages in the mode line concerning typing breaks.
(defvar type-break-mode-line-format '(type-break-mode-line-message-mode ("" type-break-mode-line-break-message type-break-mode-line-warning)) (#$ . -7823))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\310\"\210\311B\302\311!\204<�\303\311\312\"\210\306\207" [current-load-list type-break-mode-line-break-message default-boundp set-default (type-break-mode-line-break-message-p type-break-mode-line-break-string) type-break-mode-line-break-message-p nil type-break-mode-line-break-string " *** TAKE A TYPING BREAK NOW ***" type-break-mode-line-warning (type-break-mode-line-break-message-p ("") (type-break-warning-countdown-string (" *** " "Break in " type-break-warning-countdown-string " " type-break-warning-countdown-string-type "***")))] 3)
#@285 If non-nil, this is a countdown for the next typing break.

This variable, in conjunction with `type-break-warning-countdown-string-type'
(which indicates whether this value is a number of keystrokes or seconds)
is installed in `mode-line-format' to notify of imminent typing breaks.
(defvar type-break-warning-countdown-string nil (#$ . 8719))
#@112 Indicates the unit type of `type-break-warning-countdown-string'.
It will be either "seconds" or "keystrokes".
(defvar type-break-warning-countdown-string-type nil (#$ . 9071))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\304\"\210\310B\302\310!\204<�\303\310\304\"\210\311B\302\311!\204L�\303\311\312 \"\210\313B\302\313!\204[�\303\313\304\"\210\314B\302\314!\204j�\303\314\304\"\210\315B\302\315!\204y�\303\315\306\"\210\316B\302\316!\204\210�\303\316\306\"\210\317B\302\317!\204\227�\303\317\304\"\210\304\207" [current-load-list type-break-alarm-p default-boundp set-default nil type-break-keystroke-count 0 type-break-time-last-break type-break-time-next-break type-break-time-last-command current-time type-break-current-time-warning-interval type-break-current-keystroke-warning-interval type-break-time-warning-count type-break-keystroke-warning-count type-break-interval-start] 3)
#@3527 Enable or disable typing-break mode.
This is a minor mode, but it is global to all buffers by default.

When this mode is enabled, the user is encouraged to take typing breaks at
appropriate intervals; either after a specified amount of time or when the
user has exceeded a keystroke threshold.  When the time arrives, the user
is asked to take a break.  If the user refuses at that time, Emacs will ask
again in a short period of time.  The idea is to give the user enough time
to find a good breaking point in his or her work, but be sufficiently
annoying to discourage putting typing breaks off indefinitely.

A negative prefix argument disables this mode.
No argument or any non-negative argument enables it.

The user may enable or disable this mode by setting the variable of the
same name, though setting it in that way doesn't reschedule a break or
reset the keystroke counter.

If the mode was previously disabled and is enabled as a consequence of
calling this function, it schedules a break with `type-break-schedule' to
make sure one occurs (the user can call that command to reschedule the
break at any time).  It also initializes the keystroke counter.

The variable `type-break-interval' specifies the number of seconds to
schedule between regular typing breaks.  This variable doesn't directly
affect the time schedule; it simply provides a default for the
`type-break-schedule' command.

If set, the variable `type-break-good-rest-interval' specifies the minimum
amount of time which is considered a reasonable typing break.  Whenever
that time has elapsed, typing breaks are automatically rescheduled for
later even if Emacs didn't prompt you to take one first.  Also, if a break
is ended before this much time has elapsed, the user will be asked whether
or not to continue.  A nil value for this variable prevents automatic
break rescheduling, making `type-break-interval' an upper bound on the time
between breaks.  In this case breaks will be prompted for as usual before
the upper bound if the keystroke threshold is reached.

If `type-break-good-rest-interval' is nil and
`type-break-good-break-interval' is set, then confirmation is required to
interrupt a break before `type-break-good-break-interval' seconds
have passed.  This provides for an upper bound on the time between breaks
together with confirmation of interruptions to these breaks.

The variable `type-break-keystroke-threshold' is used to determine the
thresholds at which typing breaks should be considered.  You can use
the command `type-break-guesstimate-keystroke-threshold' to try to
approximate good values for this.

There are several variables that affect how or when warning messages about
imminent typing breaks are displayed.  They include:

`type-break-mode-line-message-mode'
        `type-break-time-warning-intervals'
        `type-break-keystroke-warning-intervals'
        `type-break-warning-repeat'
        `type-break-warning-countdown-string'
        `type-break-warning-countdown-string-type'

There are several variables that affect if, how, and when queries to begin
a typing break occur.  They include:

`type-break-query-mode'
        `type-break-query-function'
        `type-break-query-interval'

The command `type-break-statistics' prints interesting things.

Finally, a file (named `type-break-file-name') is used to store information
across Emacs sessions.  This provides recovery of the break status between
sessions and after a crash.  Manual changes to the file may result in
problems.
(defalias 'type-break-mode #[(&optional prefix) "\306 \210\307\n!\310Y	\203�\203�t\203\311�\311\312!\210\202\311�\203\236�\2030�r\313\314\"q\210\315)
\2046�\316\317 \236\204D�! B \320 \210\321\322!\210\323 \206R�\324 \"\325\322#\"\203\201�\326\"\324 \"\211#$W\203\201�\327 %\330&!\210\"&$#Z\202\214�\324 &\330&!\210$)&$#\210t\203\311�\311\331!\210\202\311�\320 \210\321\322!\210\332 \210\333 \210\203\301�r\313\314\"q\210\334\322!\210\335 \210\336 \210)t\203\311�\311\337!\210)\207" [type-break-mode already-enabled prefix type-break-file-name buffer-save-without-query global-mode-string type-break-check-post-command-hook prefix-numeric-value 0 message "Type Break mode is already enabled" find-file-noselect nowarn t ("") type-break-mode-line-message-mode type-break-keystroke-reset type-break-mode-line-countdown-or-break nil type-break-get-previous-time current-time type-break-schedule type-break-time-difference type-break-get-previous-count type-break-file-time "Type Break mode is enabled and set" type-break-cancel-schedule do-auto-save set-buffer-modified-p unlock-buffer kill-this-buffer "Type Break mode is disabled" minor-mode-alist type-break-mode-line-format type-break-time-last-break diff type-break-interval type-break-keystroke-count type-break-interval-start] 4 (#$ . 10061) "P"])
#@477 Enable or disable warnings in the mode line about typing breaks.

A negative PREFIX argument disables this mode.
No argument or any non-negative argument enables it.

The user may also enable or disable this mode simply by setting the
variable of the same name.

Variables controlling the display of messages in the mode line include:

`mode-line-format'
        `global-mode-string'
        `type-break-mode-line-break-message'
        `type-break-mode-line-warning'
(defalias 'type-break-mode-line-message-mode #[(&optional prefix) "\302!\303Yt\203�	\203�\304\305!\210\202�\304\306!\210	\207" [prefix type-break-mode-line-message-mode prefix-numeric-value 0 message "type-break-mode-line-message-mode is enabled" "type-break-mode-line-message-mode is disabled"] 2 (#$ . 14931) "P"])
#@458 Enable or disable warnings in the mode line about typing breaks.

When enabled, the user is periodically queried about whether to take a
typing break at that moment.  The function which does this query is
specified by the variable `type-break-query-function'.

A negative PREFIX argument disables this mode.
No argument or any non-negative argument enables it.

The user may also enable or disable this mode simply by setting the
variable of the same name.
(defalias 'type-break-query-mode #[(&optional prefix) "\302!\303Yt\203�	\203�\304\305!\210\202�\304\306!\210	\207" [prefix type-break-query-mode prefix-numeric-value 0 message "type-break-query-mode is enabled" "type-break-query-mode is disabled"] 2 (#$ . 15736) "P"])
#@43 Auto-save name of `type-break-file-name'.
(defvar type-break-auto-save-file-name (byte-code "\302 )\207" [type-break-file-name buffer-file-name make-auto-save-file-name] 1) (#$ . 16473))
#@71 File break time in `type-break-file-name', unless the file is locked.
(defalias 'type-break-file-time #[(&optional time) "\205\"�\304!;?\205\"�r\305\306\"q\210\307\310 \210\311\312\n\206�\"c*\207" [type-break-file-name inhibit-read-only time type-break-interval-start file-locked-p find-file-noselect nowarn t erase-buffer format "%s\n\n"] 3 (#$ . 16668)])
#@76 File keystroke count in `type-break-file-name', unless the file is locked.
(defalias 'type-break-file-keystroke-count #[nil "\205-�\304!;?\205-�\305r\306\307\"q\210\212\310eb\210\305y\210`\212\305\210`)|\210\311\312\"c,\207" [type-break-file-name deactivate-mark inhibit-read-only type-break-keystroke-count file-locked-p nil find-file-noselect nowarn t format "%s"] 3 (#$ . 17037)])
#@88 If TIME is in the format returned by `current-time' then
return TIME, else return nil.
(defalias 'timep #[(time) "<\205!�G\301=\205!�@\250\205!�A@\250\205!�\3028\250\205!�\207" [time 3 2] 2 (#$ . 17434)])
#@27 Return file to read from.
(defalias 'type-break-choose-file #[nil "\204�\302\207\303	!\203�\304	!\203�	\207\303!\203\"�\304!\203\"�\207\302\207" [type-break-file-name type-break-auto-save-file-name nil file-exists-p file-readable-p] 2 (#$ . 17651)])
#@143 Get previous break time from `type-break-file-name'.
Returns nil if the file is missing or if the time breaks with the
`current-time' format.
(defalias 'type-break-get-previous-time #[nil "\301 \211\205�\302r\303\304\"q\210\305\306\307\217)!)\207" [file type-break-choose-file timep find-file-noselect nowarn nil (byte-code "\212eb\210\300p!)\207" [read] 2) ((end-of-file (error "End of file in `%s'" file)))] 5 (#$ . 17915)])
#@130 Get previous keystroke count from `type-break-file-name'.
Return 0 if the file is missing or if the form read is not an
integer.
(defalias 'type-break-get-previous-count #[nil "\301 \211\203�r\302\303\"q\210\304\305\306\217)\211\250\203�\202�\307)\207" [file type-break-choose-file find-file-noselect nowarn nil (byte-code "\212eb\210\300y\210\301p!)\207" [1 read] 2) ((end-of-file (error "End of file in `%s'" file))) 0] 4 (#$ . 18352)])
#@230 Take a typing break.

During the break, a demo selected from the functions listed in
`type-break-demo-functions' is run.

After the typing break is finished, the next break is scheduled
as per the function `type-break-schedule'.
(defalias 'type-break #[nil "\306 \210\307 \210\310\311\312\"\210\313\314 	\203[�\315\213\210\206�\f\211\203U�\316\314 \"\211
Y\2035�\317\202Q�\320\203A�\321\202B�\322\323 \324
Z!#!\204Q�\317)\202W�\317)\202�*\325 \210\326 \210\327\317!\210\330 \207" [start-time continue type-break-time-last-break type-break-good-rest-interval type-break-good-break-interval good-interval do-auto-save type-break-cancel-schedule remove-hook type-break-post-command-hook type-break-do-query t current-time ((byte-code "\305 \306 =\203\f�\307\310!\210\311 \210\312\313 !\210\204�\314\315!\210\316\317!\210	G\316\n!\211	8\320\321\322\217\210+\320\207" [type-break-terse-messages type-break-demo-functions len idx fn selected-window minibuffer-window other-window 1 delete-other-windows scroll-right window-width message "Press any key to resume from typing break." random t nil (funcall fn) ((error))] 4)) type-break-time-difference nil format "%s%s remaining.  Continue break? " "%sYou really ought to rest %s more.  Continue break? " type-break-time-stamp type-break-format-time type-break-keystroke-reset type-break-file-time type-break-mode-line-countdown-or-break type-break-schedule break-secs type-break-query-function type-break-terse-messages] 8 (#$ . 18805) nil])
#@282 Schedule a typing break for TIME seconds from now.
If time is not specified it defaults to `type-break-interval'.
START and INTERVAL are used when recovering a break.
START is the start of the break (defaults to now).
INTERVAL is the full length of an interval (defaults to TIME).
(defalias 'type-break-schedule #[(&optional time start interval) "\204�	\305 \210\306 \210\307\310\"\210\311\312]\313\314#\210\315\n\206 �\316 \206%�\"\211\207" [time type-break-interval start interval type-break-time-next-break type-break-check-post-command-hook type-break-cancel-schedule type-break-time-warning-schedule reset type-break-run-at-time 1 nil type-break-alarm type-break-time-sum current-time] 4 (#$ . 20322) (list (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))])
(defalias 'type-break-cancel-schedule #[nil "\302 \210\303\304!\210\305\211\211\207" [type-break-alarm-p type-break-time-next-break type-break-cancel-time-warning-schedule type-break-cancel-function-timers type-break-alarm nil] 3])
(defalias 'type-break-time-warning-schedule #[(&optional time resetp) "\306\307 \210)\310\311\312\313#\210	\205V�\n\203�	\204 �\314\315 \f\"\2032�@V\2032�A\211\204$�\205V�@ZA\316\317]\306\320#\210\n\203N�\306\211\207\321!\322\211\207" [type-break-current-time-warning-interval type-break-time-warning-intervals resetp time type-break-time-next-break type-break-warning-countdown-string nil type-break-cancel-time-warning-schedule add-hook type-break-post-command-hook type-break-time-warning append type-break-time-difference current-time type-break-run-at-time 1 type-break-time-warning-alarm number-to-string "seconds" type-break-warning-countdown-string-type] 5])
(defalias 'type-break-cancel-time-warning-schedule #[nil "\304\305!\210\306\307\310\"\210\311\312\211\207" [type-break-time-warning-intervals type-break-current-time-warning-interval type-break-time-warning-count type-break-warning-countdown-string type-break-cancel-function-timers type-break-time-warning-alarm remove-hook type-break-post-command-hook type-break-time-warning 0 nil] 3])
(defalias 'type-break-alarm #[nil "\301 \210\302\303\304!\207" [type-break-alarm-p type-break-check-post-command-hook t type-break-mode-line-countdown-or-break break] 2])
(defalias 'type-break-time-warning-alarm #[nil "\302 \210\303 \210\304 \210\305\306!\207" [type-break-warning-repeat type-break-time-warning-count type-break-check-post-command-hook type-break-time-warning-schedule type-break-time-warning type-break-mode-line-countdown-or-break countdown] 2])
(defalias 'type-break-run-tb-post-command-hook #[nil "\205�\301\302!\207" [type-break-mode run-hooks type-break-post-command-hook] 2])
#@225 Ask to take a typing break if appropriate.
This may be the case either because the scheduled time has come (and the
minimum keystroke threshold has been reached) or because the maximum
keystroke threshold has been exceeded.
(defalias 'type-break-check #[nil "\306 \210@A\203'�\307\f\310 \"V\203$�\311 \210\312\313!\210\310 \314 \210\310 \203Q�\315 \316!\203H�\317H:\203H�\317H@\320>\204P�G\\)\203\217�\321 \206\312�\322 \323 =\206\312�	\203s�	W\203s�\314 \202\312�\n\203\212�	\203\212�\nZ	W\203\212�\311 \210	\324 \202\312�\203\244�\n\203\244�\317U\203\244�\325 \206\312�\n\205\312�\nV\205\312�\321 ?\205\312�\322 \323 =?\205\312�\311 \210	\206\306�\317\324 *\207" [type-break-keystroke-threshold min-threshold max-threshold type-break-good-rest-interval type-break-time-last-command type-break-time-last-break type-break-file-keystroke-count type-break-time-difference current-time type-break-keystroke-reset type-break-mode-line-countdown-or-break nil type-break-schedule this-command-keys vectorp 0 (mouse-movement) input-pending-p selected-window minibuffer-window type-break-query type-break-check-keystroke-warning keys type-break-keystroke-count type-break-alarm-p type-break-keystroke-warning-intervals type-break-keystroke-warning-count] 3 (#$ . 23040)])
(defalias 'type-break-check-keystroke-warning #[nil "A	Z@\204�\306\202@�\n@V\203�\306\202@�@\203,�\n@W\203,�A\211\202�\f\307\310\311\"\210\312\n!\313\314\315!\210\316)\207" [type-break-keystroke-threshold type-break-keystroke-count left type-break-current-keystroke-warning-interval type-break-warning-repeat type-break-keystroke-warning-count nil add-hook type-break-post-command-hook type-break-keystroke-warning number-to-string "keystrokes" type-break-mode-line-countdown-or-break countdown t type-break-warning-countdown-string type-break-warning-countdown-string-type] 4])
(defalias 'type-break-query #[nil "\300\301\302\"\207" [add-hook type-break-post-command-hook type-break-do-query] 3])
(defalias 'type-break-do-query #[nil "\204�\302 \210\303	!\210\304\305\306\"\207\307\310!\205�\311\312\313\217\207" [type-break-query-mode type-break-query-interval type-break-noninteractive-query type-break-schedule remove-hook type-break-post-command-hook type-break-do-query sit-for 2 nil (byte-code "\305\306 \210\307\310\311\"\210\n\312\313\314 \203�\315\202�\316#!*\203#�\317 \207\320\f!\207" [this-command type-break-mode type-break-query-function type-break-terse-messages type-break-query-interval nil type-break-cancel-schedule remove-hook type-break-post-command-hook type-break-do-query format "%s%s" type-break-time-stamp "Break now? " "Take a break from typing now? " type-break type-break-schedule] 5) ((quit (type-break-schedule type-break-query-interval)))] 3])
#@188 Null query function which doesn't interrupt user and assumes `no'.
It prints a reminder in the echo area to take a break, but doesn't enforce
this or ask the user to start one right now.
(defalias 'type-break-noninteractive-query #[(&optional ignored-args) "\206�\301\302!\210\303\304\305 \"\210\306\307!\210\301\302!\210\310\207" [type-break-mode-line-message-mode beep t message "%sYou should take a typing break now.  Do `M-x type-break'." type-break-time-stamp sit-for 1 nil] 3 (#$ . 25852)])
(defalias 'type-break-time-warning #[nil "@\203\f�	@W\206L�\n\306V\203D�\307\310 \"\311\f!\312 \313 =\206B�\314>\206B�?\205B�\315\316!\210\317\320\321 \322\f!#\210\nS\211)\207\323\324\325\"\210\326\211\207" [type-break-keystroke-threshold type-break-keystroke-count type-break-time-warning-count type-break-time-next-break timeleft type-break-warning-countdown-string 0 type-break-time-difference current-time number-to-string selected-window minibuffer-window (digit-argument universal-argument) sit-for 2 message "%sWarning: typing break due in %s." type-break-time-stamp type-break-format-time remove-hook type-break-post-command-hook type-break-time-warning nil this-command type-break-mode-line-message-mode] 5])
(defalias 'type-break-keystroke-warning #[nil "\306V\2033�\307	A\nZ!\310 \311 =\206;�\f\312>\2062�
?\2052�\313\314!\210\315\316\317 	A\nZ#\210S\211\207\320\321\322\"\210\323\211\207" [type-break-keystroke-warning-count type-break-keystroke-threshold type-break-keystroke-count type-break-warning-countdown-string this-command type-break-mode-line-message-mode 0 number-to-string selected-window minibuffer-window (digit-argument universal-argument) sit-for 2 message "%sWarning: typing break due in %s keystrokes." type-break-time-stamp remove-hook type-break-post-command-hook type-break-keystroke-warning nil] 5])
(defalias 'type-break-mode-line-countdown-or-break #[(&optional type) "\203-�	\304=\203�\305\306\307\310#\210\202-�	\311=\203$�\n?\312\306\307\"\210\202-�\313\211\312\306\307\"\210\307 \207" [type-break-mode-line-message-mode type type-break-mode-line-break-message-p type-break-warning-countdown-string countdown add-hook type-break-post-command-hook type-break-force-mode-line-update append break remove-hook nil] 5])
#@210 Print statistics about typing breaks in a temporary buffer.
This includes the last time a typing break was taken, when the next one is
scheduled, the keystroke thresholds and the current keystroke count, etc.
(defalias 'type-break-statistics #[nil "\306\220\307\310\311\203
�\312\202�\313	\203�\312\202�\313\n\203�\312\202 �\313\203*�\314!\202+�\315\203C�\f\203C�\310\316\314\f!\317\320\321 \f\"!#\202D�\322
@\206J�\323
A\206P�\323&	!\221\207" [type-break-mode type-break-query-mode type-break-mode-line-message-mode type-break-time-last-break type-break-time-next-break type-break-keystroke-threshold "*Typing Break Statistics*" princ format "Typing break statistics\n-----------------------\n\nTyping break mode is currently %s.\nInteractive query for breaks is %s.\nWarnings of imminent typing breaks in mode line is %s.\n\nLast typing break ended     : %s\nNext scheduled typing break : %s\n\nMinimum keystroke threshold : %s\nMaximum keystroke threshold : %s\nCurrent keystroke count     : %s" "enabled" "disabled" current-time-string "never" "%s	(%s from now)" type-break-format-time type-break-time-difference current-time "none scheduled" "none" type-break-keystroke-count] 15 (#$ . 28133) nil])
#@1169 Guess values for the minimum/maximum keystroke threshold for typing breaks.

If called interactively, the user is prompted for their guess as to how
many words per minute they usually type.  This value should not be your
maximum WPM, but your average.  Of course, this is harder to gauge since it
can vary considerably depending on what you are doing.  For example, one
tends to type less when debugging a program as opposed to writing
documentation.  (Perhaps a separate program should be written to estimate
average typing speed.)

From that, this command sets the values in `type-break-keystroke-threshold'
based on a fairly simple algorithm involving assumptions about the average
length of words (5).  For the minimum threshold, it uses about a fifth of
the computed maximum threshold.

When called from Lisp programs, the optional args WORDLEN and FRAC can be
used to override the default assumption about average word length and the
fraction of the maximum threshold to which to set the minimum threshold.
FRAC should be the inverse of the fractional value; for example, a value of
2 would mean to use one half, a value of 4 would mean to use one quarter, etc.
(defalias 'type-break-guesstimate-keystroke-threshold #[(wpm &optional wordlen frac) "\306	\206�\307\n\310\245#\211\f\206�\307\245\f\204�\311\211B\f\f
\240\210\f\241\210t\2032�\312\313
#\210\f*\207" [wpm wordlen type-break-interval upper frac lower * 5 60 nil message "min threshold: %d	max threshold: %d" type-break-keystroke-threshold] 6 (#$ . 29355) "NOn average, how many words per minute do you type? "])
(defalias 'type-break-time-difference #[(a b) "\302@	@Z\303\"A@	A@Z\\\207" [b a lsh 16] 3])
(defalias 'type-break-time-sum #[(&rest tmlist) "\305\211\211\306\f\203?�\f@\fA\247\203�\n\\\202�@\206%�\305\\\nA@\206/�\305\\	AA@\206:�\305\\\202�	\307Y\203S�	\307\245\n\\	\307_Z\310\n\311\"\211\305V\203g�\312\n\313\"\\\n	E,\207" [tem micro low high tmlist 0 nil 1000000 lsh -16 logand 65535] 5])
(defalias 'type-break-time-stamp #[(&optional when) "\302\303!\203�\303	\"\207\304\305\306	!\307\310O\"\207" [type-break-time-stamp-format when fboundp format-time-string format "[%s] " current-time-string 11 16] 5])
(defalias 'type-break-format-time #[(secs) "\302\245\211\303U\203�\304\305	\"\202/�	\306V\203�\304\307	\"\202/�\303U\203+�\304\310\"\202/�\304\311\")\207" [secs mins 60 1 format "%d minute" 0 "%d minutes" "%d second" "%d seconds"] 4])
(defalias 'type-break-keystroke-reset #[nil "\305 \306\211\307\310\311\"\207" [type-break-interval-start type-break-keystroke-count type-break-keystroke-warning-count type-break-keystroke-warning-intervals type-break-current-keystroke-warning-interval current-time 0 remove-hook type-break-post-command-hook type-break-keystroke-warning] 4])
#@124 Force the mode-line of the current buffer to be redisplayed.
With optional non-nil ALL, force redisplay of all mode-lines.
(defalias 'type-break-force-mode-line-update #[(&optional all) "\203\n�\212\301 q\210)\302\303 !\207" [all other-buffer set-buffer-modified-p buffer-modified-p] 2 (#$ . 32183)])
(defalias 'type-break-check-post-command-hook #[nil "\300\301\302\303#\207" [add-hook post-command-hook type-break-run-tb-post-command-hook append] 4])
(defalias 'type-break-run-at-time #[(time repeat function) "\303\304\305\217\210\306	\n#\207" [time repeat function nil (byte-code "\300\301!\204\n�\300\302!\210\300\207" [require timer itimer] 2) ((error)) run-at-time] 4])
(defalias 'type-break-cancel-function-timers #[(function) "\302\303	!)\207" [timer-dont-exit function t cancel-function-timers] 2])
(defalias 'type-break-catch-up-event #[nil "\211\250\203�\302\303	\304\305\306\307\"S!\"!\203�\310\311	!!\2068�	9\203)�	\312N\2068�	:\2058�	@9\2058�	@\312N)\205F�\313\314!>\205F�\315 \207" [last-input-event obj zerop logand lognot lsh 134217728 1 characterp event-basic-type event-symbol-elements down event-modifiers read-event] 8])
#@31 Take a hanoiing typing break.
(defalias 'type-break-demo-hanoi #[nil "\300\301!\203\n�\302\301!\210\303\304\305\217\207" [get-buffer "*Hanoi*" kill-buffer nil (byte-code "\300\301 \302\245!\210\303 \210\304 \210\305\306!\207" [hanoi window-width 8 read-event type-break-catch-up-event kill-buffer "*Hanoi*"] 3) ((quit (byte-code "\300 \210\301 \210\302\303!\205�\304\303!\207" [read-event type-break-catch-up-event get-buffer "*Hanoi*" kill-buffer] 2)))] 3 (#$ . 33340)])
#@37 Take a typing break and get a life.
(defalias 'type-break-demo-life #[nil "\301\205�\302\303\304!\203�\305\304!\210\302\306\307\217\210\202�)\207" [continue t nil get-buffer "*Life*" kill-buffer (byte-code "\300\301!\210\302 \210\303 \210\304\305!\207" [life 3 read-event type-break-catch-up-event kill-buffer "*Life*"] 2) ((life-extinct (byte-code "\301\302\303\304N\"\210\305\301\207" [continue message "%s" life-extinct error-message t] 4)) (quit (byte-code "\300 \210\301\302!\203
�\303\302!\210\300\207" [type-break-catch-up-event get-buffer "*Life*" kill-buffer] 2)))] 3 (#$ . 33819)])
#@27 Boring typing break demo.
(defalias 'type-break-demo-boring #[nil "\203�\306\202	�\307\310\311\211\211\211\f\311\312\313\217.\207" [type-break-terse-messages tmsg timeleft elapsed lines buffer-name "" "Press any key to resume from typing break" "*Typing Break Buffer*" nil (byte-code "\306\307!!\210\310p!\210\311 \312\245\n\204�	S\203�	\312Z\313	\314\"\315 \204\316 \210\317\f\320 \")\2068�*\211+\203q�+
Z\211,\321V\203^�\322\n\203S�\323\202T�\324\325,!\"-\202\201�\322\n\203g�\326\202h�\327\325
!\"-\202\201�\322\n\203z�\330\202{�\327\325
!\"-)	\313\331 -GZ\312\245\332\"-\261\210.G\321V\203\254�\333\313\331 .GZ\312\245\332\".\261\210\203\f\322\n\203\271�\334\202\272�\335/\"0\313\331 0GZ\312\245\332\"1\336/!\337\245\3172\f\"\340\245\2453\34110\261\210\n\203\364�\322\34213#c\210\202\322\3433\"0\313\331 0GZ\312\245\332\"0\261\210+eb\210\344\345!\210\202#�\346 \210\347 \210\350!\207" [buffer-name lines type-break-terse-messages type-break-demo-boring-stats type-break-time-last-break elapsed switch-to-buffer get-buffer-create buffer-disable-undo window-body-height 2 make-string 10 input-pending-p erase-buffer type-break-time-difference current-time 0 format "Break remaining: %s" "You should rest for %s more" type-break-format-time "Break complete (%s elapsed in total)" "Typing break has lasted %s" "Break has lasted %s" window-width 32 "\n" "Since last break: %s keystrokes\n" "Since your last break you've typed %s keystrokes\n" float 5 60.0 "\n\n" "                  %s%.2f wpm" "at an average of %.2f words per minute" sit-for 60 read-event type-break-catch-up-event kill-buffer type-break-good-rest-interval type-break-good-break-interval good-interval timeleft tmsg rmsg type-break-keystroke-count message column-spaces type-break-interval-start wpm] 5) ((quit (byte-code "\301!\205	�\302!\207" [buffer-name get-buffer kill-buffer] 2))) rmsg] 6 (#$ . 34424)])
(byte-code "\301\302!\210\203\f�\300\303!\210\301\207" [type-break-mode provide type-break 1] 2)

${this.title}

Code Editor : type-break.elc