;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri Apr 28 17:31:22 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/tpu-extras.el ;;; emacs version 19.28.90.49. ;;; 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-extras.el' was compiled for Emacs 19")) (require (quote tpu-edt)) #@95 *Scroll margin at the top of the screen. Interpreted as a percent of the current window size. (defconst tpu-top-scroll-margin 0 (#$ . -515)) #@98 *Scroll margin at the bottom of the screen. Interpreted as a percent of the current window size. (defconst tpu-bottom-scroll-margin 0 (#$ . -662)) #@191 *If non-nil, in free cursor mode backward-char (left-arrow) works just like TPU/edt. Otherwise, backward-char will move to the end of the previous line when starting from a line beginning. (defvar tpu-backward-char-like-tpu t (#$ . -816)) #@39 If non-nil, let the cursor roam free. (defvar tpu-cursor-free nil (#$ . 1062)) (add-hook (quote picture-mode-hook) (quote tpu-set-cursor-free)) #@63 Eliminate whitespace at ends of lines, if the cursor is free. (defalias 'tpu-write-file-hook #[nil " " [buffer-modified-p tpu-cursor-free picture-clean] 1 (#$ . 1212)]) (byte-code " >\n B" [tpu-write-file-hook write-file-hooks] 2) #@45 Enforce scroll margin at the top of screen. (defalias 'tpu-top-check #[(beg lines) " _¥\f W\f!\fZ W !)" [window-height tpu-top-scroll-margin 100 margin beg recenter lines] 2 (#$ . 1467)]) #@48 Enforce scroll margin at the bottom of screen. (defalias 'tpu-bottom-check #[(beg lines) " \n_å\\ ZZV!!0 \\V0 [!+" [window-height height tpu-bottom-scroll-margin 100 1 margin difference beg recenter lines] 3 (#$ . 1679)]) #@54 Move right ARG characters (left if ARG is negative). (defalias 'tpu-forward-char #[(num) "\n!\nu" [tpu-cursor-free picture-forward-column num] 2 (#$ . 1937) "p"]) #@54 Move left ARG characters (right if ARG is negative). (defalias 'tpu-backward-char #[(num) "\n! \n!n ! \nS!\n!" [tpu-cursor-free backward-char num tpu-backward-char-like-tpu picture-backward-column 1 picture-end-of-line] 2 (#$ . 2113) "p"]) #@62 Move to next line. Prefix argument serves as a repeat count. (defalias 'tpu-next-line #[(num) " \nm\f!\f! \f\"lj)" [tpu-current-line beg tpu-cursor-free picture-move-down num next-line-internal tpu-bottom-check next-line this-command] 3 (#$ . 2381) "p"]) #@66 Move to previous line. Prefix argument serves as a repeat count. (defalias 'tpu-previous-line #[(num) " \n\f!\f[! \f\"lj)" [tpu-current-line beg tpu-cursor-free picture-move-up num next-line-internal tpu-top-check previous-line this-command] 3 (#$ . 2662) "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) " !\fZy \f\")" [tpu-current-line beg backward-char 1 num tpu-top-check] 3 (#$ . 2948) "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) " \n%`\fW\fy ` X!y )+u\f \f\")" [tpu-current-line beg tpu-cursor-free 1 num picture-end-of-line nil tpu-bottom-check] 3 (#$ . 3237) "p"]) #@77 Move EOL upward. Accepts a prefix argument for the number of lines to move. (defalias 'tpu-previous-end-of-line #[(num) " \n Z! Z \")" [tpu-current-line beg tpu-cursor-free picture-end-of-line 1 num tpu-top-check] 3 (#$ . 3564) "p"]) #@36 Move point to end of current line. (defalias 'tpu-current-end-of-line #[nil "` \f `U!)" [beg tpu-cursor-free picture-end-of-line nil message "You are already at the end of a line."] 2 (#$ . 3821) nil]) #@75 Move to beginning of next line. Prefix argument serves as a repeat count. (defalias 'tpu-forward-line #[(num) "  ! \"y)Ƈ" [tpu-current-line beg next-line-internal num tpu-bottom-check 0 nil] 3 (#$ . 4047) "p"]) #@77 Move to beginning of previous line. Prefix argument serves as repeat count. (defalias 'tpu-backward-line #[(num) "  [! \"y)Ƈ" [tpu-current-line beg next-line-internal num tpu-top-check 0 nil] 3 (#$ . 4274) "p"]) #@102 Move to the next paragraph in the current direction. A repeat count means move that many paragraphs. (defalias 'tpu-paragraph #[(num) "  UȂ \nU\"˂$\n\f  _ͥ \f_ͥ\\ ZZ]!`)!`)b Zy`)!`V y)U! Z!`V!!`W ^!. " [nil left tpu-current-line beg window-height height tpu-top-scroll-margin 0 10 top-percent tpu-bottom-scroll-margin 15 bottom-percent 100 top-margin 1 bottom-up-margin bottom-margin move-to-window-line top bottom 2 far tpu-advance tpu-next-paragraph num recenter tpu-previous-paragraph] 4 (#$ . 4503) "p"]) #@92 Move to the next page in the current direction. A repeat count means move that many pages. (defalias 'tpu-page #[(num) "  UȂ \nU\"˂$\n\f  _ͥ \f_ͥ\\ ZZ]!`)!`)b Zy`)!`V y)U! Z!`V!!`W ^!. " [nil left tpu-current-line beg window-height height tpu-top-scroll-margin 0 10 top-percent tpu-bottom-scroll-margin 15 bottom-percent 100 top-margin 1 bottom-up-margin bottom-margin move-to-window-line top bottom 2 far tpu-advance forward-page num recenter backward-page] 4 (#$ . 5138) "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 _ƥ_[! \"+" [tpu-current-line beg window-height height num tpu-percent-scroll 100 lines next-line-internal tpu-top-check] 3 (#$ . 5743) "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 _ƥ_! \"+" [tpu-current-line beg window-height height num tpu-percent-scroll 100 lines next-line-internal tpu-bottom-check] 3 (#$ . 6048) "p"]) #@44 Search for a string or regular expression. (defalias 'tpu-search-internal #[(pat &optional quiet) "  UȂ \nU\"˂$\n\f  _ͥ \f_ͥ\\ ZZ]!`)!`)b Zy`)\"`V y)U! Z!`V!`W ^!. " [nil left tpu-current-line beg window-height height tpu-top-scroll-margin 0 10 top-percent tpu-bottom-scroll-margin 15 bottom-percent 100 top-margin 1 bottom-up-margin bottom-margin move-to-window-line top bottom 2 far tpu-search-internal-core pat quiet tpu-searching-forward recenter] 4 (#$ . 6351)]) (byte-code "! KM!KM!!KM" [fboundp tpu-old-newline newline tpu-old-do-auto-fill do-auto-fill tpu-old-newline-and-indent newline-and-indent] 2) #@192 Insert a newline. With arg, insert that many newlines. In Auto Fill mode, can break the preceding line if no numeric arg. This is the TPU-edt version that respects the bottom scroll margin. (defalias 'newline #[(&optional num) " \n \n! \n\")" [tpu-current-line beg num 1 tpu-old-newline tpu-bottom-check] 3 (#$ . 7110) "p"]) #@336 Insert a newline, then indent according to major mode. Indentation is done using the current indent-line-function. In programming language modes, this is the same as TAB. In some text modes, where TAB inserts a tab, this indents to the specified left-margin column. This is the TPU-edt version that respects the bottom scroll margin. (defalias 'newline-and-indent #[nil "  \")" [tpu-current-line beg tpu-old-newline-and-indent tpu-bottom-check 1] 3 (#$ . 7453) nil]) #@57 TPU-edt version that respects the bottom scroll margin. (defalias 'do-auto-fill #[nil "  \")" [tpu-current-line beg tpu-old-do-auto-fill tpu-bottom-check 1] 3 (#$ . 7935)]) #@21 Set scroll margins. (defalias 'tpu-set-scroll-margins #[(top bottom) "%OĘ!%!_ \\S  N OĘ? !\nN !_ \\S \ntY\n#" [top "" -1 nil "%" string-to-int tpu-top-scroll-margin 100 window-height bottom tpu-bottom-scroll-margin message "Scroll margins set. Top = %s%%, Bottom = %s%%"] 4 (#$ . 8122) "sEnter top scroll margin (N lines or N%% or RETURN for current value): \nsEnter bottom scroll margin (N lines or N%% or RETURN for current value): "]) #@51 Allow the cursor to move freely about the screen. (defalias 'tpu-set-cursor-free #[nil " #!" [t tpu-cursor-free substitute-key-definition tpu-set-cursor-free tpu-set-cursor-bound GOLD-map message "The cursor will now move freely about the screen."] 4 (#$ . 8624) nil]) #@47 Constrain the cursor to the flow of the text. (defalias 'tpu-set-cursor-bound #[nil " #!" [picture-clean nil tpu-cursor-free substitute-key-definition tpu-set-cursor-bound tpu-set-cursor-free GOLD-map message "The cursor is now bound to the flow of your text."] 4 (#$ . 8908) nil])