Gecko [ goons4good.org ]

Name	Size	Permission	Date
crisp.elc	10.91 KB	-rw-r--r--	2023-06-07 04:04
cua-base.elc	37.23 KB	-rw-r--r--	2023-06-07 04:04
cua-gmrk.elc	10.21 KB	-rw-r--r--	2023-06-07 04:04
cua-rect.elc	36.89 KB	-rw-r--r--	2023-06-07 04:04
edt-lk201.elc	1.38 KB	-rw-r--r--	2023-06-07 04:04
edt-mapper.elc	11.85 KB	-rw-r--r--	2023-06-07 04:04
edt-pc.elc	1.35 KB	-rw-r--r--	2023-06-07 04:04
edt-vt100.elc	841 B	-rw-r--r--	2023-06-07 04:04
edt.elc	64.55 KB	-rw-r--r--	2023-06-07 04:04
keypad.elc	6.13 KB	-rw-r--r--	2023-06-07 04:05
tpu-edt.elc	59.74 KB	-rw-r--r--	2023-06-07 04:05
tpu-extras.elc	11.56 KB	-rw-r--r--	2023-06-07 04:05
tpu-mapper.elc	10.48 KB	-rw-r--r--	2023-06-07 04:05
vi.elc	47.96 KB	-rw-r--r--	2023-06-07 04:05
vip.elc	77.13 KB	-rw-r--r--	2023-06-07 04:05
viper-cmd.elc	126.6 KB	-rw-r--r--	2023-06-07 04:05
viper-ex.elc	49.11 KB	-rw-r--r--	2023-06-07 04:05
viper-init.elc	30.98 KB	-rw-r--r--	2023-06-07 04:05
viper-keym.elc	22.17 KB	-rw-r--r--	2023-06-07 04:05
viper-macs.elc	19.23 KB	-rw-r--r--	2023-06-07 04:05
viper-mous.elc	14.88 KB	-rw-r--r--	2023-06-07 04:05
viper-util.elc	32.65 KB	-rw-r--r--	2023-06-07 04:05
viper.elc	26.22 KB	-rw-r--r--	2023-06-07 04:05
ws-mode.elc	20.05 KB	-rw-r--r--	2023-06-07 04:05

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:05:00 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/tpu-extras.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\307\310\311&\210\302\314\315\316\306\317\310\311&\207" [require tpu-edt custom-declare-variable tpu-top-scroll-margin 0 "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 "Scroll margin at the bottom of the screen.\nInterpreted as a percent of the current window size." tpu-backward-char-like-tpu t "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 (#$ . 1245))
(make-variable-buffer-local 'tpu-cursor-free-mode)
#@219 Minor mode to allow the cursor to move freely about the screen.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
(defalias 'tpu-cursor-free-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\211\204�\307 \210\n\204&�\310\311!\210\202*�\310\312!\210\313\314\n\2034�\315\2025�\316\"\210\317\320!\203V�\303 \203I�\303 \232\203V�\310\321\n\203S�\322\202T�\323\"\210)\324 \210\n\207" [#1=#:last-message arg tpu-cursor-free-mode current-message toggle prefix-numeric-value 0 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" "en" "dis" force-mode-line-update] 4 (#$ . 1457) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\303\211%\210\305\306\307\"\207" [tpu-cursor-free-mode-map add-minor-mode tpu-cursor-free-mode nil 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 #[nil "\301 \205�\205�\302 \207" [tpu-cursor-free-mode buffer-modified-p tpu-trim-line-ends] 1 (#$ . 2624)])
(add-hook 'before-save-hook 'tpu-trim-line-ends-if-needed)
#@45 Enforce scroll margin at the top of screen.
(defalias 'tpu-top-check #[(beg lines) "\304 _\305\245\n	W\203�\306\n!\202�\nZ	W\205�\306	!)\207" [tpu-top-scroll-margin margin beg lines window-height 100 recenter] 2 (#$ . 2903)])
#@48 Enforce scroll margin at the bottom of screen.
(defalias 'tpu-bottom-check #[(beg lines) "\306 \211	_\307\245T\310\n\311#\fV\203�\312\f!\202(�\f
\\V\205(�\312\n[!+\207" [height tpu-bottom-scroll-margin margin difference beg lines window-height 100 - 1 recenter] 5 (#$ . 3141)])
#@54 Move right ARG characters (left if ARG is negative).
(defalias 'tpu-forward-char #[(num) "\203�\302	!\207	u\207" [tpu-cursor-free-mode num picture-forward-column] 2 (#$ . 3432) "p"])
#@54 Move left ARG characters (right if ARG is negative).
(defalias 'tpu-backward-char #[(num) "\204�	[u\207\n\203�\303	!\207n\203�\304u\210\305 \210\303	S!\207\303	!\207" [tpu-cursor-free-mode num tpu-backward-char-like-tpu picture-backward-column -1 picture-end-of-line] 2 (#$ . 3623) "p"])
#@62 Move to next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-next-line #[(num) "\304 	\203�m\204�\305\n!\210\202�\306\n!\210\307\n\"\210\310\211)\207" [beg tpu-cursor-free-mode num this-command tpu-current-line picture-move-down line-move tpu-bottom-check next-line] 3 (#$ . 3921) "p"])
#@66 Move to previous line.
Prefix argument serves as a repeat count.
(defalias 'tpu-previous-line #[(num) "\304 	\203�\305\n!\210\202�\306\n[!\210\307\n\"\210\310\211)\207" [beg tpu-cursor-free-mode num this-command tpu-current-line picture-move-up line-move tpu-top-check previous-line] 3 (#$ . 4235) "p"])
#@136 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.
(defalias 'tpu-next-beginning-of-line #[(num) "\302 \303u\210\304\305	Z!\210\306	\")\207" [beg num tpu-current-line -1 forward-visible-line 1 tpu-top-check] 3 (#$ . 4551) "p"])
#@118 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.
(defalias 'tpu-next-end-of-line #[(num) "\303 	\203%�`\304\nW\203�\ny\210\305 \210`X\203!�\306y\210\305 \210)\202+�\306u\210\n\210\307\n\")\207" [beg tpu-cursor-free-mode num tpu-current-line 1 picture-end-of-line nil tpu-bottom-check] 3 (#$ . 4872) "p"])
#@77 Move EOL upward.
Accepts a prefix argument for the number of lines to move.
(defalias 'tpu-previous-end-of-line #[(num) "\303 	\203�\304\305\nZ!\210\202�\305\nZ\210\306\n\")\207" [beg tpu-cursor-free-mode num tpu-current-line picture-end-of-line 1 tpu-top-check] 3 (#$ . 5257) "p"])
#@36 Move point to end of current line.
(defalias 'tpu-current-end-of-line #[nil "`	\203\f�\302 \210\202�\303\210`U\205�\304\305!)\207" [beg tpu-cursor-free-mode picture-end-of-line nil message "You are already at the end of a line."] 2 (#$ . 5551) nil])
#@75 Move to beginning of next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-forward-line #[(num) "\302 	y\210\303	\")\207" [beg num tpu-current-line tpu-bottom-check] 3 (#$ . 5812) "p"])
#@77 Move to beginning of previous line.
Prefix argument serves as repeat count.
(defalias 'tpu-backward-line #[(num) "\302 n\204�\303	Y\204�	S	[y\210\304	\")\207" [beg num tpu-current-line 0 tpu-top-check] 3 (#$ . 6020) "p"])
#@58 Execute BODY with some position-related variables bound.
(defalias 'tpu-with-position '(macro . #[(&rest body) "\301\302BB\207" [body 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)))))] 3 (#$ . 6253)]))
#@102 Move to the next paragraph in the current direction.
A repeat count means move that many paragraphs.
(defalias 'tpu-paragraph #[(num) "\306\307 \310 \311!\203�\312\202�\311
!\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\320\nS!)\203\225�\321!\210`V\203\207�\311\212\ny)\211!\203~�\322!\202\247�\322Z!\202\247�`V\205\247�\322!\202\247�\323!\210`W\205\247�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height zerop 10 15 100 - 1 move-to-window-line point-at-bol tpu-next-paragraph recenter tpu-previous-paragraph bottom-percent top-margin bottom-up-margin bottom-margin top bottom far tpu-advance num] 5 (#$ . 6999) "p"])
#@92 Move to the next page in the current direction.
A repeat count means move that many pages.
(defalias 'tpu-page #[(num) "\306\307 \310 \311!\203�\312\202�\311
!\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\320\nS!)\203\225�\321!\210`V\203\207�\311\212\ny)\211!\203~�\322!\202\247�\322Z!\202\247�`V\205\247�\322!\202\247�\323!\210`W\205\247�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height zerop 10 15 100 - 1 move-to-window-line point-at-bol forward-page recenter backward-page bottom-percent top-margin bottom-up-margin bottom-margin top bottom far tpu-advance num] 5 (#$ . 7801) "p"])
#@94 Scroll the display down to the next section.
A repeat count means scroll that many sections.
(defalias 'tpu-scroll-window-down #[(num) "\305 \306 S\n	_\307\245_\310\f[!\210\311\f\"+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move tpu-top-check] 3 (#$ . 8573) "p"])
#@92 Scroll the display up to the next section.
A repeat count means scroll that many sections.
(defalias 'tpu-scroll-window-up #[(num) "\305 \306 S\n	_\307\245_\310\f!\210\311\f\"+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move tpu-bottom-check] 3 (#$ . 8892) "p"])
#@44 Search for a string or regular expression.
(defalias 'tpu-search-internal #[(pat &optional quiet) "\306\307 \310 \311!\203�\312\202�\311
!\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\320\nS!)\321\"\210\203\227�`V\203\211�\311\212\ny)\211!\203\200�\322!\202\244�\322Z!\202\244�`V\205\244�\322!\202\244�`W\205\244�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height zerop 10 15 100 - 1 move-to-window-line point-at-bol tpu-search-internal-core recenter bottom-percent top-margin bottom-up-margin bottom-margin top bottom far pat quiet tpu-searching-forward] 5 (#$ . 9209)])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\300\310\311\303\304$\207" [ad-add-advice newline (tpu-respect-bottom-scroll-margin nil nil (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line)) (num (prefix-numeric-value (ad-get-arg 0)))) ad-do-it (tpu-bottom-check beg num)))) around nil ad-activate newline-and-indent (tpu-respect-bottom-scroll-margin nil t (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line))) ad-do-it (tpu-bottom-check beg 1)))) do-auto-fill (tpu-respect-bottom-scroll-margin nil t (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line))) ad-do-it (tpu-bottom-check beg 1))))] 5)
#@21 Set scroll margins.
(defalias 'tpu-set-scroll-margins #[(top bottom) "\306\230\204\"�\307\310O\311\230\203�\312!\202!�\312!\313_\314 \\S\314 \245\n\306\230\204D�\n\307\310O\311\230\2037�\312\n!\202C�\312\n!\313_\314 \\S\314 \245\315\310\211\203`�
@\316\f\317\320#\210\321\f!\210
A\211\204L�*\322\323!\205l�\324\325	#\207" [top tpu-top-scroll-margin bottom tpu-bottom-scroll-margin f --dolist-tail-- "" -1 nil "%" string-to-number 100 window-height (newline newline-and-indent do-auto-fill) ad-enable-advice around tpu-respect-bottom-scroll-margin ad-activate called-interactively-p interactive message "Scroll margins set.  Top = %s%%, Bottom = %s%%"] 5 (#$ . 10700) "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): "])
#@51 Allow the cursor to move freely about the screen.
(defalias 'tpu-set-cursor-free #[nil "\300\301!\207" [tpu-cursor-free-mode 1] 2 (#$ . 11537) nil])
#@47 Constrain the cursor to the flow of the text.
(defalias 'tpu-set-cursor-bound #[nil "\300\301!\207" [tpu-cursor-free-mode -1] 2 (#$ . 11692) nil])