;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\313&\210\302\317\304\305\320DD\321\310\322\312\313&\207" [require tpu-edt custom-declare-variable tpu-top-scroll-margin funcall function #[0 "\300\207" [0] 1 #1=""] "Scroll margin at the top of the screen.\nInterpreted as a percent of the current window size." :type integer :group tpu tpu-bottom-scroll-margin #[0 "\300\207" [0] 1 #1#] "Scroll margin at the bottom of the screen.\nInterpreted as a percent of the current window size." tpu-backward-char-like-tpu #[0 "\300\207" [t] 1 #1#] "If non-nil, in free cursor mode backward-char (left-arrow) works\njust like TPU/edt.  Otherwise, backward-char will move to the end of\nthe previous line when starting from a line beginning." boolean] 8)
#@109 Non-nil if Tpu-Cursor-Free mode is enabled.
Use the command `tpu-cursor-free-mode' to change this variable.
(defvar tpu-cursor-free-mode nil (#$ . 893))
(make-variable-buffer-local 'tpu-cursor-free-mode)
#@630 Minor mode to allow the cursor to move freely about the screen.

This is a minor mode.  If called interactively, toggle the
`Tpu-Cursor-Free mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `tpu-cursor-free-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'tpu-cursor-free-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\2048\311 \210\204C\312\313!\210\202G\312\314!\210\315\316\203Q\317\202R\320\"\210\321\322!\203t\302 \203f\211\302 \232\203t\312\323\203p\324\202q\325\326#\210\210\327 \210\207" [tpu-cursor-free-mode local-minor-modes current-message toggle 1 nil t boundp delq tpu-trim-line-ends message "The cursor is now bound to the flow of your text." "The cursor will now move freely about the screen." run-hooks tpu-cursor-free-mode-hook tpu-cursor-free-mode-on-hook tpu-cursor-free-mode-off-hook called-interactively-p any "Tpu-Cursor-Free mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 1104) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar tpu-cursor-free-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\"\207" [tpu-cursor-free-mode-map tpu-cursor-free-mode-hook variable-documentation put "Hook run after entering or leaving `tpu-cursor-free-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode tpu-cursor-free-mode boundp add-hook picture-mode-hook tpu-set-cursor-free] 6)
#@63 Eliminate whitespace at ends of lines, if the cursor is free.
(defalias 'tpu-trim-line-ends-if-needed #[0 "\301 \205\205\302 \207" [tpu-cursor-free-mode buffer-modified-p tpu-trim-line-ends] 1 (#$ . 3200)])
(add-hook 'before-save-hook 'tpu-trim-line-ends-if-needed)
#@61 Enforce scroll margin at the top of screen.

(fn BEG LINES)
(defalias 'tpu-top-check #[514 "\301 _\302\245
W\203\303!\207Z
W\205\303
!\207" [tpu-top-scroll-margin window-height 100 recenter] 5 (#$ . 3477)])
#@64 Enforce scroll margin at the bottom of screen.

(fn BEG LINES)
(defalias 'tpu-bottom-check #[514 "\301 \211_\302\245T

ZS
V\203\303!\207\\
V\205\"\303[!\207" [tpu-bottom-scroll-margin window-height 100 recenter] 7 (#$ . 3699)])
#@64 Move right ARG characters (left if ARG is negative).

(fn NUM)
(defalias 'tpu-forward-char #[257 "\203\301
!\207\211u\207" [tpu-cursor-free-mode picture-forward-column] 3 (#$ . 3942) "p"])
#@64 Move left ARG characters (right if ARG is negative).

(fn NUM)
(defalias 'tpu-backward-char #[257 "\204\f\211\206	\302[u\207	\203\303
!\207n\203#\304u\210\305 \210\303
S!\207\303
!\207" [tpu-cursor-free-mode tpu-backward-char-like-tpu 1 picture-backward-column -1 picture-end-of-line] 3 (#$ . 4140) "p"])
#@72 Move to next line.
Prefix argument serves as a repeat count.

(fn NUM)
(defalias 'tpu-next-line #[257 "\302 \203m\204\303!\210\202\304!\210\305
\"\210\306\211\207" [tpu-cursor-free-mode this-command tpu-current-line picture-move-down line-move tpu-bottom-check next-line] 5 (#$ . 4457) "p"])
#@76 Move to previous line.
Prefix argument serves as a repeat count.

(fn NUM)
(defalias 'tpu-previous-line #[257 "\302 \203
\303!\210\202\304[!\210\305
\"\210\306\211\207" [tpu-cursor-free-mode this-command tpu-current-line picture-move-up line-move tpu-top-check previous-line] 5 (#$ . 4766) "p"])
#@146 Move to beginning of line; if at beginning, move to beginning of next line.
Accepts a prefix argument for the number of lines to move.

(fn NUM)
(defalias 'tpu-next-beginning-of-line #[257 "\300 \301u\210\302\303Z!\210\304
\"\207" [tpu-current-line -1 forward-visible-line 1 tpu-top-check] 5 (#$ . 5077) "p"])
#@128 Move to end of line; if at end, move to end of next line.
Accepts a prefix argument for the number of lines to move.

(fn NUM)
(defalias 'tpu-next-end-of-line #[257 "\301 \203#`\302W\203y\210\303 \210`
X\203\304y\210\303 \210\210\202)\304u\210
\210\305
\"\207" [tpu-cursor-free-mode tpu-current-line 1 picture-end-of-line nil tpu-bottom-check] 5 (#$ . 5396) "p"])
#@87 Move EOL upward.
Accepts a prefix argument for the number of lines to move.

(fn NUM)
(defalias 'tpu-previous-end-of-line #[257 "\301 \203\302\303Z!\210\202\303Z\210\304
\"\207" [tpu-cursor-free-mode tpu-current-line picture-end-of-line 1 tpu-top-check] 5 (#$ . 5777) "p"])
#@36 Move point to end of current line.
(defalias 'tpu-current-end-of-line #[0 "`\203\301 \210\202\302\210\211`U\205\303\304!\207" [tpu-cursor-free-mode picture-end-of-line nil message "You are already at the end of a line."] 3 (#$ . 6066) nil])
#@85 Move to beginning of next line.
Prefix argument serves as a repeat count.

(fn NUM)
(defalias 'tpu-forward-line #[257 "\300 
y\210\301
\"\207" [tpu-current-line tpu-bottom-check] 5 (#$ . 6321) "p"])
#@87 Move to beginning of previous line.
Prefix argument serves as repeat count.

(fn NUM)
(defalias 'tpu-backward-line #[257 "\300 n\204\301Y\204
S\262
[y\210\302
\"\207" [tpu-current-line 0 tpu-top-check] 5 (#$ . 6527) "p"])
#@75 Execute BODY with some position-related variables bound.

(fn &rest BODY)
(defalias 'tpu-with-position '(macro . #[128 "\300\301BB\207" [let* ((left nil) (beg (tpu-current-line)) (height (window-height)) (top-percent (if (zerop tpu-top-scroll-margin) 10 tpu-top-scroll-margin)) (bottom-percent (if (zerop tpu-bottom-scroll-margin) 15 tpu-bottom-scroll-margin)) (top-margin (/ (* height top-percent) 100)) (bottom-up-margin (1+ (/ (* height bottom-percent) 100))) (bottom-margin (max beg (- height bottom-up-margin 1))) (top (save-excursion (move-to-window-line top-margin) (point))) (bottom (save-excursion (move-to-window-line bottom-margin) (point))) (far (save-excursion (goto-char bottom) (point-at-bol (1- height)))))] 4 (#$ . 6762)]))
#@112 Move to the next paragraph in the current direction.
A repeat count means move that many paragraphs.

(fn NUM)
(defalias 'tpu-paragraph #[257 "\303\304 \305 \306U\203\307\202	\306U\203\310\202	_\311\245_\311\245TZS]\212\312!\210`)\212\312!\210`)\212\211b\210\313S!)\n\203w\314\f!\210`
V\203m\212y)\211\262\f\306U\203e\315!\207\315Z!\207`V\205\211\315!\207\316\f!\210`W\205\211\315\n^!\207" [tpu-top-scroll-margin tpu-bottom-scroll-margin tpu-advance nil tpu-current-line window-height 0 10 15 100 move-to-window-line point-at-bol tpu-next-paragraph recenter tpu-previous-paragraph] 15 (#$ . 7511) "p"])
#@102 Move to the next page in the current direction.
A repeat count means move that many pages.

(fn NUM)
(defalias 'tpu-page #[257 "\303\304 \305 \306U\203\307\202	\306U\203\310\202	_\311\245_\311\245TZS]\212\312!\210`)\212\312!\210`)\212\211b\210\313S!)\n\203w\314\f!\210`
V\203m\212y)\211\262\f\306U\203e\315!\207\315Z!\207`V\205\211\315!\207\316\f!\210`W\205\211\315\n^!\207" [tpu-top-scroll-margin tpu-bottom-scroll-margin tpu-advance nil tpu-current-line window-height 0 10 15 100 move-to-window-line point-at-bol forward-page recenter backward-page] 15 (#$ . 8163) "p"])
#@104 Scroll the display down to the next section.
A repeat count means scroll that many sections.

(fn NUM)
(defalias 'tpu-scroll-window-down #[257 "\301 \302 S
_\303\245_\304
[!\210\305\"\207" [tpu-percent-scroll tpu-current-line window-height 100 line-move tpu-top-check] 7 (#$ . 8785) "p"])
#@102 Scroll the display up to the next section.
A repeat count means scroll that many sections.

(fn NUM)
(defalias 'tpu-scroll-window-up #[257 "\301 \302 S
_\303\245_\304
!\210\305\"\207" [tpu-percent-scroll tpu-current-line window-height 100 line-move tpu-bottom-check] 7 (#$ . 9085) "p"])
#@70 Search for a string or regular expression.

(fn PAT &optional QUIET)
(defalias 'tpu-search-internal #[513 "\303\304 \305 \306U\203\307\202	\306U\203\310\202	_\311\245_\311\245TZS]\212\312!\210`)\212\312!\210`)\212\211b\210\313S!)\314

\"\210\n\203y`
V\203o\212y)\211\262\f\306U\203g\315!\207\315Z!\207`V\205\206\315!\207`W\205\206\315\n^!\207" [tpu-top-scroll-margin tpu-bottom-scroll-margin tpu-searching-forward nil tpu-current-line window-height 0 10 15 100 move-to-window-line point-at-bol tpu-search-internal-core recenter] 16 (#$ . 9382)])
#@73 Respect `tpu-bottom-scroll-margin'.

(fn ORIG-FUN &optional &rest ARGS)
(defalias 'tpu--respect-bottom-scroll-margin #[385 "\300 \301@!\302\"\210\303\"\207" [tpu-current-line prefix-numeric-value apply tpu-bottom-check] 7 (#$ . 9976)])
#@57 Set scroll margins.

(fn TOP BOTTOM &optional EMIT-MSG)
(defalias 'tpu-set-scroll-margins #[770 "\302\230\204\"\303\304O\305\230\203\306!\202!\306!\307_\310 \\S\310 \245
\302\230\204D
\303\304O\305\230\2037\306!\202C\306!\307_\310 \\S\310 \245\311\211\203X\211@\312
\313\314#\210
A\266\202\202E\210\211\205b\315\316	#\207" [tpu-top-scroll-margin tpu-bottom-scroll-margin "" -1 nil "%" string-to-number 100 window-height (newline newline-and-indent do-auto-fill) advice-add :around tpu--respect-bottom-scroll-margin message "Scroll margins set.  Top = %s%%, Bottom = %s%%"] 9 (#$ . 10223) "sEnter top scroll margin (N lines or N%% or RETURN for current value): \nsEnter bottom scroll margin (N lines or N%% or RETURN for current value): \np"])
#@51 Allow the cursor to move freely about the screen.
(defalias 'tpu-set-cursor-free #[0 "\300\301!\207" [tpu-cursor-free-mode 1] 2 (#$ . 10991) nil])
#@47 Constrain the cursor to the flow of the text.
(defalias 'tpu-set-cursor-bound #[0 "\300\301!\207" [tpu-cursor-free-mode -1] 2 (#$ . 11144) nil])
(provide 'tpu-extras)