;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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" (#$ . 268)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\313%\207" [custom-declare-variable tpu-kill-buffers-silently funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, TPU-edt kills modified buffers without asking." :type boolean tpu-percent-scroll #[0 "\300\207" [75] 1 #1#] "Percentage of the screen to scroll for next/previous screen commands." integer tpu-pan-columns #[0 "\300\207" [16] 1 #1#] "Number of columns the tpu-pan functions scroll left or right."] 6)#@112 Maps the function keys on the VT100 keyboard preceded by PF1. GOLD is the ASCII 7-bit escape sequence OP. (defvar tpu-gold-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\305#\210\301\347\303#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\315#\210\301\365\366#\210\301\367\370#\210\301\371\372#\210\301\373\327#\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201G#\210\301\201H\201I#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\301\201P\201Q#\210\301\201R\201S#\210\301\201T\201U#\210\301\201V\325#\210\301\201W\201X#\210\301\201Y\201Z#\210\301\201[\201Z#\210\301\201\\\201Z#\210\301\201]\201Z#\210\301\201^\201Z#\210\301\201_\201Z#\210\301\201`\201Z#\210\301\201a\201Z#\210\301\201b\201Z#\210\301\201c\201Z#\210\301\201d\201e#\210\301\201f\201g#\210\301\201h\201i#\210\301\201j\201k#\210\301\201l\201m#\210\301\201n\201m#\210\301\201o\201p#\210\301\201q\201r#\210\301\201s\201t#\210\301\201u\201v#\210\301\201w\201x#\210\301\201y\201z#\210\301\201{\201|#\210\301\201}\201~#\210\301\201\201\200#\210\301\201\201\201\202#\210\301\201\203\201\204#\210\301\201\205\201\206#\210\301\201\207\201\210#\210\301\201\211\201\212#\210\301\201\213\201\214#\210\301\201\215\201\216#\210\301\201\217\201\220#\210\301\201\221\201\222#\210\301\201\223\201\224#\210\301\201\225\201\226#\210\301\201\227\201\230#\210\301\201\231\201K#\210\301\201\232\201\233#\210\301\201\234\201\235#\210\301\201\236\201\237#\210\301\201\240\201\241#\210\301\201\242\201\243#\210\301\201\244\201\245#\210\301\201\246\201\247#\210\301\201\250\201\251#\210\207" [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] 5) (#$ . 879))#@24 TPU-edt global keymap. (defvar tpu-global-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#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\332#\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\366#\210\302\367\370#\210\302\371\310#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\302\201@\201A#\210\302\201B\201C#\210\302\201D\312#\210\302\201E\201F#\210\207" [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] 5) (#$ . 4833))#@49 Last text deleted by a TPU-edt replace command. (defvar tpu-last-replaced-text "" (#$ . 6446))#@48 Last text deleted by a TPU-edt remove command. (defvar tpu-last-deleted-region "" (#$ . 6546))#@53 Last text deleted by a TPU-edt line-delete command. (defvar tpu-last-deleted-lines "" (#$ . 6646))#@53 Last text deleted by a TPU-edt word-delete command. (defvar tpu-last-deleted-words "" (#$ . 6750))#@63 Last character deleted by a TPU-edt character-delete command. (defvar tpu-last-deleted-char "" (#$ . 6854))#@60 If non-nil, TPU-edt is searching in the forward direction. (defvar tpu-searching-forward t (#$ . 6967))#@56 Last text searched for by the TPU-edt search commands. (defvar tpu-search-last-string "" (#$ . 7076))#@27 Search highlight overlay. (defvar tpu-search-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3) (#$ . 7183)) (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) (#$ . 7351)) (overlay-put tpu-replace-overlay 'face 'highlight)#@62 If non-nil, TPU-edt uses regexp search and replace routines. (defvar tpu-regexp-p nil (#$ . 7527))#@53 If non-nil, TPU-edt removes and inserts rectangles. (defvar tpu-rectangular-p nil (#$ . 7631))#@58 True when TPU-edt is operating in the forward direction. (defvar tpu-advance t (#$ . 7731))#@59 True when TPU-edt is operating in the backward direction. (defvar tpu-reverse nil (#$ . 7828))#@60 If non-nil, control keys are set to perform TPU functions. (defvar tpu-control-keys nil (#$ . 7928))#@36 File containing TPU-edt X key map. (defvar tpu-xkeys-file nil (#$ . 8034))#@48 Mode line string to identify rectangular mode. (defvar tpu-rectangle-string nil (#$ . 8114))#@49 Mode line string to identify current direction. (defvar tpu-direction-string nil (#$ . 8212))#@51 History variable for tpu-edt-add-at-bol function. (defvar tpu-add-at-bol-hist nil (#$ . 8311))#@51 History variable for tpu-edt-add-at-eol function. (defvar tpu-add-at-eol-hist nil (#$ . 8411))#@52 History variable for search and replace functions. (defvar tpu-regexp-prompt-hist nil (#$ . 8511))#@52 If non-nil, Return produces a newline and indents. (defvar tpu-newline-and-indent-p nil (#$ . 8615)) (make-variable-buffer-local 'tpu-newline-and-indent-p)#@47 Mode line string to identify AutoIndent mode. (defvar tpu-newline-and-indent-string nil (#$ . 8776)) (make-variable-buffer-local 'tpu-newline-and-indent-string)#@32 Saved value of the delete key. (defvar tpu-saved-delete-func nil (#$ . 8942)) (make-variable-buffer-local 'tpu-saved-delete-func)#@31 TPU-edt buffer local key map. (defvar tpu-buffer-local-map nil (#$ . 9077)) (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)#@81 Set `minor-mode-alist' for TPU-edt, or reset it to default Emacs. (fn FOR-TPU) (defalias 'tpu-set-mode-line #[257 "\301\211\211\205 \211@\203\302\300\"\210\202\303\"A\266\202\202\207" [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)) add-to-list remove] 7 (#$ . 9327)])#@65 Make sure mode-line in the current buffer reflects all changes. (defalias 'tpu-update-mode-line #[0 "\203\302\202\303 \203\304\202\305\306 \207" [transient-mark-mode tpu-mark-flag "" tpu-mark " @" " " force-mode-line-update] 1 (#$ . 9758)]) (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 #[0 "\302\303\224\304\"\302\303\225!\211\207" [tpu-match-beginning-mark tpu-match-end-mark copy-marker 0 t] 3 (#$ . 10230)])#@40 Unset match beginning and end markers. (defalias 'tpu-unset-match #[0 "\302\211\223\210 \302\211\223\207" [tpu-match-beginning-mark tpu-match-end-mark nil] 3 (#$ . 10427)])#@50 Return the location of the last match beginning. (defalias 'tpu-match-beginning #[0 "\301!\207" [tpu-match-beginning-mark marker-position] 2 (#$ . 10606)])#@44 Return the location of the last match end. (defalias 'tpu-match-end #[0 "\301!\207" [tpu-match-end-mark marker-position] 2 (#$ . 10768)])#@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 #[0 "\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 (#$ . 10913)])#@39 Show the values of the match markers. (defalias 'tpu-show-match-markers #[0 "\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 (#$ . 11279) 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 #[0 "\205\302 ?!\207" [mark-active transient-mark-mode mark] 2 (#$ . 11560)])#@144 TPU-edt version of the `set-mark' function. Sets the mark at POS and activates the region according to the current version of Emacs. (fn POS) (defalias 'tpu-set-mark #[257 "\300!\207" [set-mark] 3 (#$ . 11780)])#@56 Read a string with PROMPT. (fn PROMPT HISTORY-SYMBOL) (defalias 'tpu-string-prompt #[514 "\300\301\211\211%\207" [read-from-minibuffer nil] 8 (#$ . 11999)])#@39 Most recent response to tpu-y-or-n-p. (defvar tpu-last-answer nil (#$ . 12164))#@209 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. (fn PROMPT &optional NOT-YES) (defalias 'tpu-y-or-n-p #[513 "\301\302\203\303\202\f\304#\210\305\211\203m\306\262\307 \211\310U\204*\211\311U\204*\211\312U\2030\305\210\202\211\313U\204B\211\314U\204B\211\315U\203H\306\210\202\211\316U\203U?\210\202\305\262\317 \210\301\320\203f\303\202g\304#\266\202\210\207" [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]"] 8 (#$ . 12250)])#@93 Replace a key in the TPU-edt local key map. Create the key map if necessary. (fn KEY FUNC) (defalias 'tpu-local-set-key #[514 "\301!\204\302 \203\303\302 !\202\304 \305!\210\306\"\207" [tpu-buffer-local-map keymapp current-local-map copy-keymap make-sparse-keymap use-local-map local-set-key] 5 (#$ . 12914)])#@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 #[0 "\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 (#$ . 13242)])#@60 The set of user-defined markers (breadcrumbs), as a plist. (defvar tpu-breadcrumb-plist nil (#$ . 13558))#@82 Drops a breadcrumb that can be returned to later with goto-breadcrumb. (fn NUM) (defalias 'tpu-drop-breadcrumb #[257 "\301p`D#\210\302\303\"\207" [tpu-breadcrumb-plist put message "Mark %d set."] 6 (#$ . 13669) "p"])#@60 Return to a breadcrumb set with drop-breadcrumb. (fn NUM) (defalias 'tpu-goto-breadcrumb #[257 "N\203\301N@!\210NA@b\210\302\303\"\207\302\304\"\207" [tpu-breadcrumb-plist switch-to-buffer message "mark %d found." "mark %d not found."] 4 (#$ . 13895) "p"])#@137 Change the case of the character under the cursor or region. Accepts a prefix argument of the number of characters to invert. (fn NUM) (defalias 'tpu-change-case #[257 "\301 \203-\302 \303 \211V\203)f\227fU\203\304\202\305\211T\"\210T\262\202 \306\307!\207\310 \203Y\311 \312 \211V\203Vf\227fU\203I\304\202J\305\211T\"\210T\262\2026\313 \207\211\314V\205\202g\227gU\203j\304\202k\305``T\"\210\203x\315\202y\316u\210\211S\262\202Y\207" [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] 6 (#$ . 14169) "p"])#@77 Fill paragraph or marked region. With argument, fill and justify. (fn NUM) (defalias 'tpu-fill #[257 "\300 \203\301`\300 #\210\302\303!\207\304!\207" [tpu-mark fill-region tpu-unselect t fill-paragraph] 5 (#$ . 14832) "P"])#@35 Print the TPU-edt version number. (defalias 'tpu-version #[0 "\301\302\"\207" [tpu-version message "TPU-edt version %s by Rob Riepel (riepel@networking.stanford.edu)"] 3 (#$ . 15066) nil])#@41 Set the screen size. (fn HEIGHT WIDTH) (defalias 'tpu-reset-screen-size #[514 "\300\301 \"\210\302\301 \"\207" [set-frame-height selected-frame set-frame-width] 5 (#$ . 15261) "nnew screen height: \nnnew screen width: "])#@59 Toggle between `newline-and-indent' and simple `newline'. (defalias 'tpu-toggle-newline-and-indent #[0 "\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 (#$ . 15491) nil])#@86 Check the spelling of the region, or of the entire buffer, if no region is selected. (defalias 'tpu-spell-check #[0 "\300 \301\302\203`V\203`D\202`D\202edD\"\210\211\205&\303\304!\207" [tpu-mark apply ispell-region tpu-unselect t] 5 (#$ . 16002) nil])#@38 Switch in and out of overwrite mode. (defalias 'tpu-toggle-overwrite-mode #[0 "\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 (#$ . 16272) nil])#@84 Insert a character or control code according to its ASCII decimal value. (fn NUM) (defalias 'tpu-special-insert #[257 "\203\301\302!\210\211\206 \303c\207" [overwrite-mode delete-char 1 0] 3 (#$ . 16568) "P"])#@101 Read next input character and insert it. This is useful for inserting control characters. (fn NUM) (defalias 'tpu-quoted-insert #[257 "\301 \203\n\302!\210\303\"\207" [overwrite-mode read-char delete-char insert-char] 5 (#$ . 16789) "*p"])#@35 TPU-like include file. (fn FILE) (defalias 'tpu-include #[257 "\300!\210\301\302!\207" [insert-file-contents message ""] 3 (#$ . 17040) "fInclude file: "])#@31 TPU-like get file. (fn FILE) (defalias 'tpu-get #[257 "\301\"\207" [find-file-wildcards find-file] 4 (#$ . 17203) "FFile to get: "])#@78 Tell what line the point is on, and the total number of lines in the buffer. (defalias 'tpu-what-line #[0 "m\203\f\300\301\302\303d\"\"\207\302\303`T\"\302\303d\"\304\305\245\\_\245\300\306$\207" [message "You are at the End of Buffer. The last line is %d." count-lines 1 100 200 "You are on line %d out of %d (%d%%)."] 8 (#$ . 17344) nil])#@66 Exit the way TPU does, save current buffer and ask about others. (defalias 'tpu-exit #[0 "\300 \301=\204\n\302 \207\303 \210\304 \207" [recursion-depth 0 exit-recursive-edit save-buffer save-buffers-kill-emacs] 2 (#$ . 17698) nil])#@70 Quit the way TPU does, ask to make sure changes should be abandoned. (defalias 'tpu-quit #[0 "\300 \301\2031\211\2031@\302!\203)\303!\203)\304\305!\203&\306\301!\210\202)\307\262A\262\210\202\211\2058\306\301!\207" [buffer-list t buffer-file-name buffer-modified-p tpu-y-or-n-p "Modifications will not be saved, continue quitting? " kill-emacs nil] 5 (#$ . 17936) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tpu-edt-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Tpu-Edt mode is enabled.\nSee the `tpu-edt-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `tpu-edt-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)#@611 Toggle TPU/edt emulation on or off. This is a global minor mode. If called interactively, toggle the `Tpu-Edt 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 `(default-value \='tpu-edt-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'tpu-edt-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203{\323\301!\210\302 \203j\211\302 \232\203{\324\325\326\305\301!\203w\327\202x\330\331$\210\210\332 \210\305\301!\207" [global-minor-modes tpu-edt-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Tpu-Edt mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 18827) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar tpu-edt-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\312\"\210\314\316\317\"\210\314\320\317\"\210\314\321\322\"\210\314\323\322\"\210\314\324\325\"\210\314\326\325\"\210\314\327\330\"\210\314\331\330\"\210\314\332\333\"\210\314\334\333\"\210\314\335\336\"\210\314\337\336\"\210\314\340\341\"\210\314\342\341\"\210\314\343\344\"\210\314\345\344\"\210\314\346\347\"\210\314\350\347\"\210\314\351\352\"\210\314\353\352\"\210\314\354\355\"\210\314\356\355\"\210\314\357\360\"\210\314\361\360\"\210\314\362\363\"\207" [tpu-edt-mode-map tpu-edt-mode-hook variable-documentation put "Hook run after entering or leaving `tpu-edt-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-edt-mode 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- 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 p \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 #[0 "\306 \307\310\"\216\311\312!\204\313\312!\210\314\312!\210c\210 c\210\315\314\312!\210\316 \210\317 \210\320y\210\321 \210\322\211\211\232?\205\325\211\203C\323\324!\262\202H\323\325!\262\326\327\"\262\f\232\203]\322\262\316 \210\2020 \232\204j$\232\203\212\211\203~\3301z\331\332!0\210\2020\210\2020\333 \210\320y\210\321 \210\2020%\232\204\230&\232\203\273\211\203\254\3341\250\331\335!0\210\2020\210\2020\336y\210\337 \210\320y\210\321 \210\2020\232\2040\315\262\340!\210\341!\2040\342\343!\210\2020\266\203)\207" [tpu-help-keypad-map tpu-help-text buffer-read-only tpu-help-return tpu-help-enter tpu-help-N current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 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" (error) scroll-other-window 8 forward-page (error) -8 -1 backward-page describe-key key-binding sit-for 3 tpu-help-n tpu-help-P tpu-help-p] 7 (#$ . 25861) nil])#@66 Insert an escape character, and so becomes the escape-key alias. (defalias 'tpu-insert-escape #[0 "\300c\207" [""] 1 (#$ . 27157) nil])#@30 Insert a formfeed character. (defalias 'tpu-insert-formfeed #[0 "\300c\207" ["\f"] 1 (#$ . 27299) nil])#@27 Saved value of Control-r. (defvar tpu-saved-control-r nil (#$ . 27408))#@45 End the current macro definition. (fn KEY) (defalias 'tpu-end-define-macro-key #[257 "\302\303!\210\304\"\210\304\305 \"\207" [last-kbd-macro tpu-saved-control-r end-kbd-macro nil global-set-key ""] 4 (#$ . 27485) "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 #[0 "\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 (#$ . 27773) nil])#@107 Kill the current buffer. If `tpu-kill-buffers-silently' is non-nil, kill modified buffers without asking. (defalias 'tpu-kill-buffer #[0 "\203\301\302!\210\303p!\207" [tpu-kill-buffers-silently set-buffer-modified-p nil kill-buffer] 2 (#$ . 28047) nil])#@34 Save all buffers and exit Emacs. (defalias 'tpu-save-all-buffers-kill-emacs #[0 "\301\302\301!)\207" [delete-old-versions t save-buffers-kill-emacs] 2 (#$ . 28309) nil])#@44 Save all modified buffers without exiting. (defalias 'tpu-write-current-buffers #[0 "\300\301!\207" [save-some-buffers t] 2 (#$ . 28485) nil])#@28 Go to next buffer in ring. (defalias 'tpu-next-buffer #[0 "\300\301\302 !@!\207" [switch-to-buffer reverse buffer-list] 3 (#$ . 28633) nil])#@65 Go to next buffer in ring that is visiting a file or directory. (defalias 'tpu-next-file-buffer #[0 "\300\301 !\302p\"\262\211\204\303\304!\210\305\306!@!\207" [tpu-make-file-buffer-list buffer-list delq tpu-error "No other buffers." switch-to-buffer reverse] 4 (#$ . 28779) nil])#@97 Return names from BUFFER-LIST excluding those beginning with a space or star. (fn BUFFER-LIST) (defalias 'tpu-make-file-buffer-list #[257 "\300\301\302\303\"\"\207" [delq nil mapcar #[257 "\300!\301H\302U\206\300!\301H\303U?\205\211\207" [buffer-name 0 32 42] 3 "\n\n(fn B)"]] 6 (#$ . 29070)])#@26 Move to the next window. (defalias 'tpu-next-window #[0 "\300 \203 \301\302!\207\303\304!\207" [one-window-p message "There is only one window on screen." other-window 1] 2 (#$ . 29377) nil])#@30 Move to the previous window. (defalias 'tpu-previous-window #[0 "\300 \203 \301\302!\207\303\304 !\207" [one-window-p message "There is only one window on screen." select-window previous-window] 2 (#$ . 29575) nil])#@66 Switch in and out of regular expression search and replace mode. (defalias 'tpu-toggle-regexp #[0 "?\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 (#$ . 29797) nil])#@80 Read a string, adding `RE ' to the prompt if tpu-regexp-p is set. (fn PROMPT) (defalias 'tpu-regexp-prompt #[257 "\205\301P\302\303\211\211\304%\207" [tpu-regexp-p "RE " read-from-minibuffer nil tpu-regexp-prompt-hist] 8 (#$ . 30122)]) (defalias 'tpu-search-highlight #[0 "\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 #[0 "\300 \210\301\302!\207" [tpu-set-search tpu-search-internal ""] 2 (#$ . 30598) nil])#@91 Search for a string or regular expression. The search is begins in the forward direction. (defalias 'tpu-search-forward #[0 "\301\302\301!\210\303\304!\207" [tpu-searching-forward t tpu-set-search tpu-search-internal ""] 2 (#$ . 30808) nil])#@91 Search for a string or regular expression. The search is begins in the reverse direction. (defalias 'tpu-search-reverse #[0 "\301\302\303!\210\304\305!\207" [tpu-searching-forward nil tpu-set-search t tpu-search-internal ""] 2 (#$ . 31056) 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 #[0 "\301!\207" [tpu-search-last-string tpu-search-internal] 2 (#$ . 31309) nil])#@162 Set the search functions and set the search direction to the current direction. If an argument is specified, don't set the search direction. (fn &optional ARG) (defalias 'tpu-set-search #[256 "\211\204 \203\n\203\303\304M\210\305\306M\207\303\307M\210\305\310M\207\n\203*\303\306M\210\305\304M\207\303\310M\210\305\307M\207" [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] 3 (#$ . 31539)])#@70 Search for a string or regular expression. (fn PAT &optional QUIET) (defalias 'tpu-search-internal #[513 "\304\230\204\n\202 \305\306!\307 \210\310 \210 \205\311!\312\313\314#\203-\315 \210\316 b\202|\310\314!\210\313\211\212\n?\310 \210\317\313\314#\262\320\224*\262\203h\321\322\323\n\203U\324\202V\325\"!\205z\211b\210\315 \210\326 \266\202\202|?\205z\327\330\203w\331\202x\304#\266\202)\207" [tpu-search-last-string case-fold-search tpu-searching-forward tpu-regexp-p "" 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 "] 8 (#$ . 32051)]) (byte-code "\300\301\302K\"\207" [defalias tpu-search-internal-core tpu-search-internal] 3)#@54 Return t if string contains upper case. (fn STRING) (defalias 'tpu-check-search-case #[257 "\203d\302!\303\304\305\306\"\211\262\203T\307I\210\202\305\310\"\211\262\2031T\307I\210\202\305\311\"\211\262\203DT\307I\210\2021\312\313\"\211\262\203^T\307I\210\314\\\307I\210\202D\211\227\230)\207\211\227\230\207" [tpu-regexp-p case-fold-search copy-sequence nil 0 string-search "\\\\" 46 "\\B" "\\W" string-match "\\\\S." 2] 7 (#$ . 32980)])#@160 For forward searches, move forward a character before searching, and backward a character after a failed search. Arg means end of search. (fn &optional ARG) (defalias 'tpu-adjust-search #[256 "\205\211\203o?\205\301u\207m?\205\302u\207" [tpu-searching-forward -1 1] 2 (#$ . 33461)])#@79 Toggle the TPU-edt search direction. Used for reversing a search in progress. (defalias 'tpu-toggle-search-direction #[0 "?\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 (#$ . 33760) nil])#@51 Set search direction forward and exit minibuffer. (defalias 'tpu-search-forward-exit #[0 "\301\302\301!\210\303 \207" [tpu-searching-forward t tpu-set-search exit-minibuffer] 2 (#$ . 34093) nil])#@52 Set search direction backward and exit minibuffer. (defalias 'tpu-search-backward-exit #[0 "\301\302\303!\210\304 \207" [tpu-searching-forward nil tpu-set-search t exit-minibuffer] 2 (#$ . 34295) nil])#@67 Set the mark to define one end of a region. (fn &optional QUIET) (defalias 'tpu-select #[256 "\300 \203 \301!\207\302`!\210\303 \210\211?\205\304\305!\207" [tpu-mark tpu-unselect tpu-set-mark tpu-update-mode-line message "Move the text cursor to select text."] 3 (#$ . 34503) "P"])#@71 Remove the mark to unselect the current region. (fn &optional QUIET) (defalias 'tpu-unselect #[256 "\301 \210\302\303\302!\210\304 \210\211?\205\305\306!\207" [mark-ring deactivate-mark nil tpu-set-mark tpu-update-mode-line message "Selection canceled."] 3 (#$ . 34795) "P"])#@48 Toggle rectangular mode for remove and insert. (defalias 'tpu-toggle-rectangle #[0 "?\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 (#$ . 35080) nil])#@77 Adjust point and mark to upper left and lower right corners of a rectangle. (defalias 'tpu-arrange-rectangle #[0 "i\300 \210i`\301 V\203\"\211V\203\300 \207\302\303\"\210\300 \210\302\303\"\207\211V\2057\302\303\"\210\300 \210\302\303\"\210\300 \207" [exchange-point-and-mark tpu-mark move-to-column t] 5 (#$ . 35445)])#@74 Delete the selected region. The text is saved for the tpu-paste command. (defalias 'tpu-cut-text #[0 "\303 \203&\203\304 \210\305`\303 ?#\210\306\307!\207\303 `{\303 `|\210\306\307!\207\310 \203:\311 \312 {|\210\313 \207\314\315!\207" [tpu-rectangular-p overwrite-mode tpu-last-deleted-region 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."] 4 (#$ . 35780) 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 #[0 "\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 (#$ . 36282) nil])#@114 Copy selected region to the cut buffer. In the absence of an argument, delete the selected region too. (fn ARG) (defalias 'tpu-cut #[257 "\211\203\300 \207\301 \207" [tpu-store-text tpu-cut-text] 2 (#$ . 36807) "P"])#@120 Append selected region to the tpu-cut buffer. In the absence of an argument, delete the selected region too. (fn ARG) (defalias 'tpu-append-region #[257 "\301 \203\302 \303 {P\204|\210\304\305!\207\306 \2035\307 \310 {P\2042|\210\311 \207\312\313!\207" [tpu-last-deleted-region 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."] 6 (#$ . 37033) "P"])#@180 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. (fn NUM) (defalias 'tpu-delete-current-line #[257 "`y\210h\301=\204 \302c\210\211`{\211`|\207" [tpu-last-deleted-lines 10 "\n"] 4 (#$ . 37511) "p"])#@154 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. (fn NUM) (defalias 'tpu-delete-to-eol #[257 "`\301u\210\210\211`{\211`|\207" [tpu-last-deleted-lines 1] 4 (#$ . 37839) "p"])#@162 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. (fn NUM) (defalias 'tpu-delete-to-bol #[257 "`\301!\210`{`|\207" [tpu-last-deleted-lines tpu-next-beginning-of-line] 4 (#$ . 38117) "p"])#@119 Delete one or specified number of words after point. They are saved for the TPU-edt undelete-words command. (fn NUM) (defalias 'tpu-delete-current-word #[257 "`\301!\210\211`{\211`|\207" [tpu-last-deleted-words tpu-forward-to-word] 4 (#$ . 38417) "p"])#@120 Delete one or specified number of words before point. They are saved for the TPU-edt undelete-words command. (fn NUM) (defalias 'tpu-delete-previous-word #[257 "`\301!\210`{\211`|\207" [tpu-last-deleted-words tpu-backward-to-word] 4 (#$ . 38679) "p"])#@144 Delete one or specified number of characters after point. The last character deleted is saved for the TPU-edt undelete-char command. (fn NUM) (defalias 'tpu-delete-current-char #[257 "\211\302V\205'm?\205'`f \203\303\304!\210\304u\210\202 \305\304!\210\211S\262\202\207" [tpu-last-deleted-char overwrite-mode 0 picture-clear-column 1 delete-char] 3 (#$ . 38941) "p"])#@113 Insert the last region or rectangle of killed text. With argument reinserts the text that many times. (fn NUM) (defalias 'tpu-paste #[257 "\211\303V\205'\203`\212\304 ?!\210\305\306!)\210\211b\266\202 \nc\210\211S\262\202\207" [tpu-rectangular-p overwrite-mode tpu-last-deleted-region 0 picture-yank-rectangle message ""] 4 (#$ . 39325) "p"])#@118 Insert lines deleted by last TPU-edt line-deletion command. With argument reinserts lines that many times. (fn NUM) (defalias 'tpu-undelete-lines #[257 "`\301V\203c\210S\262\202\211b\207" [tpu-last-deleted-lines 0] 4 (#$ . 39684) "p"])#@118 Insert words deleted by last TPU-edt word-deletion command. With argument reinserts words that many times. (fn NUM) (defalias 'tpu-undelete-words #[257 "`\301V\203c\210S\262\202\211b\207" [tpu-last-deleted-words 0] 4 (#$ . 39935) "p"])#@135 Insert character deleted by last TPU-edt character-deletion command. With argument reinserts the character that many times. (fn NUM) (defalias 'tpu-undelete-char #[257 "\211\302V\205\203\303u\210\304\305!\210 c\210\303u\210\211S\262\202\207" [overwrite-mode tpu-last-deleted-char 0 -1 delete-char 1] 3 (#$ . 40186) "p"])#@66 Replace the selected region with the contents of the cut buffer. (defalias 'tpu-replace #[0 "\304 \203\305 \306 {|\210 c\210\307\310!\207\311 \2030\312 \313 {\314 \n??#\210\315 \207\316\317!\207" [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."] 6 (#$ . 40521) nil])#@225 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. (fn NUM) (defalias 'tpu-substitute #[257 "\302 \204\n\303 \203G\211\304U?\205F\302 \204\303 \205J`\305 \210\203)\306u\210\202,\211b\210\307U\203:\310 !\266\202?\311 !\266\211S\262\202\n\207\312\313!\207" [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."] 4 (#$ . 40996) "p"])#@78 Interactively search for OLD-string and substitute NEW-string. (fn FROM TO) (defalias 'tpu-lm-replace #[514 "\304\305\306\230\203\f\307\310!\210\311 \210\312\304\"\210\203.\313 \204#\314\262\202\315\316 \317 p$\210\320\321!\210\322 \211\323U\204J\211\324U\204J\211\325U\204J\211\326U\203o`\327 ?\n?#\210T\262\203b\330u\266\202f\211b\266\312\304\"\266\202\211\331U\204\201\211\332U\204\201\211\333U\203\212\312\304\"\266\202\211\334U\204\226\211\335U\203\351\212`\327 ?\n?#\210T\262\203\257\330u\266\202\263\211b\266\336\304\"\210\313 \203\341`\327 ?\n?#\210T\262\203\325\330u\266\202\331\211b\266\336\304\"\210\202\270)\314\262\210\202\211\337U\204\365\211\340U\203`\327 ?\n?#\210T\262\203 \330u\266\202\211b\266\314\262\210\202\211\341U\204$\211\342U\203*\343 \210\314\262\210\202\315\344\211p$\210\320\345\211\344U\204B\346\202C\306#\207" [tpu-replace-overlay case-replace tpu-regexp-p tpu-searching-forward 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"] 10 (#$ . 41626) (byte-code "\300\301!\300\302!D\207" [tpu-regexp-prompt "Old String: " "New String: "] 3)])#@293 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. (fn &optional DONT-ASK) (defalias 'tpu-emacs-replace #[256 "\211\203\302\303 \203\304\202\305!\207\303 \203\306\202\307!\207" [current-prefix-arg tpu-regexp-p nil call-interactively replace-regexp replace-string query-replace-regexp query-replace] 3 (#$ . 43077) "P"])#@124 Add text to the beginning of each line in a region, or each line in the entire buffer if no region is selected. (fn TEXT) (defalias 'tpu-add-at-bol #[257 "\211\300\230\203\n\301\302!\210\303 \203=\212`\303 V\203\304 \210`\303 W\2038\305\306\303 \307#\2038`\303 W\203\310!\210\202)\311\307!\207\212eb\210\305\306\312\307#\205Um?\205U\310!\210\202A)\207" ["" tpu-error "No string specified." tpu-mark exchange-point-and-mark re-search-forward "^" t replace-match tpu-unselect nil] 5 (#$ . 43631) (byte-code "\300\301\302\"C\207" [tpu-string-prompt "String to add: " tpu-add-at-bol-hist] 3)])#@118 Add text to the end of each line in a region, or each line of the entire buffer if no region is selected. (fn TEXT) (defalias 'tpu-add-at-eol #[257 "\211\300\230\203\n\301\302!\210\303 \2039\212`\303 V\203\304 \210`\303 W\2034\305\210`\303 X\203.\211c\210\305y\210\202)\306\307!\207\212eb\210m?\205N\305\210\211c\210\305y\210\202=)\207" ["" tpu-error "No string specified." tpu-mark exchange-point-and-mark nil tpu-unselect t] 3 (#$ . 44243) (byte-code "\300\301\302\"C\207" [tpu-string-prompt "String to add: " tpu-add-at-eol-hist] 3)])#@59 Remove trailing whitespace from every line in the buffer. (defalias 'tpu-trim-line-ends #[0 "\300 \301\302\"\216\212eb\210\303\304\305\306#\205\307\224\307\225|\210\202*\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward "[ ][ ]*$" nil t 0] 5 (#$ . 44799) nil])#@112 Move to the next character in the current direction. A repeat count means move that many characters. (fn NUM) (defalias 'tpu-char #[257 "\203\301!\207\302!\207" [tpu-advance tpu-forward-char tpu-backward-char] 3 (#$ . 45121) "p"])#@64 Move right ARG characters (left if ARG is negative). (fn NUM) (defalias 'tpu-forward-char #[257 "\211u\207" [] 2 (#$ . 45363) "p"])#@64 Move left ARG characters (right if ARG is negative). (fn NUM) (defalias 'tpu-backward-char #[257 "\211\206\300[u\207" [1] 2 (#$ . 45501) "p"])#@37 List of additional word separators. (defvar tpu-word-separator-list nil (#$ . 45652))#@94 Characters to skip when moving by word. Additional word separators are added to this string. (defvar tpu-skip-chars "^ " (#$ . 45743))#@119 Move to the beginning of the next word in the current direction. A repeat count means move that many words. (fn NUM) (defalias 'tpu-word #[257 "\203\301!\207\302!\207" [tpu-advance tpu-forward-to-word tpu-backward-to-word] 3 (#$ . 45885) "p"])#@108 Move forward until encountering the beginning of a word. With argument, do this that many times. (fn NUM) (defalias 'tpu-forward-to-word #[257 "\211\302V\205@m?\205@`\303\210`b\210l\203\304u\266\2029`f>\2030\304u\210\305w\266\2029 w\210\305w\266\211S\262\202\207" [tpu-word-separator-list tpu-skip-chars 0 nil 1 " "] 5 (#$ . 46141) "p"])#@109 Move backward until encountering the beginning of a word. With argument, do this that many times. (fn NUM) (defalias 'tpu-backward-to-word #[257 "\211\302V\205Mo?\205M`\303 \210`b\210n\203\304u\266\202F`Sf>\203-\304u\266\202F\305x\210 x\210n\204D`fz\306U\203D\304u\210\266\211S\262\202\207" [tpu-word-separator-list tpu-skip-chars 0 beginning-of-line -1 " " 32] 5 (#$ . 46506) "p"])#@69 Add new word separators for TPU-edt word commands. (fn SEPARATORS) (defalias 'tpu-add-word-separators #[257 "\302GW\205PH\211TO>\204G\303\"\304U\203) \305P\202G\306U\2036 \307P\202G\310U\203C \311P\202G PT\262\266\202\207" [tpu-word-separator-list tpu-skip-chars 0 append 45 "\\-" 92 "\\\\" 94 "\\^"] 8 (#$ . 46915) "sSeparators: "])#@41 Reset word separators to default value. (defalias 'tpu-reset-word-separators #[0 "\302\303\211\207" [tpu-word-separator-list tpu-skip-chars nil "^ "] 2 (#$ . 47288) nil])#@69 Set new word separators for TPU-edt word commands. (fn SEPARATORS) (defalias 'tpu-set-word-separators #[257 "\300 \210\301!\207" [tpu-reset-word-separators tpu-add-word-separators] 3 (#$ . 47467) "sSeparators: "])#@72 Move to next line. Prefix argument serves as a repeat count. (fn NUM) (defalias 'tpu-next-line #[257 "\301!\210\302\211\207" [this-command line-move next-line] 3 (#$ . 47688) "p"])#@76 Move to previous line. Prefix argument serves as a repeat count. (fn NUM) (defalias 'tpu-previous-line #[257 "\301[!\210\302\211\207" [this-command line-move previous-line] 3 (#$ . 47877) "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 "\300u\210\301\302Z!\207" [-1 forward-visible-line 1] 4 (#$ . 48080) "p"])#@109 Move to the next end of line in the current direction. A repeat count means move that many lines. (fn NUM) (defalias 'tpu-end-of-line #[257 "\203\301!\207\302!\207" [tpu-advance tpu-next-end-of-line tpu-previous-end-of-line] 3 (#$ . 48351) "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 "\300u\210\211\207" [1] 2 (#$ . 48609) "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 "\300Z\207" [1] 3 (#$ . 48825) "p"])#@36 Move point to end of current line. (defalias 'tpu-current-end-of-line #[0 "`\300\210\211`U\205 \301\302!\207" [nil message "You are already at the end of a line."] 3 (#$ . 48997) nil])#@119 Move to the beginning of the next line in the current direction. A repeat count means move that many lines. (fn NUM) (defalias 'tpu-line #[257 "\203\301!\207\302!\207" [tpu-advance tpu-forward-line tpu-backward-line] 3 (#$ . 49190) "p"])#@85 Move to beginning of next line. Prefix argument serves as a repeat count. (fn NUM) (defalias 'tpu-forward-line #[257 "\211y\207" [] 2 (#$ . 49439) "p"])#@87 Move to beginning of previous line. Prefix argument serves as repeat count. (fn NUM) (defalias 'tpu-backward-line #[257 "n\204\300Y\204\211S\262\211[y\207" [0] 3 (#$ . 49598) "p"])#@112 Move to the next paragraph in the current direction. A repeat count means move that many paragraphs. (fn NUM) (defalias 'tpu-paragraph #[257 "\203\301!\207\302!\207" [tpu-advance tpu-next-paragraph tpu-previous-paragraph] 3 (#$ . 49792) "p"])#@108 Move to beginning of the next paragraph. Accepts a prefix argument for the number of paragraphs. (fn NUM) (defalias 'tpu-next-paragraph #[257 "\300 \210m\204.\211\301V\203.\302\303\304\305#\203'\302\306\304\305#\203$\301\224b\210\202'db\210\211S\262\202\300 \207" [beginning-of-line 0 re-search-forward "^[ ]*$" nil t "[^ \n]"] 5 (#$ . 50047) "p"])#@108 Move to beginning of previous paragraph. Accepts a prefix argument for the number of paragraphs. (fn NUM) (defalias 'tpu-previous-paragraph #[257 "\300\210o\204;\211\301V\203;\302\303\300\304#\2031\302\305\300\304#\2031\302\303\300\304#\2031\306\305\300\304#\210\301\224b\2044eb\210\211S\262\202\307 \207" [nil 0 re-search-backward "^[ ]*$" t "[^ \n]" re-search-forward beginning-of-line] 5 (#$ . 50413) "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 "\203\301!\210\202\302!\210m\205\303\304!\207" [tpu-advance forward-page backward-page recenter -1] 3 (#$ . 50842) "p"])#@124 Scroll the display to the next section in the current direction. A repeat count means scroll that many sections. (fn NUM) (defalias 'tpu-scroll-window #[257 "\203\301!\207\302!\207" [tpu-advance tpu-scroll-window-up tpu-scroll-window-down] 3 (#$ . 51105) "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\211V\205\305\306!\207" [tpu-percent-scroll tpu-current-line window-height 100 line-move recenter 0] 6 (#$ . 51378) "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\211\\Y\205\305\306!\207" [tpu-percent-scroll tpu-current-line window-height 100 line-move recenter -1] 6 (#$ . 51688) "p"])#@125 Pan right tpu-pan-columns (16 by default). Accepts a prefix argument for the number of tpu-pan-columns to scroll. (fn NUM) (defalias 'tpu-pan-right #[257 "\301_!\207" [tpu-pan-columns scroll-left] 4 (#$ . 51997) "p"])#@124 Pan left tpu-pan-columns (16 by default). Accepts a prefix argument for the number of tpu-pan-columns to scroll. (fn NUM) (defalias 'tpu-pan-left #[257 "\301_!\207" [tpu-pan-columns scroll-right] 4 (#$ . 52224) "p"])#@65 Move cursor to the beginning of buffer, but don't set the mark. (defalias 'tpu-move-to-beginning #[0 "eb\207" [] 1 (#$ . 52449) nil])#@59 Move cursor to the end of buffer, but don't set the mark. (defalias 'tpu-move-to-end #[0 "db\210\300\301!\207" [recenter -1] 2 (#$ . 52588) nil])#@56 Move point to ARG percentage of the buffer. (fn PERC) (defalias 'tpu-goto-percent #[257 "\211\300V\204\f\211\301W\203\302\303\"\207d_\300\245b\207" [100 0 tpu-error "Percentage %d out of range 0 < percent < 100."] 4 (#$ . 52739) "NGoto-percentage: "])#@31 Move cursor to top of window. (defalias 'tpu-beginning-of-window #[0 "\300\301!\207" [move-to-window-line 0] 2 (#$ . 53002) nil])#@34 Move cursor to bottom of window. (defalias 'tpu-end-of-window #[0 "\300\301!\207" [move-to-window-line -1] 2 (#$ . 53137) nil])#@52 Move the current line to the bottom of the window. (defalias 'tpu-line-to-bottom-of-window #[0 "\300\301!\207" [recenter -1] 2 (#$ . 53270) nil])#@49 Move the current line to the top of the window. (defalias 'tpu-line-to-top-of-window #[0 "\300\301!\207" [recenter 0] 2 (#$ . 53421) nil])#@55 Set TPU Advance mode so keypad commands move forward. (defalias 'tpu-advance-direction #[0 "\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 (#$ . 53565) nil])#@55 Set TPU Backup mode so keypad commands move backward. (defalias 'tpu-backup-direction #[0 "\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 (#$ . 53818) nil])#@35 Change the current TPU direction. (defalias 'tpu-toggle-direction #[0 "\203\301 \207\302 \207" [tpu-advance tpu-backup-direction tpu-advance-direction] 1 (#$ . 54070) 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 "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\207" [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] 5))#@42 Set control keys to TPU style functions. (defalias 'tpu-set-control-keys #[0 "\300\301!\207" [tpu-reset-control-keys tpu] 2 (#$ . 55161)])#@67 Set control keys to TPU or Emacs style functions. (fn TPU-STYLE) (defalias 'tpu-reset-control-keys #[257 "\303!\203\211 =\204,\304 \"\210\304 \"\210\202,\211 =\203,\304\303!\"\210\304 \305\"\210\211\207" [tpu-global-map tpu-control-keys-map tpu-control-keys keymap-parent set-keymap-parent nil] 6 (#$ . 55305)])#@56 Toggle control key bindings between TPU-edt and Emacs. (defalias 'tpu-toggle-control-keys #[0 "\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 (#$ . 55636) nil])#@80 Insert the next element of the minibuffer history into the minibuffer. (fn N) (defalias 'tpu-next-history-element #[257 "\300!\210db\207" [next-history-element] 3 (#$ . 55965) "p"])#@84 Insert the previous element of the minibuffer history into the minibuffer. (fn N) (defalias 'tpu-previous-history-element #[257 "\300!\210db\207" [previous-history-element] 3 (#$ . 56154) "p"])#@58 Modify minibuffer maps to use arrows for history recall. (defalias 'tpu-arrow-history #[0 "\302\303!\211\203\211@\304\305#\210\304 \305#\210A\266\202\202\210\302\306!\211\2059\211@\304\307#\210\304 \307#\210A\266\202\202 \207" [read-expression-map minibuffer-local-map where-is-internal tpu-previous-line define-key tpu-previous-history-element tpu-next-line tpu-next-history-element] 6 (#$ . 56355) nil])#@146 Load the TPU-edt X-windows key definitions FILE. If FILE is nil, try to load a default file. The default file name is `~/.tpu-keys'. (fn FILE) (defalias 'tpu-load-xkeys #[257 "\211\203\f\301!\262\2028\203\301!\262\2028\302\301\303!!\262\304!\2048\304\302\301\305!!!\2038\306\302\301\305!!\"\210\307!\203B\310!\207\311\312\313!\"\207" [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] 5 (#$ . 56781) "fX key definition file: "])#@88 Copy the TPU-edt X key definitions file to the new default name. (fn OLDNAME NEWNAME) (defalias 'tpu-copy-keyfile #[514 "\300\301!\204\n\302\301!\210\301q\210\303 \210\304c\210\305 \306\307\"\216\310\301!\210\311 \210eb\210\312 \210\313\314!\203@\3151:\316\"0\210\202@\317\320\"\266\321\301!)\207" [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 make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] 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? " (debug error) copy-file message "Sorry, couldn't copy - %s." kill-buffer] 7 (#$ . 57411) "fOld name: \nFNew name: "]) (defvar tpu-edt-old-global-values nil)#@28 Turn on TPU/edt emulation. (defalias 'tpu-edt-on #[0 "\305 \210\306 \"\210\307 !\210\310\311!\210\312\313\314\"\210\315\311!\210\316 \210\317\211\203=\211@\211@\320@!B\nB\321@A\"\210A\266\202\202\210\322 \210\203I\323\324!\210\325 \210\326 \306 \"\210\211\307!\266\311\211\207" [tpu-global-map global-map tpu-edt-old-global-values window-system tpu-edt-mode 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)) default-value set-default tpu-set-control-keys tpu-load-xkeys nil tpu-arrow-history make-sparse-keymap] 5 (#$ . 58600) nil])#@63 Turn off TPU/edt emulation. Note that the keypad is left on. (defalias 'tpu-edt-off #[0 "\304\305!\210\306\307\310\"\210\311\305!\210\203!\211A\242\312@A\"\266\202 \211\203?\313!\n=\203:\314\313!\"\266\202\"\262\202\"\210\3151L\316\317!0\210\202M\210\305\211\207" [tpu-edt-old-global-values global-map tpu-global-map tpu-edt-mode tpu-reset-control-keys nil remove-hook post-command-hook tpu-search-highlight tpu-set-mode-line set-default keymap-parent set-keymap-parent (error) ad-disable-regexp "\\`tpu-"] 6 (#$ . 59326) 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" '(#$ . 59883) t nil)#@38 Set scroll margins. (fn TOP BOTTOM) (autoload 'tpu-set-scroll-margins "tpu-extras" '(#$ . 60192) t nil)#@57 Allow the cursor to move freely about the screen. (fn) (autoload 'tpu-set-cursor-free "tpu-extras" '(#$ . 60302) t nil)#@53 Constrain the cursor to the flow of the text. (fn) (autoload 'tpu-set-cursor-bound "tpu-extras" '(#$ . 60428) t nil) (provide 'tpu-edt)