Gecko [ 122.154.134.11 ]

Name	Size	Permission
crisp.elc	10.33 KB	-rw-r--r--
cua-base.elc	38.36 KB	-rw-r--r--
cua-gmrk.elc	10.5 KB	-rw-r--r--
cua-rect.elc	38.43 KB	-rw-r--r--
edt-lk201.elc	1.54 KB	-rw-r--r--
edt-mapper.elc	11.76 KB	-rw-r--r--
edt-pc.elc	1.51 KB	-rw-r--r--
edt-vt100.elc	902 B	-rw-r--r--
edt.elc	63.21 KB	-rw-r--r--
keypad.elc	6.52 KB	-rw-r--r--
pc-mode.elc	1.5 KB	-rw-r--r--
pc-select.elc	30.71 KB	-rw-r--r--
tpu-edt.elc	59.56 KB	-rw-r--r--
tpu-extras.elc	10.79 KB	-rw-r--r--
tpu-mapper.elc	10.83 KB	-rw-r--r--
vi.elc	47.55 KB	-rw-r--r--
vip.elc	77.32 KB	-rw-r--r--
viper-cmd.elc	126.33 KB	-rw-r--r--
viper-ex.elc	47.32 KB	-rw-r--r--
viper-init.elc	33.31 KB	-rw-r--r--
viper-keym.elc	22.3 KB	-rw-r--r--
viper-macs.elc	18.69 KB	-rw-r--r--
viper-mous.elc	15.95 KB	-rw-r--r--
viper-util.elc	33.08 KB	-rw-r--r--
viper.elc	26.61 KB	-rw-r--r--
ws-mode.elc	20.31 KB	-rw-r--r--

