Current File : //usr/local/share/emacs/27.2/lisp/obsolete/tpu-extras.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 1094))
(make-variable-buffer-local 'tpu-cursor-free-mode)
#@313 Minor mode to allow the cursor to move freely about the screen.
If called interactively, enable Tpu-Cursor-Free mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(defalias 'tpu-cursor-free-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\204 \310 \210\n\204& \311\312!\210\202* \311\313!\210\314\315\n\2034 \316\2025 \317\"\210\320\321!\203Z \304 \203I \304 \232\203Z \322\311\323\n\203U \324\202V \325 #\210))\326 \210\n\207" [#1=#:last-message arg tpu-cursor-free-mode local 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 " in current buffer" "Tpu-Cursor-Free mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 1306) (list (or current-prefix-arg 'toggle))])
(defvar tpu-cursor-free-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\"\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.)" 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 (#$ . 2918)])
(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 \n Z W\205 \306 !)\207" [tpu-top-scroll-margin margin beg lines window-height 100 recenter] 2 (#$ . 3197)])
#@48 Enforce scroll margin at the bottom of screen.
(defalias 'tpu-bottom-check #[(beg lines) "\306 \211 _\307\245T\310\n\311#\f V\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 (#$ . 3435)])
#@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 (#$ . 3726) "p"])
#@54 Move left ARG characters (right if ARG is negative).
(defalias 'tpu-backward-char #[(num) "\204\f \206 \303[u\207\n\203 \304 !\207n\203# \305u\210\306 \210\304 S!\207\304 !\207" [tpu-cursor-free-mode num tpu-backward-char-like-tpu 1 picture-backward-column -1 picture-end-of-line] 2 (#$ . 3917) "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 (#$ . 4228) "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 (#$ . 4542) "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 (#$ . 4858) "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 (#$ . 5179) "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 (#$ . 5564) "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 (#$ . 5858) 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 (#$ . 6119) "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 (#$ . 6327) "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 (#$ . 6560)]))
#@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 \311U\203 \312\202
\311U\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 \212\ny)\211\311U\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 0 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 (#$ . 7306) "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 \311U\203 \312\202
\311U\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 \212\ny)\211\311U\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 0 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 (#$ . 8104) "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 (#$ . 8872) "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 (#$ . 9191) "p"])
#@44 Search for a string or regular expression.
(defalias 'tpu-search-internal #[(pat &optional quiet) "\306\307 \310 \311U\203 \312\202
\311U\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 \212\ny)\211\311U\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 0 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 (#$ . 9508)])
(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\310\"\311\230\203 \312!\202! \312!\313_\314 \\S\314 \245\n\306\230\204D \307\n\310\"\311\230\2037 \312\n!\202C \312\n!\313_\314 \\S\314 \245\315\316 \211 \203`
@\317\f\320\321#\210\322\f!\210
A\211\204L *\323\324!\205l \325\326 #\207" [top tpu-top-scroll-margin bottom tpu-bottom-scroll-margin f --dolist-tail-- "" substring -1 "%" string-to-number 100 window-height (newline newline-and-indent do-auto-fill) nil ad-enable-advice around tpu-respect-bottom-scroll-margin ad-activate called-interactively-p interactive message "Scroll margins set. Top = %s%%, Bottom = %s%%"] 5 (#$ . 10995) "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 (#$ . 11844) 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 (#$ . 11999) nil])
(provide 'tpu-extras)
Mini Shell