;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:59 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/tpu-edt.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&\207" [require picture custom-declare-group tpu nil "Emacs emulating TPU emulating EDT." :prefix "tpu-" :group emulations] 8)
#@25 TPU-edt version number.
(defconst tpu-version "4.5" (#$ . 745))
(byte-code "\302\303\304\305\306\307\310\311&\210\312\303\313\314#\210\302\315\316\317\306\307\310\311&\210\302\320\321\322\306\323\310\311&\210\302\324\325\326\306\323\310\311&\210\327\330\331\316#\210\332\316\211\203^	@\330N\203W\331N\204W\333\331\330N#\210	A\211\204@*\312\330\331\314#\207" [prop --dolist-tail-- custom-declare-variable tpu-have-ispell t "Non-nil means `tpu-spell-check' uses `ispell-region' for spell checking.\nOtherwise, use `spell-region'." :type boolean :group tpu make-obsolete-variable "the `spell' package is obsolete." "23.1" tpu-kill-buffers-silently nil "If non-nil, TPU-edt kills modified buffers without asking." tpu-percent-scroll 75 "Percentage of the screen to scroll for next/previous screen commands." integer tpu-pan-columns 16 "Number of columns the tpu-pan functions scroll left or right." defvaralias GOLD-map tpu-gold-map (saved-value saved-variable-comment) put] 9)
#@112 Maps the function keys on the VT100 keyboard preceded by PF1.
GOLD is the ASCII 7-bit escape sequence <ESC>OP.
(defvar tpu-gold-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\306#\210\302\350\304#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\316#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\330#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\302\201E\201F#\210\302\201G\201H#\210\302\201I\201J#\210\302\201K\201L#\210\302\201M\201N#\210\302\201O\201P#\210\302\201Q\201R#\210\302\201S\201T#\210\302\201U\201V#\210\302\201W\326#\210\302\201X\201Y#\210\302\201Z\201[#\210\302\201\\\201[#\210\302\201]\201[#\210\302\201^\201[#\210\302\201_\201[#\210\302\201`\201[#\210\302\201a\201[#\210\302\201b\201[#\210\302\201c\201[#\210\302\201d\201[#\210\302\201e\201f#\210\302\201g\201h#\210\302\201i\201j#\210\302\201k\201l#\210\302\201m\201n#\210\302\201o\201n#\210\302\201p\201q#\210\302\201r\201s#\210\302\201t\201u#\210\302\201v\201w#\210\302\201x\201y#\210\302\201z\201{#\210\302\201|\201}#\210\302\201~\201#\210\302\201\200\201\201#\210\302\201\202\201\203#\210\302\201\204\201\205#\210\302\201\206\201\207#\210\302\201\210\201\211#\210\302\201\212\201\213#\210\302\201\214\201\215#\210\302\201\216\201\217#\210\302\201\220\201\221#\210\302\201\222\201\223#\210\302\201\224\201\225#\210\302\201\226\201\227#\210\302\201\230\201\231#\210\302\201\232\201L#\210\302\201\233\201\234#\210\302\201\235\201\236#\210\302\201\237\201\240#\210\302\201\241\201\242#\210\302\201\243\201\244#\210\302\201\245\201\246#\210\302\201\247\201\250#\210\302\201\251\201\252#\210)\207" [map make-keymap define-key [up] tpu-move-to-beginning [down] tpu-move-to-end [right] end-of-line [left] beginning-of-line [delete] tpu-store-text [select] tpu-unselect [prior] tpu-previous-window [next] tpu-next-window [help] describe-bindings [f17] tpu-drop-breadcrumb [kp-f1] keyboard-quit [kp-f2] help-for-help [kp-f3] tpu-search [kp-f4] tpu-undelete-lines [kp-0] open-line [kp-1] tpu-change-case [kp-2] tpu-delete-to-eol [kp-3] tpu-special-insert [kp-4] [kp-5] [kp-6] tpu-paste [kp-7] execute-extended-command [kp-8] tpu-fill [kp-9] tpu-replace [kp-subtract] tpu-undelete-words [kp-separator] tpu-undelete-char [kp-decimal] [kp-enter] tpu-substitute "
" tpu-toggle-overwrite-mode "" set-visited-file-name "" "" delete-other-windows "	" other-window "" tpu-define-macro-key "\f" downcase-region "" tpu-toggle-control-keys "" upcase-region "" tpu-write-current-buffers " " undo "$" tpu-add-at-eol "%" tpu-goto-percent "*" tpu-toggle-regexp "," tpu-goto-breadcrumb "-" negative-argument "." "/" tpu-emacs-replace "0" digit-argument "1" "2" "3" "4" "5" "6" "7" "8" "9" ";" tpu-trim-line-ends "?" tpu-spell-check "L" tpu-what-line "P" lpr-buffer "[" blink-matching-open "]" "^" tpu-add-at-bol "_" split-window-below "`" what-line "a" tpu-toggle-newline-and-indent "b" tpu-next-buffer "c" repeat-complex-command "d" shell-command "e" tpu-exit "f" tpu-cursor-free-mode "g" tpu-get "i" tpu-include "k" tpu-kill-buffer "l" goto-line "m" buffer-menu "n" tpu-next-file-buffer "o" occur "p" lpr-region "q" tpu-quit "r" tpu-toggle-rectangle "s" replace "t" tpu-line-to-top-of-window "u" "v" tpu-version "w" save-buffer "x" tpu-save-all-buffers-kill-emacs "y" copy-region-as-kill "z" suspend-emacs "|" split-window-right "~" exchange-point-and-mark "" delete-window] 4) (#$ . 1742))
#@24 TPU-edt global keymap.
(defvar tpu-global-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340	#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\333#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\311#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\313#\210\303\201F\201G#\210)\207" [map tpu-gold-map make-sparse-keymap define-key [find] tpu-search [insert] tpu-paste [delete] tpu-cut [select] tpu-select [prior] tpu-scroll-window-down [next] tpu-scroll-window-up [f10] tpu-exit [f11] tpu-insert-escape [f12] tpu-next-beginning-of-line [f13] tpu-delete-previous-word [f14] tpu-toggle-overwrite-mode [help] tpu-help [menu] execute-extended-command [f17] tpu-goto-breadcrumb [kp-f1] [up] tpu-previous-line [down] tpu-next-line [right] tpu-forward-char [left] tpu-backward-char [kp-f2] [kp-f3] tpu-search-again [kp-f4] tpu-delete-current-line [kp-0] tpu-line [kp-1] tpu-word [kp-2] tpu-end-of-line [kp-3] tpu-char [kp-4] tpu-advance-direction [kp-5] tpu-backup-direction [kp-6] [kp-7] tpu-page [kp-8] tpu-scroll-window [kp-9] tpu-append-region [kp-subtract] tpu-delete-current-word [kp-separator] tpu-delete-current-char [kp-decimal] [kp-enter] newline] 4) (#$ . 5710))
#@49 Last text deleted by a TPU-edt replace command.
(defvar tpu-last-replaced-text "" (#$ . 7333))
#@48 Last text deleted by a TPU-edt remove command.
(defvar tpu-last-deleted-region "" (#$ . 7434))
#@53 Last text deleted by a TPU-edt line-delete command.
(defvar tpu-last-deleted-lines "" (#$ . 7535))
#@53 Last text deleted by a TPU-edt word-delete command.
(defvar tpu-last-deleted-words "" (#$ . 7640))
#@63 Last character deleted by a TPU-edt character-delete command.
(defvar tpu-last-deleted-char "" (#$ . 7745))
#@60 If non-nil, TPU-edt is searching in the forward direction.
(defvar tpu-searching-forward t (#$ . 7859))
#@56 Last text searched for by the TPU-edt search commands.
(defvar tpu-search-last-string "" (#$ . 7969))
#@27 Search highlight overlay.
(defvar tpu-search-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 8077))
(overlay-put tpu-search-overlay 'face 'bold)
#@28 Replace highlight overlay.
(defvar tpu-replace-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 8246))
(overlay-put tpu-replace-overlay 'face 'highlight)
#@62 If non-nil, TPU-edt uses regexp search and replace routines.
(defvar tpu-regexp-p nil (#$ . 8423))
#@53 If non-nil, TPU-edt removes and inserts rectangles.
(defvar tpu-rectangular-p nil (#$ . 8528))
#@58 True when TPU-edt is operating in the forward direction.
(defvar tpu-advance t (#$ . 8629))
#@59 True when TPU-edt is operating in the backward direction.
(defvar tpu-reverse nil (#$ . 8727))
#@60 If non-nil, control keys are set to perform TPU functions.
(defvar tpu-control-keys nil (#$ . 8828))
#@36 File containing TPU-edt X key map.
(defvar tpu-xkeys-file nil (#$ . 8935))
#@48 Mode line string to identify rectangular mode.
(defvar tpu-rectangle-string nil (#$ . 9016))
#@49 Mode line string to identify current direction.
(defvar tpu-direction-string nil (#$ . 9115))
#@51 History variable for tpu-edt-add-at-bol function.
(defvar tpu-add-at-bol-hist nil (#$ . 9215))
#@51 History variable for tpu-edt-add-at-eol function.
(defvar tpu-add-at-eol-hist nil (#$ . 9316))
#@52 History variable for search and replace functions.
(defvar tpu-regexp-prompt-hist nil (#$ . 9417))
#@52 If non-nil, Return produces a newline and indents.
(defvar tpu-newline-and-indent-p nil (#$ . 9522))
(make-variable-buffer-local 'tpu-newline-and-indent-p)
#@47 Mode line string to identify AutoIndent mode.
(defvar tpu-newline-and-indent-string nil (#$ . 9684))
(make-variable-buffer-local 'tpu-newline-and-indent-string)
#@32 Saved value of the delete key.
(defvar tpu-saved-delete-func nil (#$ . 9851))
(make-variable-buffer-local 'tpu-saved-delete-func)
#@31 TPU-edt buffer local key map.
(defvar tpu-buffer-local-map nil (#$ . 9987))
(make-variable-buffer-local 'tpu-buffer-local-map)
(defvar tpu-original-mm-alist minor-mode-alist)
(defvar tpu-mark-flag "")
(make-variable-buffer-local 'tpu-mark-flag)
#@69 Set ``minor-mode-alist'' for TPU-edt, or reset it to default Emacs.
(defalias 'tpu-set-mode-line #[(for-tpu) "\305\211\306\211\205&\n@\203\307\304	\"\210\202\310	\f\"\nA\211\204\n\306+\207" [entries entry --dolist-tail-- for-tpu minor-mode-alist ((tpu-newline-and-indent-p tpu-newline-and-indent-string) (tpu-rectangular-p tpu-rectangle-string) (tpu-direction-string tpu-direction-string) (tpu-mark-flag tpu-mark-flag)) nil add-to-list remove] 4 (#$ . 10238)])
#@65 Make sure mode-line in the current buffer reflects all changes.
(defalias 'tpu-update-mode-line #[nil "\203\302\202\303 \203\304\202\305\306 \207" [transient-mark-mode tpu-mark-flag "" tpu-mark " @" "  " force-mode-line-update] 1 (#$ . 10718)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook activate-mark-hook tpu-update-mode-line deactivate-mark-hook] 3)
(defvar tpu-match-beginning-mark (make-marker))
(defvar tpu-match-end-mark (make-marker))
#@41 Set markers at match beginning and end.
(defalias 'tpu-set-match #[nil "\302\303\224\304\"\302\303\225!\211\207" [tpu-match-beginning-mark tpu-match-end-mark copy-marker 0 t] 3 (#$ . 11194)])
#@40 Unset match beginning and end markers.
(defalias 'tpu-unset-match #[nil "\302\211\223\210	\302\211\223\207" [tpu-match-beginning-mark tpu-match-end-mark nil] 3 (#$ . 11394)])
#@50 Return the location of the last match beginning.
(defalias 'tpu-match-beginning #[nil "\301!\207" [tpu-match-beginning-mark marker-position] 2 (#$ . 11576)])
#@44 Return the location of the last match end.
(defalias 'tpu-match-end #[nil "\301!\207" [tpu-match-end-mark marker-position] 2 (#$ . 11741)])
#@110 Return t if point is between tpu-match markers.
Otherwise sets the tpu-match markers to nil and returns nil.
(defalias 'tpu-check-match #[nil "\302!p\232\203,`\303!Y\203,`\303	!W\204*\303!\303	!U\203,\303	!`U\203,\304\207\305 \210\306\207" [tpu-match-beginning-mark tpu-match-end-mark marker-buffer marker-position t tpu-unset-match nil] 3 (#$ . 11889)])
#@39 Show the values of the match markers.
(defalias 'tpu-show-match-markers #[nil "\302!\205\303\304\305!\305	!\306	!`p&\207" [tpu-match-beginning-mark tpu-match-end-mark markerp message "(%s, %s) in %s -- current %s in %s" marker-position marker-buffer] 7 (#$ . 12258) nil])
#@114 TPU-edt version of the mark function.
Return the appropriate value of the mark for the current
version of Emacs.
(defalias 'tpu-mark #[nil "\205\302	?!\207" [mark-active transient-mark-mode mark] 2 (#$ . 12542)])
#@134 TPU-edt version of the `set-mark' function.
Sets the mark at POS and activates the region according to the
current version of Emacs.
(defalias 'tpu-set-mark #[(pos) "\301!\210\302\207" [pos set-mark nil] 2 (#$ . 12765)])
#@28 Read a string with PROMPT.
(defalias 'tpu-string-prompt #[(prompt history-symbol) "\302\303\211\211	%\207" [prompt history-symbol read-from-minibuffer nil] 6 (#$ . 12993)])
#@39 Most recent response to tpu-y-or-n-p.
(defvar tpu-last-answer nil (#$ . 13173))
#@178 Prompt for a y or n answer with positive default.
Optional second argument NOT-YES changes default to negative.
Like Emacs `y-or-n-p', but also accepts space as y and DEL as n.
(defalias 'tpu-y-or-n-p #[(prompt &optional not-yes) "\305\306	\203\307\202\f\310#\210\311\n\203j\312\313 \211\314U\204+\315U\204+\316U\2030\311\202f\317U\204B\320U\204B\321U\203G\312\202f\322U\203S	?\202f\311\323 \210\305\324	\203c\307\202d\310#\210)\202)\f\207" [prompt not-yes doit ans tpu-last-answer message "%s[%s]" "n" "y" t nil read-char 121 89 32 110 78 127 13 beep "Please answer y or n.  %s[%s]"] 5 (#$ . 13260)])
#@78 Replace a key in the TPU-edt local key map.
Create the key map if necessary.
(defalias 'tpu-local-set-key #[(key func) "\303!\204\304 \203\305\304 !\202\306 \307!\210\310	\n\"\207" [tpu-buffer-local-map key func keymapp current-local-map copy-keymap make-sparse-keymap use-local-map local-set-key] 3 (#$ . 13901)])
#@130 Return the vertical position of point in the selected window.
Top line is 0.  Counts each text line only once, even if it wraps.
(defalias 'tpu-current-line #[nil "\300\301 8A\206\302 `=\203\303\207\304\302 `\305#S\207" [6 posn-at-point window-start 0 count-screen-lines count-final-newline] 4 (#$ . 14232)])
#@60 The set of user-defined markers (breadcrumbs), as a plist.
(defvar tpu-breadcrumb-plist nil (#$ . 14551))
#@72 Drops a breadcrumb that can be returned to later with goto-breadcrumb.
(defalias 'tpu-drop-breadcrumb #[(num) "\302	p`D#\210\303\304	\"\207" [tpu-breadcrumb-plist num put message "Mark %d set."] 5 (#$ . 14663) "p"])
#@50 Return to a breadcrumb set with drop-breadcrumb.
(defalias 'tpu-goto-breadcrumb #[(num) "	N\203\303	N@!\210	N\211A@)b\210\304\305	\"\207\304\306	\"\207" [tpu-breadcrumb-plist num x switch-to-buffer message "mark %d found." "mark %d not found."] 4 (#$ . 14886) "p"])
#@127 Change the case of the character under the cursor or region.
Accepts a prefix argument of the number of characters to invert.
(defalias 'tpu-change-case #[(num) "\304 \203/\305 \306 	V\203*	f\227	fU\203\307\202\310	\211T\"\210	T\202\311\312!*\207\313 \203]\314 \315 	V\203Y	f\227	fU\203M\307\202N\310	\211T\"\210	T\202:\316 *\207\n\317V\205\206g\227gU\203n\307\202o\310``T\"\210\203|\320\202}\321u\210\nS\211\202^\207" [end beg num tpu-reverse tpu-mark region-beginning region-end upcase-region downcase-region tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match 0 -1 1] 4 (#$ . 15165) "p"])
#@67 Fill paragraph or marked region.
With argument, fill and justify.
(defalias 'tpu-fill #[(num) "\301 \203\302`\301 #\210\303\304!\207\305!\207" [num tpu-mark fill-region tpu-unselect t fill-paragraph] 4 (#$ . 15821) "P"])
#@35 Print the TPU-edt version number.
(defalias 'tpu-version #[nil "\301\302\"\207" [tpu-version message "TPU-edt version %s by Rob Riepel (riepel@networking.stanford.edu)"] 3 (#$ . 16052) nil])
#@22 Set the screen size.
(defalias 'tpu-reset-screen-size #[(height width) "\302\303 \"\210\304\303 	\"\207" [height width set-frame-height selected-frame set-frame-width] 3 (#$ . 16250) "nnew screen height: \nnnew screen width: "])
#@59 Toggle between 'newline and indent' and 'simple newline'.
(defalias 'tpu-toggle-newline-and-indent #[nil "\203\302\303\304\305\306\"\210\202\307\310\304\305\311\"\210\312 \210\313\314!\205.\315\316\203,\317\202-\320\"\207" [tpu-newline-and-indent-p tpu-newline-and-indent-string "" nil tpu-local-set-key "
" newline " AutoIndent" t newline-and-indent tpu-update-mode-line called-interactively-p interactive message "Carriage return inserts a newline%s" " and indents." "."] 3 (#$ . 16486) nil])
#@86 Check the spelling of the region, or of the entire buffer,
if no region is selected.
(defalias 'tpu-spell-check #[nil "\302 \303	\203\f\304\202
\305\203#`V\203`D\202&`D\202&edD\"\210\205/\306\307!)\207" [m tpu-have-ispell tpu-mark apply ispell-region spell-region tpu-unselect t] 4 (#$ . 17000) nil])
#@38 Switch in and out of overwrite mode.
(defalias 'tpu-toggle-overwrite-mode #[nil "\203
\302\303	\"\210\300\304!\207\305\303!\302\303\306\"\210\300\307!\207" [overwrite-mode tpu-saved-delete-func tpu-local-set-key "" 0 local-key-binding picture-backward-clear-column 1] 3 (#$ . 17321) nil])
#@74 Insert a character or control code according to its ASCII decimal value.
(defalias 'tpu-special-insert #[(num) "\203\302\303!\210	\206
\304c\207" [overwrite-mode num delete-char 1 0] 2 (#$ . 17620) "P"])
#@91 Read next input character and insert it.
This is useful for inserting control characters.
(defalias 'tpu-quoted-insert #[(num) "\303 	\203\304\n!\210\305\n\")\207" [char overwrite-mode num read-char delete-char insert-char] 3 (#$ . 17834) "*p"])
#@24 TPU-like include file.
(defalias 'tpu-include #[(file) "\301!\210\302\303!\207" [file insert-file-contents message ""] 2 (#$ . 18090) "fInclude file: "])
#@20 TPU-like get file.
(defalias 'tpu-get #[(file) "\302	\"\207" [file find-file-wildcards find-file] 3 (#$ . 18251) "FFile to get: "])
#@78 Tell what line the point is on,
and the total number of lines in the buffer.
(defalias 'tpu-what-line #[nil "m\203\f\303\304\305\306d\"\"\207\305\306`T\"\305\306d\"	\307\245\\\310_	\245\303\311	\n$+\207" [cur max pct message "You are at the End of Buffer.  The last line is %d." count-lines 1 200 100 "You are on line %d out of %d (%d%%)."] 5 (#$ . 18390) nil])
#@66 Exit the way TPU does, save current buffer and ask about others.
(defalias 'tpu-exit #[nil "\300 \301=\204\n\302 \207\303 \210\304 \207" [recursion-depth 0 exit-recursive-edit save-buffer save-buffers-kill-emacs] 2 (#$ . 18764) nil])
#@70 Quit the way TPU does, ask to make sure changes should be abandoned.
(defalias 'tpu-quit #[nil "\303 \304	\2032\2032	@\305\n!\203+\306\n!\203+\307\310!\203)\311\304!\210\202+\312	A)\202\2059\311\304!*\207" [working list buffer buffer-list t buffer-file-name buffer-modified-p tpu-y-or-n-p "Modifications will not be saved, continue quitting? " kill-emacs nil] 2 (#$ . 19005) nil])
#@257 Non-nil if Tpu-Edt mode is enabled.
See the command `tpu-edt-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `tpu-edt-mode'.
(custom-declare-variable 'tpu-edt-mode nil '(#$ . 19409) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'tpu-edt :type 'boolean)
#@191 Toggle TPU/edt emulation on or off.
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-edt-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg tpu-edt-mode current-message toggle prefix-numeric-value 0 tpu-edt-on tpu-edt-off run-hooks tpu-edt-mode-hook tpu-edt-mode-on-hook tpu-edt-mode-off-hook called-interactively-p any customize-mark-as-set message "Tpu-Edt mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 19828) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306\302\"\210\305\307\310\"\210\305\311\310\"\210\305\312\313\"\210\305\314\313\"\210\305\315\316\"\210\305\317\316\"\210\305\320\321\"\210\305\322\321\"\210\305\323\324\"\210\305\325\324\"\210\305\326\327\"\210\305\330\327\"\210\305\331\332\"\210\305\333\332\"\210\305\334\335\"\210\305\336\335\"\210\305\337\340\"\210\305\341\340\"\210\305\342\343\"\210\305\344\343\"\210\305\345\346\"\210\305\347\346\"\210\305\350\351\"\210\305\352\351\"\210\305\353\354\"\207" [tpu-edt-mode-map add-minor-mode tpu-edt-mode nil boundp defalias TPU-EDT-MODE tpu-edt tpu-edt-on TPU-EDT exit tpu-exit EXIT Get tpu-get GET include tpu-include INCLUDE quit tpu-quit QUIT spell tpu-spell-check SPELL what\ line tpu-what-line WHAT\ LINE replace tpu-lm-replace REPLACE help tpu-help HELP set\ cursor\ free tpu-set-cursor-free SET\ CURSOR\ FREE set\ cursor\ bound tpu-set-cursor-bound SET\ CURSOR\ BOUND set\ scroll\ margins tpu-set-scroll-margins SET\ SCROLL\ MARGINS tpu-error error] 6)
(defvar tpu-help-keypad-map "\f\n          _______________________    _______________________________\n         | HELP  |      Do       |  |       |       |       |       |\n         |KeyDefs|               |  |       |       |       |       |\n         |_______|_______________|  |_______|_______|_______|_______|\n          _______________________    _______________________________\n         | Find  |Insert |Remove |  | Gold  | HELP  |FndNxt | Del L |\n         |       |       |Sto Tex|  |  key  |E-Help | Find  |Undel L|\n         |_______|_______|_______|  |_______|_______|_______|_______|\n         |Select |Pre Scr|Nex Scr|  | Page  | Sect  |Append | Del W |\n         | Reset |Pre Win|Nex Win|  |  Do   | Fill  |Replace|Undel W|\n         |_______|_______|_______|  |_______|_______|_______|_______|\n                 |Move up|          |Forward|Reverse|Remove | Del C |\n                 |  Top  |          |Bottom |  Top  |Insert |Undel C|\n          _______|_______|_______   |_______|_______|_______|_______|\n         |Mov Lef|Mov Dow|Mov Rig|  | Word  |  EOL  | Char  |       |\n         |StaOfLi|Bottom |EndOfLi|  |ChngCas|Del EOL|SpecIns| Enter |\n         |_______|_______|_______|  |_______|_______|_______|       |\n                                    |     Line      |Select | Subs  |\n                                    |   Open Line   | Reset |       |\n                                    |_______________|_______|_______|\n")
(defvar tpu-help-text "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f\n\n      Control Characters\n\n      ^A  toggle insert and overwrite\n      ^B  recall\n      ^E  end of line\n\n      ^G  Cancel current operation\n      ^H  beginning of line\n      ^J  delete previous word\n\n      ^K  learn\n      ^L  insert page break\n      ^R  remember (during learn), re-center\n\n      ^U  delete to beginning of line\n      ^V  quote\n      ^W  refresh\n\n      ^Z  exit\n    ^X^X  exchange point and mark - useful for checking region boundaries\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f\n       Gold-<key> Functions\n\n       B     Next Buffer - display the next buffer (all buffers)\n       C     Recall - edit and possibly repeat previous commands\n       E     Exit - save current buffer and ask about others\n       G     Get - load a file into a new edit buffer\n\n       I     Include - include a file in this buffer\n       K     Kill Buffer - abandon edits and delete buffer\n       M     Buffer Menu - display a list of all buffers\n       N     Next File Buffer - display next buffer containing a file\n\n       O     Occur - show following lines containing REGEXP\n       Q     Quit - exit without saving anything\n       R     Toggle rectangular mode for remove and insert\n       S     Search and substitute - line mode REPLACE command\n\n      ^T     Toggle control key bindings between TPU and Emacs\n       U     Undo - undo the last edit\n       W     Write - save current buffer\n       X     Exit - save all modified buffers and exit\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f\n\n  More extensive documentation on TPU-edt can be found in the `Commentary'\n  section of tpu-edt.el.  This section can be accessed through the standard\n  Emacs help facility using the `p' option.  Once you exit TPU-edt Help, one\n  of the following key sequences is sure to get you there.\n\n    ^h p        if you're not yet using TPU-edt\n    Gold-PF2 p  if you're using TPU-edt\n\n  Alternatively, fire up Emacs help from the command prompt, with\n\n    M-x help-for-help <CR> p <CR>\n\n  Where `M-x' might be any of `Gold-KP7', 'Do', or 'ESC-x'.\n\n  When you successfully invoke this part of the Emacs help facility, you\n  will see a buffer named `*Finder*' listing a number of topics.  Look for\n  tpu-edt under `emulations'.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f\n\n   *** No more help, use P to view previous screen")
(defvar tpu-help-enter (format "%s" "OM"))
(defvar tpu-help-return (format "%s" "
"))
(defvar tpu-help-N "N")
(defvar tpu-help-n "n")
(defvar tpu-help-P "P")
(defvar tpu-help-p "p")
#@23 Display TPU-edt help.
(defalias 'tpu-help #[nil "\306 \307\216\310\311!\204\312\311!\210\313\311!\210	c\210\nc\210\314\313\311!\210\315 \210\316 \210\317y\210\320 \210\321\211\211\"#
\232?\205\313\f\203F\322\323!\"\202K\322\324!\"\325\326\"\"$
\232\203`\321\315 \210\2022%
\232\204n&
\232\203\206\f\203z\321\327\330\217\210\2022\331 \210\317y\210\320 \210\2022'
\232\204\224(
\232\203\257\f\203\240\321\332\333\217\210\2022\334y\210\335 \210\317y\210\320 \210\2022#
\232\2042\314\336\"!\210\337\"!\2042\340\341!\210\2022-\207" [#1=#:wconfig tpu-help-keypad-map tpu-help-text buffer-read-only split fkey current-window-configuration ((set-window-configuration #1#)) get-buffer "*TPU-edt Help*" generate-new-buffer switch-to-buffer t delete-other-windows tpu-move-to-beginning 1 tpu-line-to-top-of-window nil read-key-sequence "Press the key you want help on (RET=exit, ENTER=redisplay, N=next, P=prev): " "Press the key you want help on (RET to exit, N next screen, P prev screen): " format "%s" (scroll-other-window 8) ((error)) forward-page (scroll-other-window -8) ((error)) -1 backward-page describe-key key-binding sit-for 3 key tpu-help-return tpu-help-enter tpu-help-N tpu-help-n tpu-help-P tpu-help-p] 3 (#$ . 25877) nil])
#@66 Insert an escape character, and so becomes the escape-key alias.
(defalias 'tpu-insert-escape #[nil "\300c\207" [""] 1 (#$ . 27153) nil])
#@30 Insert a formfeed character.
(defalias 'tpu-insert-formfeed #[nil "\300c\207" ["\f"] 1 (#$ . 27298) nil])
#@27 Saved value of Control-r.
(defvar tpu-saved-control-r nil (#$ . 27410))
#@35 End the current macro definition.
(defalias 'tpu-end-define-macro-key #[(key) "\303\304!\210\305	\"\210\305\306\n\"\207" [key last-kbd-macro tpu-saved-control-r end-kbd-macro nil global-set-key ""] 3 (#$ . 27488) "kPress the key you want to use to do what was just learned: "])
#@63 Bind a set of keystrokes to a single key, or key combination.
(defalias 'tpu-define-macro-key #[nil "\301\302!\303\302\304\"\210\305\306!\207" [tpu-saved-control-r global-key-binding "" global-set-key tpu-end-define-macro-key start-kbd-macro nil] 3 (#$ . 27774) nil])
#@107 Kill the current buffer.
If `tpu-kill-buffers-silently' is non-nil,
kill modified buffers without asking.
(defalias 'tpu-kill-buffer #[nil "\203\301\302!\210\303p!\207" [tpu-kill-buffers-silently set-buffer-modified-p nil kill-buffer] 2 (#$ . 28051) nil])
#@34 Save all buffers and exit Emacs.
(defalias 'tpu-save-all-buffers-kill-emacs #[nil "\301\302\301!)\207" [delete-old-versions t save-buffers-kill-emacs] 2 (#$ . 28316) nil])
#@44 Save all modified buffers without exiting.
(defalias 'tpu-write-current-buffers #[nil "\300\301!\207" [save-some-buffers t] 2 (#$ . 28495) nil])
#@28 Go to next buffer in ring.
(defalias 'tpu-next-buffer #[nil "\300\301\302 !@!\207" [switch-to-buffer reverse buffer-list] 3 (#$ . 28646) nil])
#@65 Go to next buffer in ring that is visiting a file or directory.
(defalias 'tpu-next-file-buffer #[nil "\301\302 !\303p\"\211\204\304\305!\210\306\307!@!)\207" [list tpu-make-file-buffer-list buffer-list delq tpu-error "No other buffers." switch-to-buffer reverse] 4 (#$ . 28795) nil])
#@79 Return names from BUFFER-LIST excluding those beginning with a space or star.
(defalias 'tpu-make-file-buffer-list #[(buffer-list) "\301\302\303\304\"\"\207" [buffer-list delq nil mapcar #[(b) "\301!\302H\303U\206\301!\302H\304U?\205\207" [b buffer-name 0 32 42] 2]] 5 (#$ . 29092)])
#@26 Move to the next window.
(defalias 'tpu-next-window #[nil "\300 \203	\301\302!\207\303\304!\207" [one-window-p message "There is only one window on screen." other-window 1] 2 (#$ . 29390) nil])
#@30 Move to the previous window.
(defalias 'tpu-previous-window #[nil "\300 \203	\301\302!\207\303\304 !\207" [one-window-p message "There is only one window on screen." select-window previous-window] 2 (#$ . 29591) nil])
#@66 Switch in and out of regular expression search and replace mode.
(defalias 'tpu-toggle-regexp #[nil "?\301 \210\302\303!\205\304\305\203\306\202\307\"\207" [tpu-regexp-p tpu-set-search called-interactively-p interactive message "Regular expression search and substitute %sabled." "en" "dis"] 3 (#$ . 29816) nil])
#@66 Read a string, adding 'RE' to the prompt if tpu-regexp-p is set.
(defalias 'tpu-regexp-prompt #[(prompt) "\205\303	P\304\n\305\211\211\306%)\207" [tpu-regexp-p prompt re-prompt "RE " read-from-minibuffer nil tpu-regexp-prompt-hist] 6 (#$ . 30144)])
(defalias 'tpu-search-highlight #[nil "\301 \203\302\303 \304 p$\207\305!\306!\232?\205\302\307\211p$\207" [tpu-search-overlay tpu-check-match move-overlay tpu-match-beginning tpu-match-end overlay-start overlay-end 1] 5])
#@94 Search for a string or regular expression.
The search is performed in the current direction.
(defalias 'tpu-search #[nil "\300 \210\301\302!\207" [tpu-set-search tpu-search-internal ""] 2 (#$ . 30634) nil])
#@91 Search for a string or regular expression.
The search is begins in the forward direction.
(defalias 'tpu-search-forward #[nil "\301\302\301!\210\303\304!\207" [tpu-searching-forward t tpu-set-search tpu-search-internal ""] 2 (#$ . 30847) nil])
#@91 Search for a string or regular expression.
The search is begins in the reverse direction.
(defalias 'tpu-search-reverse #[nil "\301\302\303!\210\304\305!\207" [tpu-searching-forward nil tpu-set-search t tpu-search-internal ""] 2 (#$ . 31098) nil])
#@114 Search for the same string or regular expression as last time.
The search is performed in the current direction.
(defalias 'tpu-search-again #[nil "\301!\207" [tpu-search-last-string tpu-search-internal] 2 (#$ . 31354) nil])
#@142 Set the search functions and set the search direction to the current direction.
If an argument is specified, don't set the search direction.
(defalias 'tpu-set-search #[(&optional arg) "\204	\n\203\203\304\305M\210\306\307M\207\304\310M\210\306\311M\207\203*\304\307M\210\306\305M\207\304\311M\210\306\310M\207" [arg tpu-advance tpu-searching-forward tpu-regexp-p tpu-emacs-search re-search-forward tpu-emacs-rev-search re-search-backward search-forward search-backward] 2 (#$ . 31587)])
#@44 Search for a string or regular expression.
(defalias 'tpu-search-internal #[(pat &optional quiet) "\306\230\204\n\202
\307\310!\311 \210\312 \210\n\205\313	!\314	\315\316#\203-\317 \210\320 b\202{\312\316!\210\315\211\212
?\312 \210\321	\315\316#\322\224*\f\203f\323\324\325
\203U\326\202V\327\"!\205zb\210\317 \210\330 \202z?\205z\331\332\203w\333\202x\306	#*)\207" [pat tpu-search-last-string case-fold-search pos found tpu-searching-forward "" tpu-regexp-prompt "Search: " tpu-unset-match tpu-adjust-search tpu-check-search-case tpu-emacs-search nil t tpu-set-match tpu-match-beginning tpu-emacs-rev-search 0 tpu-y-or-n-p format "Found in %s direction.  Go there? " "reverse" "forward" tpu-toggle-search-direction message "%sSearch failed: \"%s\"" "RE " quiet tpu-regexp-p] 4 (#$ . 32092)])
(byte-code "\300\301\302K\"\207" [defalias tpu-search-internal-core tpu-search-internal] 3)
#@41 Return t if string contains upper case.
(defalias 'tpu-check-search-case #[(string) "\203a\305	!\306\307\310\311\f\"\211\203\f\nT\312I\210\202\f\310\313\f\"\211\2030\f\nT\312I\210\202\310\314\f\"\211\203B\f\nT\312I\210\2020\310\315\f\"\211\203[\f\nT\312I\210\f\316\n\\\312I\210\202B\f\211\227\230+\207	\211\227\230\207" [tpu-regexp-p string pos case-fold-search pat copy-sequence nil 0 string-match "\\\\\\\\" 46 "\\\\B" "\\\\W" "\\\\S." 2] 3 (#$ . 33012)])
#@140 For forward searches, move forward a character before searching,
and backward a character after a failed search.  Arg means end of search.
(defalias 'tpu-adjust-search #[(&optional arg) "\205	\203o?\205\302u\207m?\205\303u\207" [tpu-searching-forward arg -1 1] 1 (#$ . 33496)])
#@79 Toggle the TPU-edt search direction.
Used for reversing a search in progress.
(defalias 'tpu-toggle-search-direction #[nil "?\301\302!\210\303\304!\205\305\306\203\307\202\310\"\207" [tpu-searching-forward tpu-set-search t called-interactively-p interactive message "Searching %sward." "for" "back"] 3 (#$ . 33789) nil])
#@51 Set search direction forward and exit minibuffer.
(defalias 'tpu-search-forward-exit #[nil "\301\302\301!\210\303 \207" [tpu-searching-forward t tpu-set-search exit-minibuffer] 2 (#$ . 34125) nil])
#@52 Set search direction backward and exit minibuffer.
(defalias 'tpu-search-backward-exit #[nil "\301\302\303!\210\304 \207" [tpu-searching-forward nil tpu-set-search t exit-minibuffer] 2 (#$ . 34330) nil])
#@45 Set the mark to define one end of a region.
(defalias 'tpu-select #[(&optional quiet) "\301 \203	\302!\207\303`!\210\304 \210?\205\305\306!\207" [quiet tpu-mark tpu-unselect tpu-set-mark tpu-update-mode-line message "Move the text cursor to select text."] 2 (#$ . 34541) "P"])
#@49 Remove the mark to unselect the current region.
(defalias 'tpu-unselect #[(&optional quiet) "\306	\204\n\205{\n\307=\203	\242\307=\202\n\203P\310 \203P\311 \203P\2033\312\313\"\210\306\202P\314 \315 U\204P\316\313!\204G\317\313!\204P\312\313\314 \315 {\"\210\204l	\320=\204f	\242\307=\203l	A\204l\306\211\202{	\242\307=\203v	A\306\321\322!)\210\306\323\306!\210\324 \210?\205\217\325\326!\207" [force transient-mark-mode select-active-regions saved-region-selection mark-active mark-ring nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook tpu-set-mark tpu-update-mode-line message "Selection canceled." quiet] 4 (#$ . 34829) "P"])
#@48 Toggle rectangular mode for remove and insert.
(defalias 'tpu-toggle-rectangle #[nil "?\211\203\302\202\f\303\304 \210\305\306!\205\"\307\310\203 \311\202!\312\"\207" [tpu-rectangular-p tpu-rectangle-string " Rect" "" tpu-update-mode-line called-interactively-p interactive message "Rectangular cut and paste %sabled." "en" "dis"] 4 (#$ . 35625) nil])
#@77 Adjust point and mark to upper left and lower right corners of a rectangle.
(defalias 'tpu-arrange-rectangle #[nil "i\302 \210i`\303 V\203(	V\203\302 \202=\304	\305\"\210\302 \210\304\305\"\202=	V\205=\304	\305\"\210\302 \210\304\305\"\210\302 *\207" [pc mc exchange-point-and-mark tpu-mark move-to-column t] 3 (#$ . 35993)])
#@74 Delete the selected region.
The text is saved for the tpu-paste command.
(defalias 'tpu-cut-text #[nil "\305 \203&\203\306 \210\307`\305 	?#\210\310\311!\207\305 `{\305 `|\210\310\311!\207\312 \203=\313 \314 \211{\f|\210\315 *\207\316\317!\207" [tpu-rectangular-p overwrite-mode tpu-last-deleted-region end beg tpu-mark tpu-arrange-rectangle picture-clear-rectangle tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match tpu-error "No selection active."] 5 (#$ . 36337) nil])
#@110 Copy the selected region to the cut buffer without deleting it.
The text is saved for the tpu-paste command.
(defalias 'tpu-store-text #[nil "\303 \203!\203\212\304 \210\305`\303 \")\306\307!\207\303 `{\306\307!\207\310 \203/\311 \312 {\313 \207\314\315!\207" [tpu-rectangular-p picture-killed-rectangle tpu-last-deleted-region tpu-mark tpu-arrange-rectangle extract-rectangle tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match tpu-error "No selection active."] 3 (#$ . 36857) nil])
#@104 Copy selected region to the cut buffer.
In the absence of an argument, delete the selected region too.
(defalias 'tpu-cut #[(arg) "\203\301 \207\302 \207" [arg tpu-store-text tpu-cut-text] 1 (#$ . 37385) "P"])
#@110 Append selected region to the tpu-cut buffer.
In the absence of an argument, delete the selected region too.
(defalias 'tpu-append-region #[(arg) "\304 \203\305 \306 \n	{P\204	|\210\307\310!*\207\311 \203;\312 \313 \n	{P\2047	|\210\314 *\207\315\316!\207" [end beg tpu-last-deleted-region arg tpu-mark region-beginning region-end tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match tpu-error "No selection active."] 3 (#$ . 37605) "P"])
#@170 Delete one or specified number of lines after point.
This includes the newline character at the end of each line.
They are saved for the TPU-edt undelete-lines command.
(defalias 'tpu-delete-current-line #[(num) "`	y\210h\303=\204\304c\210`{`|)\207" [beg num tpu-last-deleted-lines 10 "\n"] 2 (#$ . 38096) "p"])
#@144 Delete text up to end of line.
With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command.
(defalias 'tpu-delete-to-eol #[(num) "`\303u\210	\210`{`|)\207" [beg num tpu-last-deleted-lines 1] 2 (#$ . 38421) "p"])
#@152 Delete text back to beginning of line.
With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command.
(defalias 'tpu-delete-to-bol #[(num) "`\303	!\210`{`|)\207" [beg num tpu-last-deleted-lines tpu-next-beginning-of-line] 2 (#$ . 38696) "p"])
#@109 Delete one or specified number of words after point.
They are saved for the TPU-edt undelete-words command.
(defalias 'tpu-delete-current-word #[(num) "`\303	!\210`{`|)\207" [beg num tpu-last-deleted-words tpu-forward-to-word] 2 (#$ . 38999) "p"])
#@110 Delete one or specified number of words before point.
They are saved for the TPU-edt undelete-words command.
(defalias 'tpu-delete-previous-word #[(num) "`\303	!\210`{`|)\207" [beg num tpu-last-deleted-words tpu-backward-to-word] 2 (#$ . 39258) "p"])
#@134 Delete one or specified number of characters after point.
The last character deleted is saved for the TPU-edt undelete-char command.
(defalias 'tpu-delete-current-char #[(num) "\303V\205'm?\205'`f\n\203\304\305!\210\305u\210\202 \306\305!\210S\211\202
\207" [num tpu-last-deleted-char overwrite-mode 0 picture-clear-column 1 delete-char] 3 (#$ . 39520) "p"])
#@103 Insert the last region or rectangle of killed text.
With argument reinserts the text that many times.
(defalias 'tpu-paste #[(num) "\305V\205(	\203`\212\306?!\210\307\310!\210)\nb\210)\202!\fc\210S\211\202
\207" [num tpu-rectangular-p beg overwrite-mode tpu-last-deleted-region 0 picture-yank-rectangle message ""] 3 (#$ . 39896) "p"])
#@108 Insert lines deleted by last TPU-edt line-deletion command.
With argument reinserts lines that many times.
(defalias 'tpu-undelete-lines #[(num) "`	\303V\203\nc\210	S\211\202b)\207" [beg num tpu-last-deleted-lines 0] 3 (#$ . 40249) "p"])
#@108 Insert words deleted by last TPU-edt word-deletion command.
With argument reinserts words that many times.
(defalias 'tpu-undelete-words #[(num) "`	\303V\203\nc\210	S\211\202b)\207" [beg num tpu-last-deleted-words 0] 3 (#$ . 40501) "p"])
#@125 Insert character deleted by last TPU-edt character-deletion command.
With argument reinserts the character that many times.
(defalias 'tpu-undelete-char #[(num) "\303V\205	\203\304u\210\305\306!\210\nc\210\304u\210S\211\202
\207" [num overwrite-mode tpu-last-deleted-char 0 -1 delete-char 1] 3 (#$ . 40753) "p"])
#@66 Replace the selected region with the contents of the cut buffer.
(defalias 'tpu-replace #[nil "\306 \203\307 \310 \211{	|\210c\210\311\312!*\207\313 \2036\314 \315 \211{\316\f?
?#\210\317 *\207\320\321!\207" [end beg tpu-last-replaced-text tpu-last-deleted-region case-replace tpu-regexp-p tpu-mark region-beginning region-end tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end replace-match tpu-unset-match tpu-error "No selection active."] 5 (#$ . 41080) nil])
#@215 Replace the selected region with the contents of the cut buffer,
and repeat most recent search.  A numeric argument serves as a repeat count.
A negative argument means replace all occurrences of the search string.
(defalias 'tpu-substitute #[(num) "\304 \204\n\305 \203G\306U?\205F\304 \204\305 \205J`\307 \210\n\203*\310u\210\202-	b\210\311U\203:\312!\210\202>\313!\210)S\211\202\207\314\315!\207" [num beg tpu-searching-forward tpu-search-last-string tpu-mark tpu-check-match 0 tpu-replace -1 1 tpu-search-internal tpu-search-internal-core tpu-error "No selection active."] 3 (#$ . 41578) "p"])
#@64 Interactively search for OLD-string and substitute NEW-string.
(defalias 'tpu-lm-replace #[(from to) "\306\307\n\310\230\203\311\312!\210\313 \210\314\n\306\"\210	\2036
\315 \204%\316\211\202\317\320 \321 p$\210\322\323!\210\324 \211\325U\204M\f\326U\204M\f\327U\204M\f\330U\203t`\331)*?+?#\210T,\203h\332u\210\202k
b\210)\314\n\306\"\210\2022
\f\333U\204\206\f\334U\204\206\f\335U\203\216\314\n\306\"\210\2022
\f\336U\204\232\f\337U\203\361\212`\331)*?+?#\210T,\203\266\332u\210\202\271
b\210)\340\n\306\"\210\315 \203\353`\331)*?+?#\210T,\203\337\332u\210\202\342
b\210)\340\n\306\"\210\202\277)\316\2022
\f\341U\204\375\f\342U\203!
`\331)*?+?#\210T,\203
\332u\210\202

b\210)\316\2022
\f\343U\204-
\f\344U\2032
\345 \210\316)\202\317\346\211p$\210\322\347\211\346U\204J
\350\202K
\310#*\207" [strings doit from tpu-replace-overlay ans beg t 0 "" tpu-error "No string to replace." tpu-set-search tpu-search-internal tpu-check-match nil move-overlay tpu-match-beginning tpu-match-end message "Replace? Type Yes, No, All, Last, or Quit: " read-char 121 89 13 32 replace-match -1 110 78 127 97 65 tpu-search-internal-core 108 76 113 81 tpu-unset-match 1 "Replaced %s occurrence%s." "s" to case-replace tpu-regexp-p tpu-searching-forward] 6 (#$ . 42200) (list (tpu-regexp-prompt "Old String: ") (tpu-regexp-prompt "New String: "))])
#@268 A TPU-edt interface to the Emacs replace functions.
If TPU-edt is currently in regular expression mode, the Emacs regular
expression replace functions are used.  If an argument is supplied,
replacements are performed without asking.  Only works in forward direction.
(defalias 'tpu-emacs-replace #[(&optional dont-ask) "\203\303\304\n\203\305\202\306!\207\304\n\203\307\202\310!\207" [dont-ask current-prefix-arg tpu-regexp-p nil call-interactively replace-regexp replace-string query-replace-regexp query-replace] 2 (#$ . 43603) "P"])
#@113 Add text to the beginning of each line in a region,
or each line in the entire buffer if no region is selected.
(defalias 'tpu-add-at-bol #[(text) "\301\230\203\n\302\303!\210\304 \203=\212`\304 V\203\305 \210`\304 W\2038\306\307\304 \310#\2038`\304 W\203\311!\210\202)\312\310!\207\212eb\210\306\307\313\310#\205Um?\205U\311!\210\202A)\207" [text "" tpu-error "No string specified." tpu-mark exchange-point-and-mark re-search-forward "^" t replace-match tpu-unselect nil] 4 (#$ . 44158) (list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist))])
#@107 Add text to the end of each line in a region,
or each line of the entire buffer if no region is selected.
(defalias 'tpu-add-at-eol #[(text) "\301\230\203\n\302\303!\210\304 \2039\212`\304 V\203\305 \210`\304 W\2034\306\210`\304 X\203.c\210\306y\210\202)\307\310!\207\212eb\210m?\205N\306\210c\210\306y\210\202=)\207" [text "" tpu-error "No string specified." tpu-mark exchange-point-and-mark nil tpu-unselect t] 2 (#$ . 44737) (list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist))])
#@59 Remove trailing whitespace from every line in the buffer.
(defalias 'tpu-trim-line-ends #[nil "\301 \302\216\212eb\210\303\304\305\306#\205\307\224\307\225|\210\202	+\207" [save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "[ 	][ 	]*$" nil t 0] 4 (#$ . 45254) nil])
#@102 Move to the next character in the current direction.
A repeat count means move that many characters.
(defalias 'tpu-char #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-forward-char tpu-backward-char] 2 (#$ . 45621) "p"])
#@54 Move right ARG characters (left if ARG is negative).
(defalias 'tpu-forward-char #[(num) "u\207" [num] 1 (#$ . 45860) "p"])
#@54 Move left ARG characters (right if ARG is negative).
(defalias 'tpu-backward-char #[(num) "[u\207" [num] 1 (#$ . 45991) "p"])
#@37 List of additional word separators.
(defvar tpu-word-separator-list nil (#$ . 46124))
#@94 Characters to skip when moving by word.
Additional word separators are added to this string.
(defvar tpu-skip-chars "^ 	" (#$ . 46216))
#@109 Move to the beginning of the next word in the current direction.
A repeat count means move that many words.
(defalias 'tpu-word #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-forward-to-word tpu-backward-to-word] 2 (#$ . 46359) "p"])
#@98 Move forward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'tpu-forward-to-word #[(num) "\305V\205@m?\205@`\306\210`	b\210l\203\307u\210\2028`f>\2030\307u\210\310\nw\210\2028\f\nw\210\310\nw\210*S\211\202
\207" [num beg end tpu-word-separator-list tpu-skip-chars 0 nil 1 " 	"] 3 (#$ . 46611) "p"])
#@99 Move backward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'tpu-backward-to-word #[(num) "\305V\205Lo?\205L`\306 \210`	b\210n\203\307u\210\202D`Sf>\203-\307u\210\202D\310\nx\210\f\nx\210n\204D`fz\311U\203D\307u\210*S\211\202
\207" [num beg end tpu-word-separator-list tpu-skip-chars 0 beginning-of-line -1 " 	" 32] 3 (#$ . 46978) "p"])
#@52 Add new word separators for TPU-edt word commands.
(defalias 'tpu-add-word-separators #[(separators) "\306	G\nW\205Z	H	\211TO\211
>\204S\307
\"\f\310U\203/\311P\202S\f\312U\203>\313P\202S\f\314U\203M\315P\202SPT*\202*\207" [n separators length ss char tpu-word-separator-list 0 append 45 "\\-" 92 "\\\\" 94 "\\^" tpu-skip-chars] 5 (#$ . 47385) "sSeparators: "])
#@41 Reset word separators to default value.
(defalias 'tpu-reset-word-separators #[nil "\302\303\211\207" [tpu-word-separator-list tpu-skip-chars nil "^ 	"] 2 (#$ . 47791) nil])
#@52 Set new word separators for TPU-edt word commands.
(defalias 'tpu-set-word-separators #[(separators) "\301 \210\302!\207" [separators tpu-reset-word-separators tpu-add-word-separators] 2 (#$ . 47973) "sSeparators: "])
#@62 Move to next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-next-line #[(num) "\302!\210\303\211\207" [num this-command line-move next-line] 2 (#$ . 48198) "p"])
#@66 Move to previous line.
Prefix argument serves as a repeat count.
(defalias 'tpu-previous-line #[(num) "\302[!\210\303\211\207" [num this-command line-move previous-line] 2 (#$ . 48384) "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) "\301u\210\302\303Z!\207" [num -1 forward-visible-line 1] 3 (#$ . 48584) "p"])
#@99 Move to the next end of line in the current direction.
A repeat count means move that many lines.
(defalias 'tpu-end-of-line #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-next-end-of-line tpu-previous-end-of-line] 2 (#$ . 48851) "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) "\301u\210\207" [num 1] 1 (#$ . 49106) "p"])
#@77 Move EOL upward.
Accepts a prefix argument for the number of lines to move.
(defalias 'tpu-previous-end-of-line #[(num) "\301Z\207" [num 1] 2 (#$ . 49316) "p"])
#@36 Move point to end of current line.
(defalias 'tpu-current-end-of-line #[nil "`\301\210`U\205\302\303!)\207" [beg nil message "You are already at the end of a line."] 2 (#$ . 49485) nil])
#@109 Move to the beginning of the next line in the current direction.
A repeat count means move that many lines.
(defalias 'tpu-line #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-forward-line tpu-backward-line] 2 (#$ . 49684) "p"])
#@75 Move to beginning of next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-forward-line #[(num) "y\207" [num] 1 (#$ . 49930) "p"])
#@77 Move to beginning of previous line.
Prefix argument serves as repeat count.
(defalias 'tpu-backward-line #[(num) "n\204
\301Y\204
S[y\207" [num 0] 2 (#$ . 50082) "p"])
#@102 Move to the next paragraph in the current direction.
A repeat count means move that many paragraphs.
(defalias 'tpu-paragraph #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-next-paragraph tpu-previous-paragraph] 2 (#$ . 50263) "p"])
#@98 Move to beginning of the next paragraph.
Accepts a prefix argument for the number of paragraphs.
(defalias 'tpu-next-paragraph #[(num) "\301 \210m\204-\302V\203-\303\304\305\306#\203'\303\307\305\306#\203$\302\224b\210\202'db\210S\202\301 \207" [num beginning-of-line 0 re-search-forward "^[ 	]*$" nil t "[^ 	\n]"] 4 (#$ . 50514) "p"])
#@98 Move to beginning of previous paragraph.
Accepts a prefix argument for the number of paragraphs.
(defalias 'tpu-previous-paragraph #[(num) "\301\210o\204:\302V\203:\303\304\301\305#\2031\303\306\301\305#\2031\303\304\301\305#\2031\307\306\301\305#\210\302\224b\2044eb\210S\202\310 \207" [num nil 0 re-search-backward "^[ 	]*$" t "[^ 	\n]" re-search-forward beginning-of-line] 4 (#$ . 50866) "p"])
#@92 Move to the next page in the current direction.
A repeat count means move that many pages.
(defalias 'tpu-page #[(num) "\203\302	!\210\202\303	!\210m\205\304\305!\207" [tpu-advance num forward-page backward-page recenter -1] 2 (#$ . 51281) "p"])
#@114 Scroll the display to the next section in the current direction.
A repeat count means scroll that many sections.
(defalias 'tpu-scroll-window #[(num) "\203\302	!\207\303	!\207" [tpu-advance num tpu-scroll-window-up tpu-scroll-window-down] 2 (#$ . 51541) "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\fV\205\311\312!+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move recenter 0] 3 (#$ . 51810) "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\f\\	Y\205\311\312!+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move recenter -1] 3 (#$ . 52137) "p"])
#@115 Pan right tpu-pan-columns (16 by default).
Accepts a prefix argument for the number of tpu-pan-columns to scroll.
(defalias 'tpu-pan-right #[(num) "\302	_!\207" [tpu-pan-columns num scroll-left] 3 (#$ . 52464) "p"])
#@114 Pan left tpu-pan-columns (16 by default).
Accepts a prefix argument for the number of tpu-pan-columns to scroll.
(defalias 'tpu-pan-left #[(num) "\302	_!\207" [tpu-pan-columns num scroll-right] 3 (#$ . 52688) "p"])
#@65 Move cursor to the beginning of buffer, but don't set the mark.
(defalias 'tpu-move-to-beginning #[nil "eb\207" [] 1 (#$ . 52910) nil])
#@59 Move cursor to the end of buffer, but don't set the mark.
(defalias 'tpu-move-to-end #[nil "db\210\300\301!\207" [recenter -1] 2 (#$ . 53052) nil])
#@45 Move point to ARG percentage of the buffer.
(defalias 'tpu-goto-percent #[(perc) "\301V\204\f\302W\203\303\304\"\207d_\301\245b\207" [perc 100 0 tpu-error "Percentage %d out of range 0 < percent < 100."] 3 (#$ . 53206) "NGoto-percentage: "])
#@31 Move cursor to top of window.
(defalias 'tpu-beginning-of-window #[nil "\300\301!\207" [move-to-window-line 0] 2 (#$ . 53461) nil])
#@34 Move cursor to bottom of window.
(defalias 'tpu-end-of-window #[nil "\300\301!\207" [move-to-window-line -1] 2 (#$ . 53599) nil])
#@52 Move the current line to the bottom of the window.
(defalias 'tpu-line-to-bottom-of-window #[nil "\300\301!\207" [recenter -1] 2 (#$ . 53735) nil])
#@49 Move the current line to the top of the window.
(defalias 'tpu-line-to-top-of-window #[nil "\300\301!\207" [recenter 0] 2 (#$ . 53889) nil])
#@55 Set TPU Advance mode so keypad commands move forward.
(defalias 'tpu-advance-direction #[nil "\303\304\305\306 \210\307 \207" [tpu-direction-string tpu-advance tpu-reverse " Advance" t nil tpu-set-search tpu-update-mode-line] 1 (#$ . 54036) nil])
#@55 Set TPU Backup mode so keypad commands move backward.
(defalias 'tpu-backup-direction #[nil "\303\304\305\306 \210\307 \207" [tpu-direction-string tpu-advance tpu-reverse " Reverse" nil t tpu-set-search tpu-update-mode-line] 1 (#$ . 54292) nil])
#@35 Change the current TPU direction.
(defalias 'tpu-toggle-direction #[nil "\203\301 \207\302 \207" [tpu-advance tpu-backup-direction tpu-advance-direction] 1 (#$ . 54547) nil])
(byte-code "\302\303\304#\210\302	\305\306#\210\302\307\310#\210\302\311\312#\207" [minibuffer-local-map minibuffer-local-must-match-map define-key [kp-enter] exit-minibuffer [kp-enter] minibuffer-complete-and-exit [kp-4] tpu-search-forward-exit [kp-5] tpu-search-backward-exit] 4)
(defvar tpu-control-keys-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210)\207" [map make-sparse-keymap define-key "" quoted-insert "
" tpu-toggle-overwrite-mode "" repeat-complex-command "" tpu-current-end-of-line "" tpu-next-beginning-of-line "\n" tpu-delete-previous-word "" tpu-define-macro-key "\f" tpu-insert-formfeed "" recenter "" tpu-delete-to-bol "" tpu-quoted-insert "" redraw-display "" tpu-exit] 4))
#@42 Set control keys to TPU style functions.
(defalias 'tpu-set-control-keys #[nil "\300\301!\207" [tpu-reset-control-keys tpu] 2 (#$ . 55648)])
#@51 Set control keys to TPU or Emacs style functions.
(defalias 'tpu-reset-control-keys #[(tpu-style) "\305!\n\203	=\204-\306	\"\210\306\"\210\202-	=\203-\306\305	!\"\210\306\307\"\210\n\211)\207" [tpu-global-map parent tpu-style tpu-control-keys-map tpu-control-keys keymap-parent set-keymap-parent nil] 4 (#$ . 55795)])
#@56 Toggle control key bindings between TPU-edt and Emacs.
(defalias 'tpu-toggle-control-keys #[nil "\301?!\210\302\303!\205\304\305\203\306\202\307\"\207" [tpu-control-keys tpu-reset-control-keys called-interactively-p interactive message "Control keys function with %s bindings." "TPU-edt" "Emacs"] 3 (#$ . 56134) nil])
#@72 Insert the next element of the minibuffer history into the minibuffer.
(defalias 'tpu-next-history-element #[(n) "\301!\210db\207" [n next-history-element] 2 (#$ . 56466) "p"])
#@76 Insert the previous element of the minibuffer history into the minibuffer.
(defalias 'tpu-previous-history-element #[(n) "\301!\210db\207" [n previous-history-element] 2 (#$ . 56650) "p"])
#@58 Modify minibuffer maps to use arrows for history recall.
(defalias 'tpu-arrow-history #[nil "\304\305!\306\211\203 	@\307\n\310#\210\307\310#\210	A\211\204\n*\304\311!\306\211\205B	@\307\n\312#\210\307\312#\210	A\211\204+\306*\207" [cur --dolist-tail-- read-expression-map minibuffer-local-map where-is-internal tpu-previous-line nil define-key tpu-previous-history-element tpu-next-line tpu-next-history-element] 5 (#$ . 56846) nil])
#@183 Load the TPU-edt X-windows key definitions FILE.
If FILE is nil, try to load a default file.  The default file names are
`~/.tpu-lucid-keys' for XEmacs, and `~/.tpu-keys' for Emacs.
(defalias 'tpu-load-xkeys #[(file) "\203\302!\2025	\203\302	!\2025\303\302\304!!\305!\2045\305\303\302\306!!!\2035\307\303\302\306!!\"\210\310!\203?\311!\207\312\313\314!\"\207" [file tpu-xkeys-file expand-file-name convert-standard-filename "~/.tpu-keys" file-exists-p "~/.tpu-gnu-keys" tpu-copy-keyfile file-readable-p load-file message "%s not found: use M-x tpu-mapper to create it" abbreviate-file-name] 4 (#$ . 57306) "fX key definition file: "])
#@66 Copy the TPU-edt X key definitions file to the new default name.
(defalias 'tpu-copy-keyfile #[(oldname newname) "\301\302!\204\n\303\302!\210\302q\210\304 \210\305c\210\306 \307\216\310\302!\210\311 \210eb\210\312 \210\313\314!\2030\315\316\317\217\210\320\302!*\207" [#1=#:wconfig get-buffer "*TPU-Notice*" generate-new-buffer erase-buffer "\n  NOTICE --\n\n  The default name of the TPU-edt key definition file has changed\n  from `~/.tpu-gnu-keys' to `~/.tpu-keys'.  With your permission,\n  your key definitions will be copied to the new file.  If you'll\n  never use older versions of Emacs, you can remove the old file.\n  If the copy fails, you'll be asked if you want to create a new\n  key definitions file.  Do you want to copy your key definition\n  file now?\n  " current-window-configuration ((set-window-configuration #1#)) switch-to-buffer-other-window shrink-window-if-larger-than-buffer beep tpu-y-or-n-p "Copy key definitions to the new file now? " conditions (copy-file oldname newname) ((error (byte-code "\301\302A\"\207" [conditions message "Sorry, couldn't copy - %s."] 3))) kill-buffer] 3 (#$ . 57966) "fOld name: \nFNew name: "])
(defvar tpu-edt-old-global-values nil)
#@28 Turn on TPU/edt emulation.
(defalias 'tpu-edt-on #[nil "\306 \210\307	\"\210\310	!\210\311\312!\210\313\314\315\"\210\316\312!\210\317 \210\320\321\211\203A@\211@\322\n@!B\fB\323\n@\nA\"\210A\211\204&*\324 \210
\203M\325\321!\210\326 \210\327 \307	\"\210\310!\210)\312\211\207" [tpu-global-map global-map varval --dolist-tail-- tpu-edt-old-global-values window-system tpu-edt-off set-keymap-parent use-global-map transient-mark-mode t add-hook post-command-hook tpu-search-highlight tpu-set-mode-line tpu-advance-direction ((page-delimiter . "\f") (truncate-lines . t) (scroll-step . 1)) nil default-value set-default tpu-set-control-keys tpu-load-xkeys tpu-arrow-history make-sparse-keymap map tpu-edt-mode] 4 (#$ . 59171) nil])
#@63 Turn off TPU/edt emulation.  Note that the keypad is left on.
(defalias 'tpu-edt-off #[nil "\306\307!\210\310\311\312\"\210\313\307!\210\203\"\211A@\314	@	A\"\210)\202
\n\203B\315!
\f=\203<\316\315\f!\"\210\202>\f)\202$)\307\317\320\217\210\307\211\207" [tpu-edt-old-global-values varval global-map map parent tpu-global-map tpu-reset-control-keys nil remove-hook post-command-hook tpu-search-highlight tpu-set-mode-line set-default keymap-parent set-keymap-parent (ad-disable-regexp "\\`tpu-") ((error)) tpu-edt-mode] 4 (#$ . 59931) nil])
#@239 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.

(fn &optional ARG)
(autoload 'tpu-cursor-free-mode "tpu-extras" '(#$ . 60496) t nil)
#@38 Set scroll margins.

(fn TOP BOTTOM)
(autoload 'tpu-set-scroll-margins "tpu-extras" '(#$ . 60806) t nil)
#@57 Allow the cursor to move freely about the screen.

(fn)
(autoload 'tpu-set-cursor-free "tpu-extras" '(#$ . 60917) t nil)
#@53 Constrain the cursor to the flow of the text.

(fn)
(autoload 'tpu-set-cursor-bound "tpu-extras" '(#$ . 61044) t nil)
(provide 'tpu-edt)