Code Editor : tpu-extras.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:58 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emulation/tpu-extras.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`tpu-extras.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'tpu-edt)
#@94 Scroll margin at the top of the screen.
Interpreted as a percent of the current window size.
(custom-declare-variable 'tpu-top-scroll-margin '0 '(#$ . 640) :type 'integer :group 'tpu)
#@97 Scroll margin at the bottom of the screen.
Interpreted as a percent of the current window size.
(custom-declare-variable 'tpu-bottom-scroll-margin '0 '(#$ . 830) :type 'integer :group 'tpu)
#@190 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.
(custom-declare-variable 'tpu-backward-char-like-tpu 't '(#$ . 1027) :type 'boolean :group 'tpu)
#@109 Non-nil if Tpu-Cursor-Free mode is enabled.
Use the command `tpu-cursor-free-mode' to change this variable.
(defvar tpu-cursor-free-mode nil (#$ . 1320))
(make-variable-buffer-local 'tpu-cursor-free-mode)
#@65 Minor mode to allow the cursor to move freely about the screen.
(defalias 'tpu-cursor-free-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2040�\313 \210\314\315\n\203:�\316\202;�\317\"\210\320 \203[�\303 \203N�\303 \232\203[�\310\321\n\203X�\322\202Y�\323\"\210)\324 \210\n\207" [#1=#:last-message arg tpu-cursor-free-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil tpu-trim-line-ends run-hooks tpu-cursor-free-mode-hook tpu-cursor-free-mode-on-hook tpu-cursor-free-mode-off-hook called-interactively-p "Tpu-Cursor-Free mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1531) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\210\305\306\307\"\207" [add-minor-mode tpu-cursor-free-mode nil boundp tpu-cursor-free-mode-map add-hook picture-mode-hook tpu-set-cursor-free] 5)
#@63 Eliminate whitespace at ends of lines, if the cursor is free.
(defalias 'tpu-trim-line-ends-if-needed #[nil "\301 \205�\205�\302 \207" [tpu-cursor-free-mode buffer-modified-p tpu-trim-line-ends] 1 (#$ . 2500)])
(add-hook 'before-save-hook 'tpu-trim-line-ends-if-needed)
#@45 Enforce scroll margin at the top of screen.
(defalias 'tpu-top-check #[(beg lines) "\304 _\305\245\n	W\203�\306\n!\202�\nZ	W\205�\306	!)\207" [tpu-top-scroll-margin margin beg lines window-height 100 recenter] 2 (#$ . 2779)])
#@48 Enforce scroll margin at the bottom of screen.
(defalias 'tpu-bottom-check #[(beg lines) "\306 \211	_\307\245T\310\n\311#\fV\203�\312\f!\202(�\f
\\V\205(�\312\n[!+\207" [height tpu-bottom-scroll-margin margin difference beg lines window-height 100 - 1 recenter] 5 (#$ . 3017)])
#@54 Move right ARG characters (left if ARG is negative).
(defalias 'tpu-forward-char #[(num) "\203�\302	!\207	u\207" [tpu-cursor-free-mode num picture-forward-column] 2 (#$ . 3308) "p"])
#@54 Move left ARG characters (right if ARG is negative).
(defalias 'tpu-backward-char #[(num) "\204�	[u\207\n\203�\303	!\207n\203�\304u\210\305 \210\303	S!\207\303	!\207" [tpu-cursor-free-mode num tpu-backward-char-like-tpu picture-backward-column -1 picture-end-of-line] 2 (#$ . 3499) "p"])
#@62 Move to next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-next-line #[(num) "\304 	\203�m\204�\305\n!\210\202�\306\n!\210\307\n\"\210\310\211)\207" [beg tpu-cursor-free-mode num this-command tpu-current-line picture-move-down line-move tpu-bottom-check next-line] 3 (#$ . 3797) "p"])
#@66 Move to previous line.
Prefix argument serves as a repeat count.
(defalias 'tpu-previous-line #[(num) "\304 	\203�\305\n!\210\202�\306\n[!\210\307\n\"\210\310\211)\207" [beg tpu-cursor-free-mode num this-command tpu-current-line picture-move-up line-move tpu-top-check previous-line] 3 (#$ . 4111) "p"])
#@136 Move to beginning of line; if at beginning, move to beginning of next line.
Accepts a prefix argument for the number of lines to move.
(defalias 'tpu-next-beginning-of-line #[(num) "\302 \303u\210\304\305	Z!\210\306	\")\207" [beg num tpu-current-line -1 forward-visible-line 1 tpu-top-check] 3 (#$ . 4427) "p"])
#@118 Move to end of line; if at end, move to end of next line.
Accepts a prefix argument for the number of lines to move.
(defalias 'tpu-next-end-of-line #[(num) "\303 	\203%�`\304\nW\203�\ny\210\305 \210`X\203!�\306y\210\305 \210)\202+�\306u\210\n\210\307\n\")\207" [beg tpu-cursor-free-mode num tpu-current-line 1 picture-end-of-line nil tpu-bottom-check] 3 (#$ . 4748) "p"])
#@77 Move EOL upward.
Accepts a prefix argument for the number of lines to move.
(defalias 'tpu-previous-end-of-line #[(num) "\303 	\203�\304\305\nZ!\210\202�\305\nZ\210\306\n\")\207" [beg tpu-cursor-free-mode num tpu-current-line picture-end-of-line 1 tpu-top-check] 3 (#$ . 5133) "p"])
#@36 Move point to end of current line.
(defalias 'tpu-current-end-of-line #[nil "`	\203\f�\302 \210\202�\303\210`U\205�\304\305!)\207" [beg tpu-cursor-free-mode picture-end-of-line nil message "You are already at the end of a line."] 2 (#$ . 5427) nil])
#@75 Move to beginning of next line.
Prefix argument serves as a repeat count.
(defalias 'tpu-forward-line #[(num) "\302 	y\210\303	\")\207" [beg num tpu-current-line tpu-bottom-check] 3 (#$ . 5688) "p"])
#@77 Move to beginning of previous line.
Prefix argument serves as repeat count.
(defalias 'tpu-backward-line #[(num) "\302 n\204�\303	Y\204�	S	[y\210\304	\")\207" [beg num tpu-current-line 0 tpu-top-check] 3 (#$ . 5896) "p"])
#@102 Move to the next paragraph in the current direction.
A repeat count means move that many paragraphs.
(defalias 'tpu-paragraph #[(num) "\306\307 \310 \311U\203�\312\202�
\311U\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\n\320Zy\210`)\203\227�\321!\210`V\203\211�\212\ny)\211\311U\203\200�\322!\202\251�\322Z!\202\251�`V\205\251�\322!\202\251�\323!\210`W\205\251�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 tpu-next-paragraph recenter tpu-previous-paragraph bottom-percent top-margin bottom-up-margin bottom-margin top bottom far tpu-advance num] 6 (#$ . 6130) "p"])
#@92 Move to the next page in the current direction.
A repeat count means move that many pages.
(defalias 'tpu-page #[(num) "\306\307 \310 \311U\203�\312\202�
\311U\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\n\320Zy\210`)\203\227�\321!\210`V\203\211�\212\ny)\211\311U\203\200�\322!\202\251�\322Z!\202\251�`V\205\251�\322!\202\251�\323!\210`W\205\251�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 forward-page recenter backward-page bottom-percent top-margin bottom-up-margin bottom-margin top bottom far tpu-advance num] 6 (#$ . 6925) "p"])
#@94 Scroll the display down to the next section.
A repeat count means scroll that many sections.
(defalias 'tpu-scroll-window-down #[(num) "\305 \306 S\n	_\307\245_\310\f[!\210\311\f\"+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move tpu-top-check] 3 (#$ . 7690) "p"])
#@92 Scroll the display up to the next section.
A repeat count means scroll that many sections.
(defalias 'tpu-scroll-window-up #[(num) "\305 \306 S\n	_\307\245_\310\f!\210\311\f\"+\207" [beg height num tpu-percent-scroll lines tpu-current-line window-height 100 line-move tpu-bottom-check] 3 (#$ . 8009) "p"])
#@44 Search for a string or regular expression.
(defalias 'tpu-search-internal #[(pat &optional quiet) "\306\307 \310 \311U\203�\312\202�
\311U\203�\313\202�
\n\f_\314\245\n_\314\245T	\315\n\316#]\212\317!\210`)\212\317!\210`)\212b\210\n\320Zy\210`)\321\"\210\203\231�`V\203\213�\212\ny)\211\311U\203\202�\322!\202\246�\322Z!\202\246�`V\205\246�\322!\202\246�`W\205\246�\322	^!.\207" [left beg height tpu-top-scroll-margin top-percent tpu-bottom-scroll-margin nil tpu-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 tpu-search-internal-core recenter bottom-percent top-margin bottom-up-margin bottom-margin top bottom far pat quiet tpu-searching-forward] 6 (#$ . 8326)])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\300\310\311\303\304$\207" [ad-add-advice newline (tpu-respect-bottom-scroll-margin nil nil (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line)) (num (prefix-numeric-value (ad-get-arg 0)))) ad-do-it (tpu-bottom-check beg num)))) around nil ad-activate newline-and-indent (tpu-respect-bottom-scroll-margin nil t (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line))) ad-do-it (tpu-bottom-check beg 1)))) do-auto-fill (tpu-respect-bottom-scroll-margin nil t (advice lambda nil "Respect `tpu-bottom-scroll-margin'." (let ((beg (tpu-current-line))) ad-do-it (tpu-bottom-check beg 1))))] 5)
#@21 Set scroll margins.
(defalias 'tpu-set-scroll-margins #[(top bottom) "\306\230\204\"�\307\310O\311\230\203�\312!\202!�\312!\313_\314 \\S\314 \245\n\306\230\204D�\n\307\310O\311\230\2037�\312\n!\202C�\312\n!\313_\314 \\S\314 \245\315\310\211\203`�
@\316\f\317\320#\210\321\f!\210
A\211\204L�*t\205j�\322\323	#\207" [top tpu-top-scroll-margin bottom tpu-bottom-scroll-margin f --dolist-tail-- "" -1 nil "%" string-to-number 100 window-height (newline newline-and-indent do-auto-fill) ad-enable-advice around tpu-respect-bottom-scroll-margin ad-activate message "Scroll margins set.  Top = %s%%, Bottom = %s%%"] 5 (#$ . 9807) "sEnter top scroll margin (N lines or N%% or RETURN for current value): \nsEnter bottom scroll margin (N lines or N%% or RETURN for current value): "])
#@51 Allow the cursor to move freely about the screen.
(defalias 'tpu-set-cursor-free #[nil "\300\301!\210\302\303!\207" [tpu-cursor-free-mode 1 message "The cursor will now move freely about the screen."] 2 (#$ . 10600) nil])
#@47 Constrain the cursor to the flow of the text.
(defalias 'tpu-set-cursor-bound #[nil "\300\301!\210\302\303!\207" [tpu-cursor-free-mode -1 message "The cursor is now bound to the flow of your text."] 2 (#$ . 10828) nil])

${this.title}

Code Editor : tpu-extras.elc