;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon May 1 15:32:30 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/tpu-edt.el ;;; emacs version 19.28.90.55. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/tpu-edt.el' was compiled for Emacs 19")) #@25 TPU-edt version number. (defconst tpu-version "4.0" (#$ . 483)) #@64 *If non-nil (default), TPU-edt uses ispell for spell checking. (defconst tpu-have-ispell t (#$ . -553)) #@61 *If non-nil, TPU-edt kills modified buffers without asking. (defconst tpu-kill-buffers-silently nil (#$ . -663)) #@72 *Percentage of the screen to scroll for next/previous screen commands. (defvar tpu-percent-scroll 75 (#$ . -782)) #@64 *Number of columns the tpu-pan functions scroll left or right. (defvar tpu-pan-columns 16 (#$ . -902)) #@54 Non-nil if we are running Lucid Emacs or version 19. (defconst tpu-emacs19-p (byte-code "?" [emacs-version "19"] 2) (#$ . 1011)) #@51 Non-nil if we are running Lucid Emacs version 19. (defconst tpu-lucid-emacs19-p (byte-code " \"" [tpu-emacs19-p string-match "Lucid" emacs-version] 3) (#$ . 1150)) #@94 Maps the CSI function keys on the VT100 keyboard. CSI is DEC's name for the sequence [. (defvar CSI-map (make-sparse-keymap) (#$ . 1327)) #@94 Maps the SS3 function keys on the VT100 keyboard. SS3 is DEC's name for the sequence O. (defvar SS3-map (make-sparse-keymap) (#$ . 1476)) #@113 Maps the function keys on the VT100 keyboard preceeded by PF1. GOLD is the ASCII 7-bit escape sequence OP. (defvar GOLD-map (make-keymap) (#$ . 1626)) #@69 Maps the function keys on the VT100 keyboard preceeded by GOLD-CSI. (defvar GOLD-CSI-map (make-sparse-keymap) (#$ . 1788)) #@69 Maps the function keys on the VT100 keyboard preceeded by GOLD-SS3. (defvar GOLD-SS3-map (make-sparse-keymap) (#$ . 1917)) #@24 TPU-edt global keymap. (defvar tpu-global-map nil (#$ . 2046)) #@25 Original global keymap. (defvar tpu-original-global-map (copy-keymap global-map) (#$ . 2115)) (byte-code "! \fB#" [tpu-lucid-emacs19-p boundp minibuffer-local-ns-map make-sparse-keymap current-load-list put variable-documentation "Hack to give Lucid Emacs the same maps as ordinary Emacs."] 4) #@37 If non-nil, TPU-edt mode is active. (defvar tpu-edt-mode nil (#$ . 2435)) #@49 Last text deleted by a TPU-edt replace command. (defvar tpu-last-replaced-text "" (#$ . 2515)) #@48 Last text deleted by a TPU-edt remove command. (defvar tpu-last-deleted-region "" (#$ . 2616)) #@53 Last text deleted by a TPU-edt line-delete command. (defvar tpu-last-deleted-lines "" (#$ . 2717)) #@53 Last text deleted by a TPU-edt word-delete command. (defvar tpu-last-deleted-words "" (#$ . 2822)) #@63 Last character deleted by a TPU-edt character-delete command. (defvar tpu-last-deleted-char "" (#$ . 2927)) #@60 If non-nil, TPU-edt is searching in the forward direction. (defvar tpu-searching-forward t (#$ . 3041)) #@56 Last text searched for by the TPU-edt search commands. (defvar tpu-search-last-string "" (#$ . 3151)) #@62 If non-nil, TPU-edt uses regexp search and replace routines. (defvar tpu-regexp-p nil (#$ . 3259)) #@53 If non-nil, TPU-edt removes and inserts rectangles. (defvar tpu-rectangular-p nil (#$ . 3364)) #@58 True when TPU-edt is operating in the forward direction. (defvar tpu-advance t (#$ . 3465)) #@59 True when TPU-edt is operating in the backward direction. (defvar tpu-reverse nil (#$ . 3563)) #@60 If non-nil, control keys are set to perform TPU functions. (defvar tpu-control-keys t (#$ . 3664)) #@36 File containing TPU-edt X key map. (defvar tpu-xkeys-file nil (#$ . 3769)) #@48 Mode line string to identify rectangular mode. (defvar tpu-rectangle-string nil (#$ . 3850)) #@49 Mode line string to identify current direction. (defvar tpu-direction-string nil (#$ . 3949)) #@51 History variable for tpu-edt-add-at-bol function. (defvar tpu-add-at-bol-hist nil (#$ . 4049)) #@51 History variable for tpu-edt-add-at-eol function. (defvar tpu-add-at-eol-hist nil (#$ . 4150)) #@52 History variable for search and replace functions. (defvar tpu-regexp-prompt-hist nil (#$ . 4251)) #@52 If non-nil, Return produces a newline and indents. (defvar tpu-newline-and-indent-p nil (#$ . 4356)) (make-variable-buffer-local (quote tpu-newline-and-indent-p)) #@47 Mode line string to identify AutoIndent mode. (defvar tpu-newline-and-indent-string nil (#$ . 4525)) (make-variable-buffer-local (quote tpu-newline-and-indent-string)) #@32 Saved value of the delete key. (defvar tpu-saved-delete-func nil (#$ . 4699)) (make-variable-buffer-local (quote tpu-saved-delete-func)) #@31 TPU-edt buffer local key map. (defvar tpu-buffer-local-map nil (#$ . 4842)) (byte-code "!!\f\f B! B!' B!" [make-variable-buffer-local tpu-buffer-local-map boundp tpu-original-mode-line mode-line-format current-load-list tpu-original-mm-alist minor-mode-alist tpu-mark-flag " "] 2) #@57 Set the mode for TPU-edt, or reset it to default Emacs. (defalias 'tpu-set-mode-line #[(for-tpu) "\n  !!!!!!!!!\"\f<\fB\fF\fB\fQ\fB" [for-tpu tpu-original-mode-line mode-line-format tpu-original-mm-alist minor-mode-alist set-default purecopy "" mode-line-modified mode-line-buffer-identification " " global-mode-string tpu-mark-flag " %[(" mode-name mode-line-process "%n" ")%]--" (line-number-mode "L%l--") (-3 . "%p") "-%-" tpu-newline-and-indent-p (tpu-newline-and-indent-p tpu-newline-and-indent-string) tpu-rectangular-p (tpu-rectangular-p tpu-rectangle-string) tpu-direction-string (tpu-direction-string tpu-direction-string)] 19 (#$ . 5162)]) #@65 Make sure mode-line in the current buffer reflects all changes. (defalias 'tpu-update-mode-line #[nil " \n\f !!" [tpu-mark "M" " " tpu-mark-flag tpu-emacs19-p force-mode-line-update set-buffer-modified-p buffer-modified-p sit-for 0] 2 (#$ . 5876)]) (byte-code "\"\" \"\"!)   B !9 \f B " [tpu-lucid-emacs19-p add-hook zmacs-deactivate-region-hook tpu-update-mode-line zmacs-activate-region-hook tpu-emacs19-p activate-mark-hook deactivate-mark-hook boundp tpu-match-beginning-mark make-marker current-load-list tpu-match-end-mark] 3) #@41 Set markers at match beginning and end. (defalias 'tpu-set-match #[nil "T!!" [copy-marker 0 tpu-match-beginning-mark tpu-match-end-mark] 2 (#$ . 6482)]) #@40 Unset match beginning and end markers. (defalias 'tpu-unset-match #[nil "\n" [tpu-match-beginning-mark nil tpu-match-end-mark] 3 (#$ . 6651)]) #@51 Returns the location of the last match beginning. (defalias 'tpu-match-beginning #[nil " !S" [marker-position tpu-match-beginning-mark] 2 (#$ . 6809)]) #@45 Returns the location of the last match end. (defalias 'tpu-match-end #[nil " !" [marker-position tpu-match-end-mark] 2 (#$ . 6969)]) #@111 Returns t if point is between tpu-match markers. Otherwise sets the tpu-match markers to nil and returns nil. (defalias 'tpu-check-match #[nil " !p.` !SY.` !W, !S !U. !`U.ć Ƈ" [marker-buffer tpu-match-beginning-mark marker-position tpu-match-end-mark t tpu-unset-match nil] 3 (#$ . 7111)]) #@39 Show the values of the match markers. (defalias 'tpu-show-match-markers #[nil " ! !  S!!`p&)" [markerp tpu-match-beginning-mark marker-position beg message "(%s, %s) in %s -- current %s in %s" tpu-match-end-mark marker-buffer] 7 (#$ . 7428) nil]) (defalias 'tpu-caar #[(thingy) "@@" [thingy] 1]) (defalias 'tpu-cadr #[(thingy) "A@" [thingy] 1]) #@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 " \n?! \f ?! " [tpu-lucid-emacs19-p mark zmacs-regions tpu-emacs19-p mark-active transient-mark-mode] 2 (#$ . 7803)]) #@132 TPU-edt verion of the `set-mark' function. Sets the mark at POS and activates the region acording to the current version of Emacs. (defalias 'tpu-set-mark #[(pos) " !\n  " [set-mark pos tpu-lucid-emacs19-p zmacs-activate-region] 2 (#$ . 8082)]) #@28 Read a string with PROMPT. (defalias 'tpu-string-prompt #[(prompt history-symbol) "\f\nÉ\f%\n!" [tpu-emacs19-p read-from-minibuffer prompt nil history-symbol read-string] 6 (#$ . 8343)]) #@39 Most recent response to tpu-y-or-n-p. (defvar tpu-last-answer nil (#$ . 8545)) #@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) " \f\fł #!|  U3 U3 U9x UN UN UTx Ub\f?x \ftłu#!))" [message format "%s[%s]" prompt not-yes "n" "y" t doit nil read-char ans 121 89 32 tpu-last-answer 110 78 127 13 beep "Please answer y or n. %s[%s]"] 6 (#$ . 8631)]) #@78 Replace a key in the TPU-edt local key map. Create the key map if necessary. (defalias 'tpu-local-set-key #[(key func) " !  !  !\"" [keymapp tpu-buffer-local-map current-local-map copy-keymap make-sparse-keymap use-local-map local-set-key key func] 3 (#$ . 9169)]) #@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 " `\"iUÂ\\\\" [count-lines window-start 0 1 -1] 3 (#$ . 9464)]) #@60 The set of user-defined markers (breadcrumbs), as a plist. (defvar tpu-breadcrumb-plist nil (#$ . 9709)) #@72 Drops a breadcrumb that can be returned to later with goto-breadcrumb. (defalias 'tpu-drop-breadcrumb #[(num) " \np`D#\n\"" [put tpu-breadcrumb-plist num message "Mark %d set."] 5 (#$ . 9820) "p"]) #@51 Returns to a breadcrumb set with drop-breadcrumb. (defalias 'tpu-goto-breadcrumb #[(num) " N N@! N!b \" \"" [tpu-breadcrumb-plist num switch-to-buffer tpu-cadr message "mark %d found." "mark %d not found."] 3 (#$ . 10029) "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) " /  \fV*\ff\ffUł\fT\"\fT !* ]  \fVY\ff\ffUMłN\fT\"\fT: * VggUołp``T\"~Ђu S _" [tpu-mark region-beginning region-end end beg upcase-region downcase-region tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match num 0 tpu-reverse -1 1] 4 (#$ . 10280) "p"]) #@67 Fill paragraph or marked region. With argument, fill and justify. (defalias 'tpu-fill #[(num) " ` \n#!\n!" [tpu-mark fill-region num tpu-unselect t fill-paragraph] 4 (#$ . 10804) "P"]) #@35 Print the TPU-edt version number. (defalias 'tpu-version #[nil "\n\"" [message "TPU-edt version %s by Rob Riepel (riepel@networking.stanford.edu)" tpu-version] 3 (#$ . 11007) nil]) #@23 Sets the screen size. (defalias 'tpu-reset-screen-size #[(height width) " ! !" [set-screen-height height set-screen-width width] 2 (#$ . 11197) "nnew screen height: \nnnew screen width: "]) #@59 Toggle between 'newline and indent' and 'simple newline'. (defalias 'tpu-toggle-newline-and-indent #[nil "\"\" t,*͂+\"" [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 message "Carriage return inserts a newline%s" " and indents." "."] 3 (#$ . 11397) nil]) #@87 Checks the spelling of the region, or of the entire buffer if no region is selected. (defalias 'tpu-spell-check #[nil "  `\") ) & `\") 1!" [tpu-have-ispell tpu-mark ispell-region ispell-buffer spell-region spell-buffer tpu-unselect t] 3 (#$ . 11796) nil]) #@39 Switches in and out of overwrite mode (defalias 'tpu-toggle-overwrite-mode #[nil " \"!!\"!" [overwrite-mode tpu-local-set-key "" tpu-saved-delete-func 0 local-key-binding picture-backward-clear-column 1] 3 (#$ . 12093) nil]) #@74 Insert a character or control code according to its ASCII decimal value. (defalias 'tpu-special-insert #[(num) "!  c" [overwrite-mode delete-char 1 num 0] 2 (#$ . 12345) "P"]) #@91 Read next input character and insert it. This is useful for inserting control characters. (defalias 'tpu-quoted-insert #[(num) " \n \f! \f\")" [read-char char overwrite-mode delete-char num insert-char] 3 (#$ . 12542) "*p"]) #@23 TPU-like include file (defalias 'tpu-include #[(file) " !!)" [insert-file file message ""] 2 (#$ . 12781) "fInclude file: "]) #@19 TPU-like get file (defalias 'tpu-get #[(file) " !" [find-file file] 2 (#$ . 12919) "FFile to get: "]) #@80 Tells what line the point is on, and the total number of lines in the buffer. (defalias 'tpu-what-line #[nil "m\fd\"\"`T\"d\"#" [message "You are at the End of Buffer. The last line is %d." count-lines 1 "Line %d of %d"] 6 (#$ . 13029) nil]) #@66 Exit the way TPU does, save current buffer and ask about others. (defalias 'tpu-exit #[nil " =\n " [recursion-depth 0 exit-recursive-edit save-buffer save-buffers-kill-emacs] 2 (#$ . 13293) nil]) #@70 Quit the way TPU does, ask to make sure changes should be abandoned. (defalias 'tpu-quit #[nil "  2\n2 @\f!+\f!+!)!+ A)\n9!*" [buffer-list t working list buffer buffer-file-name buffer-modified-p tpu-y-or-n-p "Modifications will not be saved, continue quitting? " kill-emacs nil] 2 (#$ . 13507) nil]) (byte-code "MMMMMMMMMMMMMMMMMMMMMMMMMM!rM*+B+-+B+!\"/+B+!\"3+B+!5+B+!7+B+!9+B+!;+B+" [tpu-edt-mode tpu-edt-on TPU-EDT-MODE tpu-edt 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 fboundp next-line-internal line-move "\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" tpu-help-keypad-map current-load-list "\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\n G Get - load a file into a new edit buffer\n I Include - include a file in this buffer\n K Kill Buffer - abandon edits and delete buffer\n\n M Buffer Menu - display a list of all buffers\n N Next File Buffer - display next buffer containing a file\n O Occur - show following lines containing REGEXP\n\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 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 *** No more help, use P to view previous screen" tpu-help-text boundp tpu-help-enter format "%s" "OM" tpu-help-return " " tpu-help-N "N" tpu-help-n "n" tpu-help-P "P" tpu-help-p "p"] 3) #@23 Display TPU-edt help. (defalias 'tpu-help #[nil "" [((byte-code "!!!\fc c! y ̉ ? F!K!\"c 0s ڏ0 y 0 ߏ0!y 00 !!0!0+" [get-buffer "*TPU-edt Help*" generate-new-buffer switch-to-buffer tpu-help-keypad-map tpu-help-text t buffer-read-only delete-other-windows tpu-move-to-beginning 1 tpu-line-to-top-of-window nil split fkey key tpu-help-return 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" tpu-help-enter tpu-help-N tpu-help-n (scroll-other-window 8) ((error)) forward-page tpu-help-P tpu-help-p (scroll-other-window -8) ((error)) backward-page 2 describe-key key-binding sit-for 3] 3))] 1 (#$ . 17841) nil]) #@67 Inserts an escape character, and so becomes the escape-key alias. (defalias 'tpu-insert-escape #[nil "c" [""] 1 (#$ . 18765) nil]) #@31 Inserts a formfeed character. (defalias 'tpu-insert-formfeed #[nil "c" ["\f"] 1 (#$ . 18905) nil]) #@27 Saved value of Control-r. (defvar tpu-saved-control-r nil (#$ . 19012)) #@35 Ends the current macro definition (defalias 'tpu-end-define-macro-key #[(key) "! \f\"\"" [end-kbd-macro nil global-set-key key last-kbd-macro "" tpu-saved-control-r] 3 (#$ . 19090) "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 "!\"!" [global-key-binding "" tpu-saved-control-r global-set-key tpu-end-define-macro-key start-kbd-macro nil] 3 (#$ . 19353) nil]) #@108 Kills the current buffer. If tpu-kill-buffers-silently is non-nil, kills modified buffers without asking. (defalias 'tpu-kill-buffer #[nil "!p!" [tpu-kill-buffers-silently set-buffer-modified-p nil kill-buffer] 2 (#$ . 19603) nil]) #@34 Save all buffers and exit emacs. (defalias 'tpu-save-all-buffers-kill-emacs #[nil "!)" [t delete-old-versions save-buffers-kill-emacs] 2 (#$ . 19851) nil]) #@44 Save all modified buffers without exiting. (defalias 'tpu-write-current-buffers #[nil "!" [save-some-buffers t] 2 (#$ . 20018) nil]) #@28 Go to next buffer in ring. (defalias 'tpu-next-buffer #[nil " !@!" [switch-to-buffer reverse buffer-list] 3 (#$ . 20160) nil]) #@65 Go to next buffer in ring that is visiting a file or directory. (defalias 'tpu-next-file-buffer #[nil " !p\n\"!\n!@!)" [tpu-make-file-buffer-list buffer-list list delq error "No other buffers." switch-to-buffer reverse] 4 (#$ . 20297) nil]) #@80 Returns names from BUFFER-LIST excluding those beginning with a space or star. (defalias 'tpu-make-file-buffer-list #[(buffer-list) "\f\"\"" [delq nil mapcar #[(b) " !HU !HU? " [buffer-name b 0 32 42] 2] buffer-list] 5 (#$ . 20559)]) #@26 Move to the next window. (defalias 'tpu-next-window #[nil " !!" [one-window-p message "There is only one window on screen." other-window 1] 2 (#$ . 20817) nil]) #@30 Move to the previous window. (defalias 'tpu-previous-window #[nil " ! !" [one-window-p message "There is only one window on screen." select-window previous-window] 2 (#$ . 20994) nil]) #@68 Switches in and out of regular expression search and replace mode. (defalias 'tpu-toggle-regexp #[nil "? tĂ\"" [tpu-regexp-p tpu-set-search message "Regular expression search and substitute %sabled." "en" "dis"] 3 (#$ . 21195) nil]) #@66 Read a string, adding 'RE' to the prompt if tpu-regexp-p is set. (defalias 'tpu-regexp-prompt #[(prompt) "\nP\f Ɖ% !)" [tpu-regexp-p "RE " prompt re-prompt tpu-emacs19-p read-from-minibuffer nil tpu-regexp-prompt-hist read-string] 6 (#$ . 21452)]) #@94 Search for a string or regular expression. The search is performed in the current direction. (defalias 'tpu-search #[nil " !" [tpu-set-search tpu-search-internal ""] 2 (#$ . 21724) nil]) #@91 Search for a string or regular expression. The search is begins in the forward direction. (defalias 'tpu-search-forward #[nil "!!" [t tpu-searching-forward tpu-set-search tpu-search-internal ""] 2 (#$ . 21922) nil]) #@91 Search for a string or regular expression. The search is begins in the reverse direction. (defalias 'tpu-search-reverse #[nil "!!" [nil tpu-searching-forward tpu-set-search t tpu-search-internal ""] 2 (#$ . 22152) 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 " !" [tpu-search-internal tpu-search-last-string] 2 (#$ . 22387) nil]) #@143 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) "\n  \"\fMMMM\f.MMMM" [arg tpu-advance t tpu-searching-forward tpu-regexp-p tpu-emacs-search re-search-forward tpu-emacs-rev-search re-search-backward search-forward search-backward] 2 (#$ . 22614)]) #@44 Search for a string or regular expression. (defalias 'tpu-search-internal #[(pat &optional quiet) "\n ! \f!\f#/ b!ʉ? \f#Ҕ*q_ւ`\"!b ?݂\f#*)" [pat "" tpu-regexp-prompt "Search: " tpu-search-last-string tpu-unset-match tpu-adjust-search case-fold-search tpu-check-search-case tpu-emacs-search nil t tpu-set-match tpu-match-beginning pos found tpu-searching-forward tpu-emacs-rev-search 0 tpu-y-or-n-p format "Found in %s direction. Go there? " "reverse" "forward" tpu-toggle-search-direction quiet message "%sSearch failed: \"%s\"" tpu-regexp-p "RE "] 4 (#$ . 23045)]) (byte-code "KM" [tpu-search-internal-core tpu-search-internal] 2) #@42 Returns t if string contains upper case. (defalias 'tpu-check-search-case #[(string) "q\n!\"# \\I\"8 \\I#\"M \\I8\"j \\I \\IM+\n" [tpu-regexp-p copy-sequence string nil 0 pos case-fold-search pat string-match "\\\\\\\\" 1 46 "\\\\B" "\\\\W" "\\\\S." 2] 3 (#$ . 23790)]) #@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) " o?um?u" [tpu-searching-forward arg -1 1] 1 (#$ . 24154)]) #@79 Toggle the TPU-edt search direction. Used for reversing a search in progress. (defalias 'tpu-toggle-search-direction #[nil "?!tł\"" [tpu-searching-forward tpu-set-search t message "Searching %sward." "for" "back"] 3 (#$ . 24423) nil]) #@51 Set search direction forward and exit minibuffer. (defalias 'tpu-search-forward-exit #[nil "! " [t tpu-searching-forward tpu-set-search exit-minibuffer] 2 (#$ . 24683) nil]) #@52 Set search direction backward and exit minibuffer. (defalias 'tpu-search-backward-exit #[nil "! " [nil tpu-searching-forward tpu-set-search t exit-minibuffer] 2 (#$ . 24870) nil]) #@46 Sets the mark to define one end of a region. (defalias 'tpu-select #[(&optional quiet) " \n!`! \n?!" [tpu-mark tpu-unselect quiet tpu-set-mark tpu-update-mode-line message "Move the text cursor to select text."] 2 (#$ . 25063) "P"]) #@50 Removes the mark to unselect the current region. (defalias 'tpu-unselect #[(&optional quiet) "! \f?!" [nil mark-ring tpu-set-mark tpu-update-mode-line quiet message "Selection canceled."] 2 (#$ . 25318) "P"]) #@48 Toggle rectangular mode for remove and insert. (defalias 'tpu-toggle-rectangle #[nil "? \f t ǂ\"" [tpu-rectangular-p " Rect" "" tpu-rectangle-string tpu-update-mode-line message "Rectangular cut and paste %sabled." "en" "dis"] 4 (#$ . 25546) nil]) #@82 Adjust point and mark to mark upper left and lower right corners of a rectangle. (defalias 'tpu-arrange-rectangle #[nil "i i` V& \nV 9\n! !9 \nV9\n! ! *" [exchange-point-and-mark pc mc tpu-mark move-to-column-force] 2 (#$ . 25825)]) #@74 Delete the selected region. The text is saved for the tpu-paste command. (defalias 'tpu-cut-text #[nil " '  ` \f?#! `{ `|! D  \f {\f | *!" [tpu-mark tpu-rectangular-p tpu-arrange-rectangle picture-clear-rectangle overwrite-mode tpu-unselect t tpu-last-deleted-region tpu-check-match tpu-match-beginning tpu-match-end end beg tpu-unset-match error "No selection active."] 5 (#$ . 26096) 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 " \"  ` \")! `{! 1 { !" [tpu-mark tpu-rectangular-p tpu-arrange-rectangle extract-rectangle picture-killed-rectangle tpu-unselect t tpu-last-deleted-region tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match error "No selection active."] 3 (#$ . 26537) nil]) #@105 Copy selected region to the cut buffer. In the absence of an argument, delete the selected region too. (defalias 'tpu-cut #[(arg) " " [arg tpu-store-text tpu-cut-text] 1 (#$ . 26992) "P"]) #@111 Append selected region to the tpu-cut buffer. In the absence of an argument, delete the selected region too. (defalias 'tpu-append-region #[(arg) "   \f {P\f |!* =  \f {P9\f | *!" [tpu-mark region-beginning region-end end beg tpu-last-deleted-region arg tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end tpu-unset-match error "No selection active."] 3 (#$ . 27198) "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) "` yh=c`{`|)" [beg num 10 "\n" tpu-last-deleted-lines] 2 (#$ . 27630) "p"]) #@143 Delete text up to end of line. With argument, delete up to to Nth line-end past point. They are saved for the TPU-edt undelete-lines command. (defalias 'tpu-delete-to-eol #[(num) "`u\n`{`|)" [beg 1 num tpu-last-deleted-lines] 2 (#$ . 27937) "p"]) #@151 Delete text back to beginning of line. With argument, delete up to to Nth line-end past point. They are saved for the TPU-edt undelete-lines command. (defalias 'tpu-delete-to-bol #[(num) "`\n!`{`|)" [beg tpu-next-beginning-of-line num tpu-last-deleted-lines] 2 (#$ . 28200) "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) "`\n!`{`|)" [beg tpu-forward-to-word num tpu-last-deleted-words] 2 (#$ . 28494) "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) "`\n!`{`|)" [beg tpu-backward-to-word num tpu-last-deleted-words] 2 (#$ . 28745) "p"]) #@135 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) "V'm?'`f !u !S" [num 0 tpu-last-deleted-char overwrite-mode picture-clear-column 1 delete-char] 3 (#$ . 28999) "p"]) #@103 Insert the last region or rectangle of killed text. With argument reinserts the text that many times. (defalias 'tpu-paste #[(num) "V)\n` ?!!) b)\"cS" [num 0 tpu-rectangular-p beg picture-yank-rectangle overwrite-mode message "" tpu-last-deleted-region] 3 (#$ . 29327) "p"]) #@108 Insert lines deleted by last TPU-edt line-deletion command. With argument reinserts lines that many times. (defalias 'tpu-undelete-lines #[(num) "` V c Sb)" [beg num 0 tpu-last-deleted-lines] 3 (#$ . 29636) "p"]) #@108 Insert words deleted by last TPU-edt word-deletion command. With argument reinserts words that many times. (defalias 'tpu-undelete-words #[(num) "` V c Sb)" [beg num 0 tpu-last-deleted-words] 3 (#$ . 29869) "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) "V\nu!cuS" [num 0 overwrite-mode -1 delete-char 1 tpu-last-deleted-char] 3 (#$ . 30102) "p"]) #@66 Replace the selected region with the contents of the cut buffer. (defalias 'tpu-replace #[nil "   {\f |c!* :  { ??# *!" [tpu-mark region-beginning region-end end beg tpu-last-replaced-text tpu-last-deleted-region tpu-unselect t tpu-check-match tpu-match-beginning tpu-match-end replace-match case-replace tpu-regexp-p tpu-unset-match error "No selection active."] 5 (#$ . 30388) 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) " \n J\nU?I  M` +u.\fb\nU<\n!A\n!)\nS !" [tpu-mark tpu-check-match num 0 beg tpu-replace tpu-searching-forward -1 1 tpu-search-internal tpu-search-last-string tpu-search-internal-core error "No selection active."] 3 (#$ . 30820) "p"]) #@64 Interactively search for OLD-string and substitute NEW-string. (defalias 'tpu-lm-replace #[(from to) "\fŘ! \f\" ? %ˉ! UHUHUHUq`??#\nTduhb)\f\";UUU\f\";UU`??#\nTub)\f\" `??#\nTub)\f\");UU+`??#\nT!u%b);U9U;)\nULM#*" [t 0 strings doit from "" error "No string to replace." tpu-set-search tpu-search-internal tpu-check-match nil message "Replace? Type Yes, No, All, Last, or Quit: " read-char ans 121 89 13 32 beg replace-match to case-replace tpu-regexp-p tpu-searching-forward -1 110 78 127 97 65 tpu-search-internal-core 108 76 113 81 "Replaced %s occurrence%s." 1 "s"] 6 (#$ . 31356) (list (tpu-regexp-prompt "Old String: ") (tpu-regexp-prompt "New String: "))]) #@269 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) "\fł!\fǂ!" [dont-ask nil current-prefix-arg call-interactively tpu-regexp-p replace-regexp replace-string query-replace-regexp query-replace] 2 (#$ . 32268) "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) "\n! =` V ` W8 #8` W!)!eb#Um?U!A)" [text "" error "No string specified." tpu-mark exchange-point-and-mark re-search-forward "^" t replace-match tpu-unselect nil] 4 (#$ . 32782) (list (tpu-string-prompt "String to add: " (quote 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) "\n! 9` V ` W4` X.cy)!ebm?Ncy=)" [text "" error "No string specified." tpu-mark exchange-point-and-mark nil tpu-unselect t] 2 (#$ . 33244) (list (tpu-string-prompt "String to add: " (quote tpu-add-at-eol-hist)))]) #@60 Removes trailing whitespace from every line in the buffer. (defalias 'tpu-trim-line-ends #[nil " " [picture-clean] 1 (#$ . 33656) nil]) #@102 Move to the next character in the current direction. A repeat count means move that many characters. (defalias 'tpu-char #[(num) "\n!\n!" [tpu-advance tpu-forward-char num tpu-backward-char] 2 (#$ . 33801) "p"]) #@54 Move right ARG characters (left if ARG is negative). (defalias 'tpu-forward-char #[(num) "u" [num] 1 (#$ . 34027) "p"]) #@54 Move left ARG characters (right if ARG is negative). (defalias 'tpu-backward-char #[(num) " !" [backward-char num] 2 (#$ . 34155) "p"]) #@37 List of additional word separators. (defconst tpu-word-separator-list nil (#$ . 34299)) #@94 Characters to skip when moving by word. Additional word separators are added to this string. (defconst tpu-skip-chars "^ " (#$ . 34393)) #@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) "\n!\n!" [tpu-advance tpu-forward-to-word num tpu-backward-to-word] 2 (#$ . 34538) "p"]) #@98 Move forward until encountering the beginning of a word. With argument, do this that many times. (defalias 'tpu-forward-to-word #[(num) "VBm?B``\nblu:`f>1u\fw:\fw\fw*S" [num 0 beg nil end 1 tpu-word-separator-list " " tpu-skip-chars] 3 (#$ . 34777) "p"]) #@99 Move backward until encountering the beginning of a word. With argument, do this that many times. (defalias 'tpu-backward-to-word #[(num) "VMo?M`y`\nbnuE`Sf >-uE x xnE`fzUEu*S" [num 0 beg end -1 tpu-word-separator-list " " tpu-skip-chars 32] 3 (#$ . 35080) "p"]) #@52 Add new word separators for TPU-edt word commands. (defalias 'tpu-add-word-separators #[(separators) "\nG W]\n H\n TO>V\f\" U2 P V UA P V UP P V \fP T**" [0 n separators length ss char tpu-word-separator-list append 45 tpu-skip-chars "\\-" 92 "\\\\" 94 "\\^"] 5 (#$ . 35393) "sSeparators: "]) #@41 Reset word separators to default value. (defalias 'tpu-reset-word-separators #[nil "‰" [nil tpu-word-separator-list "^ " tpu-skip-chars] 2 (#$ . 35743) nil]) #@52 Set new word separators for TPU-edt word commands. (defalias 'tpu-set-word-separators #[(separators) " \n!" [tpu-reset-word-separators tpu-add-word-separators separators] 2 (#$ . 35913) "sSeparators: "]) #@62 Move to next line. Prefix argument serves as a repeat count. (defalias 'tpu-next-line #[(num) " !‰" [next-line-internal num next-line this-command] 2 (#$ . 36127) "p"]) #@66 Move to previous line. Prefix argument serves as a repeat count. (defalias 'tpu-previous-line #[(num) " [!‰" [next-line-internal num previous-line this-command] 2 (#$ . 36307) "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) "!\nZy" [backward-char 1 num] 2 (#$ . 36501) "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) "\n!\n!" [tpu-advance tpu-next-end-of-line num tpu-previous-end-of-line] 2 (#$ . 36744) "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) "u " [1 num] 1 (#$ . 36986) "p"]) #@77 Move EOL upward. Accepts a prefix argument for the number of lines to move. (defalias 'tpu-previous-end-of-line #[(num) " Z" [1 num] 2 (#$ . 37187) "p"]) #@36 Move point to end of current line. (defalias 'tpu-current-end-of-line #[nil "``U!)" [beg nil message "You are already at the end of a line."] 2 (#$ . 37350) 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) "\n!\n!" [tpu-advance tpu-forward-line num tpu-backward-line] 2 (#$ . 37531) "p"]) #@75 Move to beginning of next line. Prefix argument serves as a repeat count. (defalias 'tpu-forward-line #[(num) "y" [num] 1 (#$ . 37764) "p"]) #@77 Move to beginning of previous line. Prefix argument serves as repeat count. (defalias 'tpu-backward-line #[(num) "[y" [num] 1 (#$ . 37913) "p"]) #@102 Move to the next paragraph in the current direction. A repeat count means move that many paragraphs. (defalias 'tpu-paragraph #[(num) "\n!\n!" [tpu-advance tpu-next-paragraph num tpu-previous-paragraph] 2 (#$ . 38067) "p"]) #@98 Move to beginning of the next paragraph. Accepts a prefix argument for the number of paragraphs. (defalias 'tpu-next-paragraph #[(num) "ym- V-#'#$b'db Syć" [0 num re-search-forward "^[ ]*$" nil t "[^ \n]"] 4 (#$ . 38305) "p"]) #@98 Move to beginning of previous paragraph. Accepts a prefix argument for the number of paragraphs. (defalias 'tpu-previous-paragraph #[(num) "o: V:#1#1#1#”b4eb Sy" [nil num 0 re-search-backward "^[ ]*$" t "[^ \n]" re-search-forward] 4 (#$ . 38572) "p"]) #@92 Move to the next page in the current direction. A repeat count means move that many pages. (defalias 'tpu-page #[(num) " \n!\n!m!" [tpu-advance forward-page num backward-page recenter -1] 2 (#$ . 38875) "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) "\n!\n!" [tpu-advance tpu-scroll-window-up num tpu-scroll-window-down] 2 (#$ . 39107) "p"]) #@94 Scroll the display down to the next section. A repeat count means scroll that many sections. (defalias 'tpu-scroll-window-down #[(num) "  S\f _ƥ_[! V !+" [tpu-current-line beg window-height height num tpu-percent-scroll 100 lines next-line-internal recenter 0] 3 (#$ . 39363) "p"]) #@92 Scroll the display up to the next section. A repeat count means scroll that many sections. (defalias 'tpu-scroll-window-up #[(num) "  S\f _ƥ_! \\ Y!!+" [tpu-current-line beg window-height height num tpu-percent-scroll 100 lines next-line-internal recenter -1] 3 (#$ . 39670) "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) " \n_!" [scroll-left tpu-pan-columns num] 3 (#$ . 39977) "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) " \n_!" [scroll-right tpu-pan-columns num] 3 (#$ . 40196) "p"]) #@65 Move cursor to the beginning of buffer, but don't set the mark. (defalias 'tpu-move-to-beginning #[nil "eb" [] 1 (#$ . 40413) nil]) #@59 Move cursor to the end of buffer, but don't set the mark. (defalias 'tpu-move-to-end #[nil "db!" [recenter -1] 2 (#$ . 40552) nil]) #@45 Move point to ARG percentage of the buffer. (defalias 'tpu-goto-percent #[(perc) "V\fW\"d_b" [perc 100 0 error "Percentage %d out of range 0 < percent < 100"] 3 (#$ . 40694) "NGoto-percentage: "]) #@31 Move cursor to top of window. (defalias 'tpu-beginning-of-window #[nil "!" [move-to-window-line 0] 2 (#$ . 40914) nil]) #@34 Move cursor to bottom of window. (defalias 'tpu-end-of-window #[nil "!" [move-to-window-line -1] 2 (#$ . 41043) nil]) #@52 Move the current line to the bottom of the window. (defalias 'tpu-line-to-bottom-of-window #[nil "!" [recenter -1] 2 (#$ . 41170) nil]) #@49 Move the current line to the top of the window. (defalias 'tpu-line-to-top-of-window #[nil "!" [recenter 0] 2 (#$ . 41315) nil]) #@55 Set TPU Advance mode so keypad commands move forward. (defalias 'tpu-advance-direction #[nil " " [" Advance" tpu-direction-string t tpu-advance nil tpu-reverse tpu-set-search tpu-update-mode-line] 1 (#$ . 41453) nil]) #@55 Set TPU Backup mode so keypad commands move backward. (defalias 'tpu-backup-direction #[nil " " [" Reverse" tpu-direction-string nil tpu-advance t tpu-reverse tpu-set-search tpu-update-mode-line] 1 (#$ . 41688) nil]) (byte-code " # # ## # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @A# BC# DE# FG# HI# JK# L# MN# OP# QR# ST# UV# W# XY#Z#[#\\#]#^#_`#ab#cd#ef#g#hi#jk#l#m#n#o#p#q#r#st#uv#w#xy#z#{#|#}~##############################ʁ#́#Ё#΁########X###Ɓ#####~######################U#S#W##@#B#D#F#H#J~#L#M#O#Q#######ʁ#́#Ё#΁###ց#؁#ځ#܁##################### ʁ# ́# Ё# ΁# Ɓb# # # # @# B# D# F# H# J# L# M# O# Q# S# U# W# X#!8#### \n#  \n#\f \n#  #!~ \n### # Z# [# ^# c# g# hi# j# q# u# w# x# |#" [define-key global-map "[" CSI-map "O" SS3-map "P" GOLD-map GOLD-CSI-map GOLD-SS3-map "A" tpu-previous-line "B" tpu-next-line "D" tpu-backward-char "C" tpu-forward-char "1~" tpu-search "2~" tpu-paste "3~" tpu-cut "4~" tpu-select "5~" tpu-scroll-window-down "6~" tpu-scroll-window-up "11~" nil "12~" "13~" "14~" "15~" "17~" "18~" "19~" "20~" "21~" tpu-exit "23~" tpu-insert-escape "24~" tpu-next-beginning-of-line "25~" tpu-delete-previous-word "26~" tpu-toggle-overwrite-mode "28~" tpu-help "29~" execute-extended-command "31~" tpu-goto-breadcrumb "32~" "33~" "34~" "Q" "R" tpu-search-again "S" tpu-delete-current-line "p" tpu-line "q" tpu-word "r" tpu-end-of-line "s" tpu-char "t" tpu-advance-direction "u" tpu-backup-direction "v" "w" tpu-page "x" tpu-scroll-window "y" tpu-append-region "m" tpu-delete-current-word "l" tpu-delete-current-char "n" "M" newline "" "" "" "" "" "" set-visited-file-name "" keyboard-quit "" delete-other-windows " " other-window "\n" " " 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 "+" "," "-" negative-argument "." tpu-drop-breadcrumb "/" tpu-emacs-replace "0" digit-argument "1" "2" "3" "4" "5" "6" "7" "8" "9" ":" ";" tpu-trim-line-ends "<" "=" ">" "?" tpu-spell-check tpu-toggle-newline-and-indent tpu-next-buffer repeat-complex-command shell-command "E" "F" tpu-set-cursor-free "G" tpu-get "H" "I" tpu-include "K" tpu-kill-buffer "L" tpu-what-line buffer-menu "N" tpu-next-file-buffer "O" occur lpr-buffer tpu-quit tpu-toggle-rectangle 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 "[" blink-matching-open "\\" "]" "^" tpu-add-at-bol "_" split-window-vertically "`" what-line "a" "b" "c" "d" "e" "f" "g" "h" "i" "k" goto-line "o" lpr-region "z" "{" "|" split-window-horizontally "}" "~" exchange-point-and-mark "" delete-window tpu-move-to-beginning tpu-move-to-end end-of-line beginning-of-line tpu-store-text tpu-unselect tpu-previous-window tpu-next-window "16~" describe-bindings help-for-help tpu-undelete-lines open-line tpu-change-case tpu-delete-to-eol tpu-special-insert tpu-fill tpu-replace tpu-undelete-words tpu-undelete-char tpu-substitute boundp repeat-complex-command-map "" previous-complex-command "" next-complex-command "OA" "OB" minibuffer-local-map "OM" exit-minibuffer minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-complete-and-exit "Ot" tpu-search-forward-exit "Ou" tpu-search-backward-exit "" quoted-insert tpu-current-end-of-line tpu-insert-formfeed recenter tpu-delete-to-bol tpu-quoted-insert redraw-display] 4) #@51 Set control keys to TPU or emacs style functions. (defalias 'tpu-reset-control-keys #[(tpu-style) " ?? \n  \"!\n-!1!  \"# \"# \"# \"# \"# \"# \"# \"# \"# \"# \"# \"# \"#)+" [tpu-style tpu-control-keys tpu emacs doit copy-keymap global-map tpu-global-map tpu-original-global-map map define-key "" lookup-key "" "" "" "" "\n" " " "\f" "" "" "" "" ""] 7 (#$ . 47128)]) #@57 Toggles control key bindings between TPU-edt and Emacs. (defalias 'tpu-toggle-control-keys #[nil " ?!t Ă\"" [tpu-reset-control-keys tpu-control-keys message "Control keys function with %s bindings." "TPU-edt" "Emacs"] 3 (#$ . 47654) nil]) #@72 Insert the next element of the minibuffer history into the minibuffer. (defalias 'tpu-next-history-element #[(n) " !db" [next-history-element n] 2 (#$ . 47914) "p"]) #@76 Insert the previous element of the minibuffer history into the minibuffer. (defalias 'tpu-previous-history-element #[(n) " !db" [previous-history-element n] 2 (#$ . 48089) "p"]) #@58 Modify minibuffer maps to use arrows for history recall. (defalias 'tpu-arrow-history #[nil "!@7 # # #\n # #\fA!@l # # #\n # #\fA<*" [where-is-internal tpu-previous-line nil cur loc define-key read-expression-map tpu-previous-history-element minibuffer-local-map minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map tpu-next-line tpu-next-history-element] 5 (#$ . 48276) nil]) #@188 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 Lucid emacs, and `~/.tpu-keys' for Emacs. (defalias 'tpu-load-xkeys #[(file) " !>\n\n!> !!> >!!>!!>!\"!H!! cщ!C\"@@\"~ڂQ!!Ad\"c!!c!," [file expand-file-name tpu-xkeys-file tpu-lucid-emacs19-p "~/.tpu-lucid-keys" tpu-emacs19-p "~/.tpu-keys" file-exists-p "~/.tpu-gnu-keys" tpu-copy-keyfile file-readable-p load-file switch-to-buffer "*scratch*" erase-buffer "\n\n Ack!! You're running TPU-edt under X-windows without loading an\n X key definition file. To create a TPU-edt X key definition\n file, run the tpu-mapper.el program. It came with TPU-edt. It\n even includes directions on how to use it! Perhaps it's laying\n around here someplace. " "tpu-mapper.el" nil append "." load-path search-list path found string-match "/$" "" "/" file-directory-p t format "Ah yes, there it is, in \n\n %s \n\n" tpu-y-or-n-p "Do you want to run it now? " "Nope, I can't seem to find it. :-(\n\n" sit-for 120] 6 (#$ . 48771) "fX key definition file: "]) #@66 Copy the TPU-edt X key definitions file to the new default name. (defalias 'tpu-copy-keyfile #[(oldname newname) "!\n!q cŋ" [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 " ((byte-code "! eb !ȏ!" [switch-to-buffer-other-window "*TPU-Notice*" 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 "\nA\"" [message "Sorry, couldn't copy - %s" conditions] 3))) kill-buffer] 3))] 2 (#$ . 50042) "fOld name: \nFNew name: "]) #@28 Turn on TPU/edt emulation. (defalias 'tpu-edt-on #[nil "?S!! ! <$$$$! \"\"ĉ" [tpu-edt-mode require picture tpu-reset-control-keys t tpu-emacs19-p window-system tpu-load-xkeys nil tpu-arrow-history autoload ispell-word "ispell" "Check spelling of word at or before point" ispell-complete-word "Complete word at or before point" ispell-buffer "Check spelling of entire buffer" ispell-region "Check spelling of region" tpu-set-mode-line tpu-advance-direction set-default page-delimiter "\f" truncate-lines 1 scroll-step] 5 (#$ . 51055) nil]) #@63 Turn off TPU/edt emulation. Note that the keypad is left on. (defalias 'tpu-edt-off #[nil "'!!\"\"  !\f\f!‰" [tpu-edt-mode tpu-reset-control-keys nil tpu-set-mode-line set-default page-delimiter "^\f" truncate-lines 0 scroll-step copy-keymap tpu-original-global-map global-map use-global-map] 3 (#$ . 51667) nil]) (provide (quote tpu-edt))