Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
emulation /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : edt.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:57 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emulation/edt.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 "`edt.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require ehelp picture custom-declare-group edt nil "Emacs emulating EDT." :prefix "edt-" :group emulations] 8) #@31 EDT Emulation version number. (defconst edt-version "4.0" (#$ . 797)) #@380 *Emacs MUST be restarted for a change in value to take effect! Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT Emulation. If set to nil (the default), the `page-delimiter' variable is set to "\f" when edt-emulation-on is first invoked. This setting replicates EDT's page delimiter behavior. The original value is restored when edt-emulation-off is called. (custom-declare-variable 'edt-keep-current-page-delimiter 'nil '(#$ . -874) :type 'boolean :group 'edt) #@296 *Emacs MUST be restarted for a change in value to take effect! Non-nil causes the control key bindings to be replaced with EDT bindings. If set to nil (the default), EDT control key bindings are not used and the current Emacs control key bindings are retained for use within the EDT emulation. (custom-declare-variable 'edt-use-EDT-control-key-bindings 'nil '(#$ . -1364) :type 'boolean :group 'edt) #@951 *Specifies the list of EDT word entity characters. The default list, (?\t), contains just the TAB character, which emulates EDT. Characters are specified in the list using their decimal ASCII values. A question mark, followed by the actual character, can be used to indicate the numerical value of the character, instead of the actual decimal value. So, ?A means the numerical value for the letter A, ?/ means the numerical value for /, etc. Several unprintable and special characters have special representations, which you can also use: ?\b specifies BS, C-h ?\t specifies TAB, C-i ?\n specifies LFD, C-j ?\v specifies VTAB, C-k ?\f specifies FF, C-l ?\r specifies CR, C-m ?\e specifies ESC, C-[ ?\\ specifies \ In EDT Emulation movement-by-word commands, each character in the list will be treated as if it were a separate word. (custom-declare-variable 'edt-word-entities ''(9) '(#$ . -1772) :type '(repeat integer) :group 'edt) #@170 *Scroll margin at the top of the screen. Interpreted as a percent of the current window size with a default setting of 10%. If set to 0, top scroll margin is disabled. (custom-declare-variable 'edt-top-scroll-margin '10 '(#$ . -2830) :type 'integer :group 'edt) #@176 *Scroll margin at the bottom of the screen. Interpreted as a percent of the current window size with a default setting of 15%. If set to 0, bottom scroll margin is disabled. (custom-declare-variable 'edt-bottom-scroll-margin '15 '(#$ . -3100) :type 'integer :group 'edt) #@55 Last text deleted by the EDT emulation DEL L command. (defvar edt-last-deleted-lines "" (#$ . 3378)) #@55 Last text deleted by the EDT emulation DEL W command. (defvar edt-last-deleted-words "" (#$ . 3485)) #@55 Last text deleted by the EDT emulation DEL C command. (defvar edt-last-deleted-chars "" (#$ . 3592)) #@52 Last text found by the EDT emulation FIND command. (defvar edt-find-last-text "" (#$ . 3699)) #@52 Used internally by the EDT emulation SUBS command. (defvar edt-match-beginning-mark (make-marker) (#$ . 3799)) #@52 Used internally by the EDT emulation SUBS command. (defvar edt-match-end-mark (make-marker) (#$ . 3916)) #@71 Key definition replaced with `edt-define-key' or `edt-learn' command. (defvar edt-last-replaced-key-definition nil (#$ . 4027)) #@50 String indicating current direction of movement. (defvar edt-direction-string "" (#$ . 4161)) #@38 Non-nil means select mode is active. (defvar edt-select-mode nil (#$ . 4261)) #@131 Text displayed in mode line to indicate the state of EDT select mode. When select mode is inactive, it is set to an empty string. (defvar edt-select-mode-current "" (#$ . 4346)) #@54 Used in mode line to indicate select mode is active. (defconst edt-select-mode-string " Select" (#$ . 4530)) #@61 Direction string in mode line to indicate forward movement. (defconst edt-forward-string " ADVANCE" (#$ . 4645)) #@62 Direction string in mode line to indicate backward movement. (defconst edt-backward-string " BACKUP" (#$ . 4764)) #@122 Non-nil indicates that default EDT emulation key bindings are active. nil means user-defined custom bindings are active. (defvar edt-default-map-active nil (#$ . 4886)) #@142 Non-nil indicates that user custom EDT key bindings are configured. This means that an edt-user.el file was found in the user's `load-path'. (defvar edt-user-map-configured nil (#$ . 5062)) #@45 Specifies the terminal type, if applicable. (defvar edt-term nil (#$ . 5258)) #@66 Indicates Emacs variant: GNU Emacs or XEmacs (aka Lucid Emacs). (defconst edt-emacs-variant "gnu" (#$ . 5342)) #@69 Indicates window system (in GNU Emacs) or console type (in XEmacs). (defconst edt-window-system window-system (#$ . 5460)) #@48 Indicates X server vendor name, if applicable. (defconst edt-xserver (byte-code "\301=\205\f \302\303\304\305 #\207" [edt-window-system x replace-regexp-in-string "[ /]" "-" x-server-vendor] 4) (#$ . 5589)) #@77 User's custom keypad and function keys mappings to emulate LK-201 keyboard. (defvar edt-keys-file nil (#$ . 5803)) #@33 Last word that the user copied. (defvar edt-last-copied-word nil (#$ . 5924)) #@104 Move forward to just after next page delimiter. Argument NUM is the number of page delimiters to move. (defalias 'edt-page-forward #[(num) "\301!\210m\203\f \302\303!\207\304!\210m\203 \305 \207\306 \207" [num edt-check-prefix error "End of buffer" forward-page edt-line-to-bottom-of-window edt-line-to-top-of-window] 2 (#$ . 6009) "p"]) #@109 Move backward to just after previous page delimiter. Argument NUM is the number of page delimiters to move. (defalias 'edt-page-backward #[(num) "\301!\210o\203\f \302\303!\207\304!\210\305 \210\306\207" [num edt-check-prefix error "Beginning of buffer" backward-page edt-line-to-top-of-window nil] 2 (#$ . 6357) "p"]) #@106 Move in current direction to next page delimiter. Argument NUM is the number of page delimiters to move. (defalias 'edt-page #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-page-forward edt-page-backward] 2 (#$ . 6685) "p"]) #@111 Move cursor forward two-thirds of a window's number of lines. Argument NUM is the number of sections to move. (defalias 'edt-sect-forward #[(num) "\301!\210\302\303 S\304\245\305__!\207" [num edt-check-prefix edt-line-forward window-height 3 2] 3 (#$ . 6964) "p"]) #@94 Move cursor backward two-thirds of a window. Argument NUM is the number of sections to move. (defalias 'edt-sect-backward #[(num) "\301!\210\302\303 S\304\245\305__!\207" [num edt-check-prefix edt-line-backward window-height 3 2] 3 (#$ . 7237) "p"]) #@90 Move in current direction a full window. Argument NUM is the number of sections to move. (defalias 'edt-sect #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-sect-forward edt-sect-backward] 2 (#$ . 7495) "p"]) #@96 Move backward to next beginning of line mark. Argument NUM is the number of BOL marks to move. (defalias 'edt-beginning-of-line #[(num) "\302!\210\303 n\203 [y\210\202 S\211[y\210\304 \"\210)\305\207" [num beg edt-check-prefix edt-current-line edt-top-check nil] 4 (#$ . 7757) "p"]) #@89 Move forward to next end of line mark. Argument NUM is the number of EOL marks to move. (defalias 'edt-end-of-line-forward #[(num) "\302!\210\303 \304u\210\210\305 \"\210)\304\207" [num beg edt-check-prefix edt-current-line nil edt-bottom-check] 3 (#$ . 8054) "p"]) #@90 Move backward to next end of line mark. Argument NUM is the number of EOL marks to move. (defalias 'edt-end-of-line-backward #[(num) "\302!\210\303 S\210\304 \"\210)\305\207" [num beg edt-check-prefix edt-current-line edt-top-check nil] 3 (#$ . 8331) "p"]) #@102 Move in current direction to next end of line mark. Argument NUM is the number of EOL marks to move. (defalias 'edt-end-of-line #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-end-of-line-forward edt-end-of-line-backward] 2 (#$ . 8600) "p"]) #@47 Move forward to first character of next word. (defalias 'edt-one-word-forward #[nil "m\203 \301\302!\210l\203 \303u\210\202T g>\203 \303u\210\2029 l\2049 m\2049 gz\304=\2049 g>\2049 \303u\210\202 l\204T m\204T gz\304=\203T g>\204T \303u\210\2029 \303\207" [edt-word-entities error "End of buffer" nil 32] 2 (#$ . 8895) nil]) #@52 Move backward to first character of previous word. (defalias 'edt-one-word-backward #[nil "o\203 \301\302!\210n\203 \303u\210\202Q \303u\210n\2040 o\2040 gz\304=\2030 g>\2040 \303u\210\202 g>\204Q n\204Q o\204Q hz\304=\204Q h>\204Q \303u\210\2026 \305\207" [edt-word-entities error "Beginning of buffer" -1 32 nil] 2 (#$ . 9233) nil]) #@92 Move forward to first character of next word. Argument NUM is the number of words to move. (defalias 'edt-word-forward #[(num) "\301!\210\302V\205 \303 \210S\211\202 \207" [num edt-check-prefix 0 edt-one-word-forward] 3 (#$ . 9580) "p"]) #@97 Move backward to first character of previous word. Argument NUM is the number of words to move. (defalias 'edt-word-backward #[(num) "\301!\210\302V\205 \303 \210S\211\202 \207" [num edt-check-prefix 0 edt-one-word-backward] 3 (#$ . 9830) "p"]) #@105 Move in current direction to first character of next word. Argument NUM is the number of words to move. (defalias 'edt-word #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-word-forward edt-word-backward] 2 (#$ . 10088) "p"]) #@96 Move in current direction to next character. Argument NUM is the number of characters to move. (defalias 'edt-character #[(num) "\303!\210 \n\232\203 u\210\202 [u\210\304\207" [num edt-direction-string edt-forward-string edt-check-prefix nil] 2 (#$ . 10366) "p"]) #@96 Move backward to next beginning of line mark. Argument NUM is the number of BOL marks to move. (defalias 'edt-line-backward #[(num) "\301!\207" [num edt-beginning-of-line] 2 (#$ . 10641) "p"]) #@95 Move forward to next beginning of line mark. Argument NUM is the number of BOL marks to move. (defalias 'edt-line-forward #[(num) "\302!\210\303 y\210\304 \"\210)\305\207" [num beg edt-check-prefix edt-current-line edt-bottom-check nil] 3 (#$ . 10841) "p"]) #@108 Move in current direction to next beginning of line mark. Argument NUM is the number of BOL marks to move. (defalias 'edt-line #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-line-forward edt-line-backward] 2 (#$ . 11110) "p"]) #@73 Move cursor down one line. Argument NUM is the number of lines to move. (defalias 'edt-next-line #[(num) "\302!\210\303 \304!\210\305 \"\210)\306\207" [num beg edt-check-prefix edt-current-line next-line edt-bottom-check nil] 3 (#$ . 11391) "p"]) #@71 Move cursor up one line. Argument NUM is the number of lines to move. (defalias 'edt-previous-line #[(num) "\302!\210\303 \304!\210\305 \"\210)\306\207" [num beg edt-check-prefix edt-current-line previous-line edt-top-check nil] 3 (#$ . 11648) "p"]) #@41 Move cursor to the beginning of buffer. (defalias 'edt-top #[nil "eb\210\300\207" [nil] 1 (#$ . 11908) nil]) #@35 Move cursor to the end of buffer. (defalias 'edt-bottom #[nil "db\210\300 \207" [edt-line-to-bottom-of-window] 1 (#$ . 12023) nil]) #@141 Find first occurrence of a string in forward direction and save it. Optional argument FIND is t is this function is called from `edt-find'. (defalias 'edt-find-forward #[(&optional find) "\204 \306\307!\310\311 \312 \313U\203 \314\202 \313U\203( \315\202* \f_\316\245 \f_\316\245T \317\f\320#] \212\321!\210`) \212\321 !\210`) \212 b\210\f\322Zy\210`) \323 !\203\246 \324 !\210\325 \210` V\203\232 \212\fy)\211\313U\203\220 \326!\210\202\246 \326\nZ!\210\202\246 ` V\203\246 \326 !\210. \310\207" [find edt-find-last-text left beg height edt-top-scroll-margin read-string "Search forward: " nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 search-forward search-backward edt-set-match recenter top-percent edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 6 (#$ . 12162) nil]) #@146 Find first occurrence of a string in the backward direction and save it. Optional argument FIND is t if this function is called from `edt-find'. (defalias 'edt-find-backward #[(&optional find) "\204 \306\307!\310\311 \312 \313U\203 \314\202 \313U\203( \315\202* \f_\316\245 \f_\316\245T \317\f\320#] \212\321!\210`) \212\321!\210`) \212 b\210\f\322Zy\210`) \323 !\203r \324 \210` W\203\200 \325 ^!\210. \310\207" [find edt-find-last-text left beg height edt-top-scroll-margin read-string "Search backward: " nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 search-backward edt-set-match recenter top-percent edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 5 (#$ . 13061) nil]) #@67 Find first occurrence of string in current direction and save it. (defalias 'edt-find #[nil "\303\304! \n\232\203 \305\306!\207\307\306!\207" [edt-find-last-text edt-direction-string edt-forward-string read-string "Search: " edt-find-forward t edt-find-backward] 2 (#$ . 13857) nil]) #@56 Find next occurrence of a string in forward direction. (defalias 'edt-find-next-forward #[nil "\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`) \212 b\210\n\320Zy\210`) \316u\210\321 \306\322#\203\244 \323 !\210\324 \210` V\203\225 \212\ny)\211\311U\203\213 \325!\210\202\255 \325Z!\210\202\255 ` V\203\255 \325 !\210\202\255 \326u\210\327\330 \"\210. \306\207" [left beg height edt-top-scroll-margin top-percent edt-bottom-scroll-margin nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 search-forward t search-backward edt-set-match recenter -1 error "Search failed: \"%s\"" bottom-percent top-margin bottom-up-margin bottom-margin top bottom far edt-find-last-text] 6 (#$ . 14149) nil]) #@57 Find next occurrence of a string in backward direction. (defalias 'edt-find-next-backward #[nil "\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`) \212 b\210\n\320Zy\210`) \321 \306\322#\204o \323\324 \"\210\202\200 \325 \210`W\203\200 \326 ^!\210. \306\207" [left beg height edt-top-scroll-margin top-percent edt-bottom-scroll-margin nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 search-backward t error "Search failed: \"%s\"" edt-set-match recenter bottom-percent top-margin bottom-up-margin bottom-margin top bottom far edt-find-last-text] 5 (#$ . 14985) nil]) #@56 Find next occurrence of a string in current direction. (defalias 'edt-find-next #[nil " \232\203 \302 \207\303 \207" [edt-direction-string edt-forward-string edt-find-next-forward edt-find-next-backward] 2 (#$ . 15693) nil]) #@48 Append this kill region to last killed region. (defalias 'edt-append #[nil "\300 \210\301 \210\302\303 `\"\210\304\305!\207" [edt-check-selection append-next-kill kill-region mark message "Selected text APPENDED to kill ring"] 3 (#$ . 15926) "*"]) #@109 Delete from cursor up to and including the end of line mark. Argument NUM is the number of lines to delete. (defalias 'edt-delete-line #[(num) "\303!\210`y\210h\304=\204 \305c\210 `{ `|)\207" [num beg edt-last-deleted-lines edt-check-prefix 10 "\n"] 2 (#$ . 16181) "*p"]) #@109 Delete from cursor up to but excluding the end of line mark. Argument NUM is the number of lines to delete. (defalias 'edt-delete-to-end-of-line #[(num) "\303!\210`\304u\210\210 `{ `|)\207" [num beg edt-last-deleted-lines edt-check-prefix 1] 2 (#$ . 16465) "*p"]) #@123 Turn EDT select mode off if ARG is nil; otherwise, turn EDT select mode on. In select mode, selected text is highlighted. (defalias 'edt-select-mode #[(arg) "\203 \303\301!\210\304\305 \202 \306\301!\210\307 \207" [arg edt-select-mode rect-start-point make-local-variable edt-select-mode-current window-point kill-local-variable force-mode-line-update] 2 (#$ . 16741)]) #@46 Set mark at cursor and start text selection. (defalias 'edt-select #[nil "\300\301!\207" [set-mark-command nil] 2 (#$ . 17122) nil]) #@24 Cancel text selection. (defalias 'edt-reset #[nil "\205) \302=\204 \242\303=\203 A\204 \304\211\207\242\303=\203$ A\304\305\306!\207" [transient-mark-mode mark-active lambda only nil run-hooks deactivate-mark-hook] 2 (#$ . 17261) nil]) #@48 Deletes selected text but copies to kill ring. (defalias 'edt-cut #[nil "\300 \210\301\302 `\"\210\303\304!\207" [edt-check-selection kill-region mark message "Selected text CUT to kill ring"] 3 (#$ . 17515) "*"]) #@89 Delete from cursor to beginning of line. Argument NUM is the number of lines to delete. (defalias 'edt-delete-to-beginning-of-line #[(num) "\303!\210`\304!\210` { `|)\207" [num beg edt-last-deleted-lines edt-check-prefix edt-beginning-of-line] 2 (#$ . 17735) "*p"]) #@117 Delete from cursor up to but excluding first character of next word. Argument NUM is the number of words to delete. (defalias 'edt-delete-word #[(num) "\303!\210`\304!\210 `{ `|)\207" [num beg edt-last-deleted-words edt-check-prefix edt-word-forward] 2 (#$ . 18012) "*p"]) #@89 Delete from cursor to beginning of word. Argument NUM is the number of words to delete. (defalias 'edt-delete-to-beginning-of-word #[(num) "\303!\210`\304!\210` { `|)\207" [num beg edt-last-deleted-words edt-check-prefix edt-word-backward] 2 (#$ . 18295) "*p"]) #@84 Delete character under cursor. Argument NUM is the number of characters to delete. (defalias 'edt-delete-character #[(num) "\302!\210`d`\\^{`d`\\^|\207" [num edt-last-deleted-chars edt-check-prefix] 4 (#$ . 18567) "*p"]) #@90 Delete character in front of cursor. Argument NUM is the number of characters to delete. (defalias 'edt-delete-previous-character #[(num) "\302!\210e`Z]`{e`Z]`|\207" [num edt-last-deleted-chars edt-check-prefix] 3 (#$ . 18798) "*p"]) #@36 Undelete previous deleted line(s). (defalias 'edt-undelete-line #[nil "\301\302!\210c\210\303\302!\207" [edt-last-deleted-lines point-to-register 1 register-to-point] 2 (#$ . 19042) "*"]) #@36 Undelete previous deleted word(s). (defalias 'edt-undelete-word #[nil "\301\302!\210c\210\303\302!\207" [edt-last-deleted-words point-to-register 1 register-to-point] 2 (#$ . 19237) "*"]) #@41 Undelete previous deleted character(s). (defalias 'edt-undelete-character #[nil "\301\302!\210c\210\303\302!\207" [edt-last-deleted-chars point-to-register 1 register-to-point] 2 (#$ . 19432) "*"]) #@53 Replace marked section with last CUT (killed) text. (defalias 'edt-replace #[nil "\302 \203\n \303@!\207\304 \210`\304 \210 `|\210)\305 \207" [kill-ring-yank-pointer beg edt-check-match replace-match exchange-point-and-mark yank] 2 (#$ . 19637) "*"]) #@331 Replace the selected region with the contents of the CUT buffer and. Repeat the most recent FIND command. (The Emacs kill ring is used as the CUT buffer.) Argument NUM is the repeat count. A positive value indicates the of times to repeat the substitution. A negative argument means replace all occurrences of the search text. (defalias 'edt-substitute #[(num) "\204 \302 \203' \303U?\205& \204 \302 \205* \304 \210\305 \210 S\211\202\n \207\306\307!\207" [edt-select-mode num edt-check-match 0 edt-replace edt-find-next error "No selection active"] 3 (#$ . 19897) "p"]) #@41 Set markers at match beginning and end. (defalias 'edt-set-match #[nil "\302\303\224T!\302\303\225!\211\207" [edt-match-beginning-mark edt-match-end-mark copy-marker 0] 2 (#$ . 20483)]) #@40 Unset match beginning and end markers. (defalias 'edt-unset-match #[nil "\302\211\223\210 \302\211\223\207" [edt-match-beginning-mark edt-match-end-mark nil] 3 (#$ . 20677)]) #@50 Return the location of the last match beginning. (defalias 'edt-match-beginning #[nil "\301!S\207" [edt-match-beginning-mark marker-position] 2 (#$ . 20859)]) #@44 Return the location of the last match end. (defalias 'edt-match-end #[nil "\301!\207" [edt-match-end-mark marker-position] 2 (#$ . 21025)]) #@110 Return t if point is between edt-match markers. Otherwise sets the edt-match markers to nil and returns nil. (defalias 'edt-check-match #[nil "\302!p\232\203. `\303!SY\203. `\303 !W\204, \303!S\303 !U\203. \303 !`U\203. \304\207\305 \210\306\207" [edt-match-beginning-mark edt-match-end-mark marker-buffer marker-position t edt-unset-match nil] 3 (#$ . 21173)]) #@39 Show the values of the match markers. (defalias 'edt-show-match-markers #[nil "\303!\205 \304!\305\306 \205 S\304\n!\307\n!`p&)\207" [edt-match-beginning-mark beg edt-match-end-mark markerp marker-position message "(%s, %s) in %s -- current %s in %s" marker-buffer] 7 (#$ . 21544) nil]) #@83 Set movement direction forward. Also, execute command specified if in Minibuffer. (defalias 'edt-advance #[nil "\302 \210\303 \304\303 G\305^O\306\230\203 \307 \210\310\207" [edt-forward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer nil] 4 (#$ . 21844) nil]) #@84 Set movement direction backward. Also, execute command specified if in Minibuffer. (defalias 'edt-backup #[nil "\302 \210\303 \304\303 G\305^O\306\230\203 \307 \210\310\207" [edt-backward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer nil] 4 (#$ . 22161) nil]) #@609 Change the case of specified characters. If text selection IS active, then characters between the cursor and mark are changed. If text selection is NOT active, there are two cases. First, if the current direction is ADVANCE, then the prefix number of character(s) under and following cursor are changed. Second, if the current direction is BACKUP, then the prefix number of character(s) before the cursor are changed. Accepts a positive prefix for the number of characters to change, but the prefix is ignored if text selection is active. Argument NUM is the numbers of consecutive characters to change. (defalias 'edt-change-case #[(num) "\306!\210 \2035 \307 `]``\307 ^b\210` =\2041 \310gX\203% \311\202& \312``T\"\210\313u\210\202 \nb*\207\f \230\203? [u\210\314V\205_ \310gX\203O \311\202P \312``T\"\210\313u\210S\211\202@ \207" [num edt-select-mode point-save end edt-direction-string edt-backward-string edt-check-prefix mark 97 upcase-region downcase-region 1 0] 4 (#$ . 22480) "*p"]) #@210 Assign an interactively-callable function to a specified key sequence. The current key definition is saved in `edt-last-replaced-key-definition'. Use `edt-restore-key' to restore last replaced key definition. (defalias 'edt-define-key #[nil "\303\211\304\305!\211\306\230\203 \307\310!\2020 \311\312!\211\313\230\203$ \307\310!\2020 \314\315 \"\316\315 #*\207" [edt-key-definition edt-function edt-last-replaced-key-definition nil read-key-sequence "Press the key to be defined: " " " message "Key not defined" read-command "Enter command name: " "" lookup-key current-global-map define-key] 5 (#$ . 23491) nil]) #@100 Insert form feed character at cursor position. Argument NUM is the number of form feeds to insert. (defalias 'edt-form-feed-insert #[(num) "\301!\210\302V\205 \303c\210S\211\202 \207" [num edt-check-prefix 0 12] 3 (#$ . 24120) "*p"]) #@88 Insert tab character at cursor position. Argument NUM is the number of tabs to insert. (defalias 'edt-tab-insert #[(num) "\301!\210\302V\205 \303c\210S\211\202 \207" [num edt-check-prefix 0 9] 3 (#$ . 24366) "*p"]) #@84 Indicate error if prefix is not positive. Argument NUM is the prefix value tested. (defalias 'edt-check-prefix #[(num) "\301X\205 \302\303!\207" [num 0 error "Prefix must be positive"] 2 (#$ . 24593)]) #@48 Indicate error if EDT selection is not active. (defalias 'edt-check-selection #[nil "?\205 \301\302!\207" [edt-select-mode error "Selection NOT active"] 2 (#$ . 24803)]) #@182 Enforce scroll margin at the top of screen. Argument BEG is the starting line number before cursor was moved. Argument LINES is the number of lines the cursor moved toward the top. (defalias 'edt-top-check #[(beg lines) "\304 _\305\245\n W\203 \306\n!\202 \n Z W\205 \306 !)\207" [edt-top-scroll-margin margin beg lines window-height 100 recenter] 2 (#$ . 24982)]) #@188 Enforce scroll margin at the bottom of screen. Argument BEG is the starting line number before cursor was moved. Argument LINES is the number of lines the cursor moved toward the bottom. (defalias 'edt-bottom-check #[(beg lines) "\306 \211 _\307\245T\310\n\311#\f V\203 \312\f!\202( \f \\ V\205( \312\n[!+\207" [height edt-bottom-scroll-margin margin difference beg lines window-height 100 - 1 recenter] 5 (#$ . 25359)]) #@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 'edt-current-line #[nil "\300\301\302 `\"i\303U\203 \304\202 \303\305#\207" [+ count-lines window-start 0 1 -1] 4 (#$ . 25792)]) #@171 Set scroll margins. Argument TOP is the top margin in number of lines or percent of window. Argument BOTTOM is the bottom margin in number of lines or percent of window. (defalias 'edt-set-scroll-margins #[(top bottom) "\304\230\204# \305\306O\307\230\203 \310!\202# \310!\311_\312 \\S\312 \245\n\304\230\204F \n\305\306O\307\230\2039 \310\n!\202F \310\n!\311_\312 \\S\312 \245t\205O \313\314 #\207" [top edt-top-scroll-margin bottom edt-bottom-scroll-margin "" -1 nil "%" string-to-number 100 window-height message "Scroll margins set. Top = %s%%, Bottom = %s%%"] 4 (#$ . 26069) "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): "]) #@28 Toggle movement direction. (defalias 'edt-change-direction #[nil " \232\203 \302 \207\303 \207" [edt-direction-string edt-forward-string edt-backup edt-advance] 2 (#$ . 26818) nil]) #@45 Toggle to start (or cancel) text selection. (defalias 'edt-toggle-select #[nil "\203 \301 \207\302 \207" [edt-select-mode edt-reset edt-select] 1 (#$ . 27008) nil]) #@99 Move forward to start of next sentence. Argument NUM is the positive number of sentences to move. (defalias 'edt-sentence-forward #[(num) "\306!\210\307\310 \311 \f\312U\203 \313\202 \f \312U\203# \314\202% _\315\245 _\315\245T \n\316 \317#] \212\320!\210`) \212\320!\210`) \212 b\210 \321Zy\210`) m\203n \322\323!\210\202x \324!\210\317v\210\325 \210` V\203\234 \212 y)\211\312U\203\222 \326!\210\202\250 \326 Z!\210\202\250 ` V\203\250 \326!\210. \307\207" [num left beg height edt-top-scroll-margin top-percent edt-check-prefix nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 error "End of buffer" forward-sentence backward-sentence recenter edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 6 (#$ . 27181) "p"]) #@101 Move backward to next sentence beginning. Argument NUM is the positive number of sentences to move. (defalias 'edt-sentence-backward #[(num) "\306!\210\307\310 \311 \f\312U\203 \313\202 \f \312U\203# \314\202% _\315\245 _\315\245T \n\316 \317#] \212\320!\210`) \212\320!\210`) \212 b\210 \321Zy\210`) m\203n \322\323!\210\202r \324!\210`W\203\200 \325\n^!\210. \307\207" [num left beg height edt-top-scroll-margin top-percent edt-check-prefix nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 error "End of buffer" backward-sentence recenter edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 5 (#$ . 28017) "p"]) #@103 Move in current direction to next sentence. Argument NUM is the positive number of sentences to move. (defalias 'edt-sentence #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-sentence-forward edt-sentence-backward] 2 (#$ . 28743) "p"]) #@100 Move forward to beginning of paragraph. Argument NUM is the positive number of paragraphs to move. (defalias 'edt-paragraph-forward #[(num) "\306!\210\307\310 \311 \f\312U\203 \313\202 \f \312U\203# \314\202% _\315\245 _\315\245T \n\316 \317#] \212\320!\210`) \212\320!\210`) \212b\210 \321Zy\210`) \312V\203 \322T!\210\323 \210l\203x \317y\210S\211\202d ` V\203\243 \212 y)\211\312U\203\231 \324!\210\202\257 \324 Z!\210\202\257 `V\203\257 \324!\210. \307\207" [num left beg height edt-top-scroll-margin top-percent edt-check-prefix nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 forward-paragraph start-of-paragraph-text recenter edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 6 (#$ . 29032) "p"]) #@101 Move backward to beginning of paragraph. Argument NUM is the positive number of paragraphs to move. (defalias 'edt-paragraph-backward #[(num) "\306!\210\307\310 \311 \f\312U\203 \313\202 \f \312U\203# \314\202% _\315\245 _\315\245T \n\316 \317#] \212\320!\210`) \212\320!\210`) \212b\210 \321Zy\210`) \312V\203s \322 \210S\211\202d `W\203\201 \323\n^!\210. \307\207" [num left beg height edt-top-scroll-margin top-percent edt-check-prefix nil edt-current-line window-height 0 10 15 100 - 1 move-to-window-line 2 start-of-paragraph-text recenter edt-bottom-scroll-margin bottom-percent top-margin bottom-up-margin bottom-margin top bottom far] 6 (#$ . 29862) "p"]) #@105 Move in current direction to next paragraph. Argument NUM is the positive number of paragraphs to move. (defalias 'edt-paragraph #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-paragraph-forward edt-paragraph-backward] 2 (#$ . 30571) "p"]) #@99 Restore last replaced key definition. Definition is stored in `edt-last-replaced-key-definition'. (defalias 'edt-restore-key #[nil "\203# \302\303\304!\211\305\230\203 \306\307!\202! \310\311 #\210\306\312 \")\207\313\314!\207" [edt-last-replaced-key-definition edt-key-definition nil read-key-sequence "Press the key to be restored: " " " message "Key not restored" define-key current-global-map "Key definition for %s has been restored." error "No replaced key definition to restore!"] 5 (#$ . 30864) nil]) #@43 Move the cursor to the top of the window. (defalias 'edt-window-top #[nil "i\301\302!\210\303!\210)\304\207" [start-column move-to-window-line 0 move-to-column nil] 2 (#$ . 31385) nil]) #@46 Move the cursor to the bottom of the window. (defalias 'edt-window-bottom #[nil "i\301\302 \303Z!\210\304!\210)\305\207" [start-column move-to-window-line window-height 2 move-to-column nil] 3 (#$ . 31579) nil]) #@68 Move window forward one line leaving cursor at position in window. (defalias 'edt-scroll-window-forward-line #[nil "\300\301!\210\302\207" [scroll-up 1 nil] 2 (#$ . 31799) nil]) #@69 Move window backward one line leaving cursor at position in window. (defalias 'edt-scroll-window-backward-line #[nil "\300\301!\210\302\207" [scroll-down 1 nil] 2 (#$ . 31983) nil]) #@44 Move window one line in current direction. (defalias 'edt-scroll-line #[nil " \232\203 \302 \207\303 \207" [edt-direction-string edt-forward-string edt-scroll-window-forward-line edt-scroll-window-backward-line] 2 (#$ . 32171) nil]) #@109 Scroll forward one window in buffer, less one line. Argument NUM is the positive number of windows to move. (defalias 'edt-scroll-window-forward #[(num) "\301!\210\302\303 _\304Z!\210\305\303 S\304\245!\207" [num edt-check-prefix scroll-up window-height 2 edt-line-forward] 3 (#$ . 32413) "p"]) #@110 Scroll backward one window in buffer, less one line. Argument NUM is the positive number of windows to move. (defalias 'edt-scroll-window-backward #[(num) "\301!\210\302\303 _\304Z!\210\305\303 S\304\245!\207" [num edt-check-prefix scroll-down window-height 2 edt-line-backward] 3 (#$ . 32717) "p"]) #@123 Scroll one window in buffer, less one line, in current direction. Argument NUM is the positive number of windows to move. (defalias 'edt-scroll-window #[(num) " \232\203\n \303\n!\207\304\n!\207" [edt-direction-string edt-forward-string num edt-scroll-window-forward edt-scroll-window-backward] 2 (#$ . 33026) "p"]) #@52 Move the current line to the bottom of the window. (defalias 'edt-line-to-bottom-of-window #[nil "\300\301!\210\302\207" [recenter -1 nil] 2 (#$ . 33349) nil]) #@49 Move the current line to the top of the window. (defalias 'edt-line-to-top-of-window #[nil "\300\301!\210\302\207" [recenter 0 nil] 2 (#$ . 33515) nil]) #@65 Move window so line with cursor is in the middle of the window. (defalias 'edt-line-to-middle-of-window #[nil "\300\301!\210\302\207" [recenter (4) nil] 2 (#$ . 33674) nil]) #@116 Move to specified percentage in buffer from top of buffer. Argument NUM is the percentage into the buffer to move. (defalias 'edt-goto-percentage #[(num) "\301V\204\f \302W\203 \303\304\"\210\202 d_\301\245b\210\305\207" [num 100 0 error "Percentage %d out of range 0 < percent < 100" nil] 3 (#$ . 33855) "NGoto-percentage: "]) #@21 Fill selected text. (defalias 'edt-fill-region #[nil "\300 \210\301`\302 \"\207" [edt-check-selection fill-region mark] 3 (#$ . 34195) "*"]) #@73 Fill region in text modes, indent region in programming language modes. (defalias 'edt-indent-or-fill-region #[nil "\301\230\203 \302`\303 \304#\207\305`\303 \"\207" [paragraph-start "$\\|\f" indent-region mark nil fill-region] 4 (#$ . 34342) "*"]) #@187 Mark the section in a manner consistent with the `major-mode'. Uses `mark-defun' for Emacs-Lisp and Lisp, and for Fortran, `c-mark-function' for C, and `mark-paragraph' for other modes. (defalias 'edt-mark-section-wisely #[nil "\203 \302 \207 \303=\204 \304=\204 \305=\203 \306 \210\307\310!\207 \311=\203- \312 \210\307\313!\207\314 \210\307\315!\207" [edt-select-mode major-mode edt-reset emacs-lisp-mode fortran-mode lisp-mode mark-defun message "Lisp defun selected" c-mode c-mark-function "C function selected" mark-paragraph "Paragraph selected"] 2 (#$ . 34600) nil]) #@57 Copy selected region to kill ring, but don't delete it! (defalias 'edt-copy #[nil "\300 \210\301\302 `\"\210\303 \210\304\305!\207" [edt-check-selection copy-region-as-kill mark edt-reset message "Selected text COPIED to kill ring"] 3 (#$ . 35187) nil]) #@144 Cuts (or copies) selected text to kill ring. Cuts selected text if `buffer-read-only' is nil. Copies selected text if `buffer-read-only' is t. (defalias 'edt-cut-or-copy #[nil "\203 \301 \207\302 \207" [buffer-read-only edt-copy edt-cut] 1 (#$ . 35448) nil]) #@63 Delete entire line regardless of cursor position in the line. (defalias 'edt-delete-entire-line #[nil "\300 \210\301\302!\207" [beginning-of-line edt-delete-line 1] 2 (#$ . 35715) "*"]) #@110 Duplicate the line of text containing the cursor. Argument NUM is the number of times to duplicate the line. (defalias 'edt-duplicate-line #[(num) "\303!\210i\304 \210\305 \210 \306V\203 \305 \210 S\211\202 \307!\210\310\n!*\207" [num count old-column edt-check-prefix edt-delete-entire-line edt-undelete-line 0 edt-line-forward move-to-column] 3 (#$ . 35908) "*p"]) #@71 Duplicate word (or rest of word) found directly above cursor, if any. (defalias 'edt-duplicate-word #[nil "`i\304y\210\305!\210 `\232\204: l\204: h\306\232\203$ iW\203$ \304u\210`\307 \210\n`{)\310y\210\305!\210 c\202J `\232\204C \310y\210\305!\210\311\312!*\207" [start-column start beg edt-last-copied-word -1 move-to-column 9 edt-one-word-forward nil error "Nothing to duplicate!"] 2 (#$ . 36289) "*"]) #@64 Displays message that key has not been assigned to a function. (defalias 'edt-key-not-assigned #[nil "\300\301!\207" [error "Key not assigned"] 2 (#$ . 36710) nil]) #@73 Toggle the capitalization of the current word and move forward to next. (defalias 'edt-toggle-capitalization-of-word #[nil "\300 \210\301 \210\302\303!\210\301 \210\300 \207" [edt-one-word-forward edt-one-word-backward edt-change-case 1] 2 (#$ . 36881) "*"]) #@50 Convert all tabs to spaces in the entire buffer. (defalias 'edt-eliminate-all-tabs #[nil "\300ed\"\210\301\302!\207" [untabify message "TABS converted to SPACES"] 3 (#$ . 37146) "*"]) #@27 Display the current time. (defalias 'edt-display-the-time #[nil "\300\301\302 \"\207" [message "%s" current-time-string] 3 (#$ . 37336) nil]) #@51 Learn a sequence of key strokes to bind to a key. (defalias 'edt-learn #[nil "\301=\203 \302 \207\303\304!\207" [defining-kbd-macro t edt-remember start-kbd-macro nil] 2 (#$ . 37484) nil]) #@68 Store the sequence of key strokes started by `edt-learn' to a key. (defalias 'edt-remember #[nil "\304=\203\n \305\306!\207\307\304!\210\304\310\311!\211\312\230\203 \313\314!\2027 \nT\315\316 \"\317\316 \320\321\322\323\n!P!!#)\207" [defining-kbd-macro edt-key-definition edt-learn-macro-count edt-last-replaced-key-definition nil error "Nothing to remember!" end-kbd-macro read-key-sequence "Enter key for binding: " " " message "Key sequence not remembered" lookup-key current-global-map define-key name-last-kbd-macro intern "last-learned-sequence-" int-to-string] 9 (#$ . 37681) nil]) #@70 Save current buffer, ask to save other buffers, and then exit Emacs. (defalias 'edt-exit #[nil "\300 \210\301 \207" [save-buffer save-buffers-kill-emacs] 1 (#$ . 38285) nil]) #@92 Quit Emacs without saving buffer modifications. Warn user that modifications will be lost. (defalias 'edt-quit #[nil "\303 \304 \2031 \2031 @\305\n!\203* \306\n!\203* \307\310!\203( \311 \210\202* \312 A)\202 \2057 \311 *\207" [working list buffer buffer-list t buffer-file-name buffer-modified-p edt-y-or-n-p "Modifications will not be saved, continue quitting? " kill-emacs nil] 2 (#$ . 38466) nil]) #@58 Split current window and place cursor in the new window. (defalias 'edt-split-window #[nil "\300 \210\301\302!\210\303\207" [split-window other-window 1 nil] 2 (#$ . 38883) nil]) #@63 Copy a rectangle of text between mark and cursor to register. (defalias 'edt-copy-rectangle #[nil "\300 \210\301\302\303 \304 \305$\210\306 \210\307\310!\207" [edt-check-selection copy-rectangle-to-register 3 region-beginning region-end nil edt-reset message "Selected rectangle COPIED to register"] 5 (#$ . 39068) nil]) #@142 Cut a rectangle of text between mark and cursor to register. Replace cut characters with spaces and moving cursor back to upper left corner. (defalias 'edt-cut-rectangle-overstrike-mode #[nil "\301 \210\302 \303\302 \304 \305#\210\306\307\310 !\"\210\311\312!\207" [edt-rect-start-point edt-check-selection region-beginning picture-clear-rectangle-to-register region-end 3 set-window-point get-buffer-window window-buffer message "Selected rectangle CUT to register"] 4 (#$ . 39396) "*"]) #@101 Cut a rectangle of text between mark and cursor to register. Move cursor back to upper left corner. (defalias 'edt-cut-rectangle-insert-mode #[nil "\301 \210\302 \303\302 \304 \305\306$\210\307 \210\310\311\312 !\"\210\313\314!\207" [edt-rect-start-point edt-check-selection region-beginning picture-clear-rectangle-to-register region-end 3 t fixup-whitespace set-window-point get-buffer-window window-buffer message "Selected rectangle CUT to register"] 5 (#$ . 39894) "*"]) #@114 Cut a rectangular region of text to register. If overwrite mode is active, cut text is replaced with whitespace. (defalias 'edt-cut-rectangle #[nil "\203 \301 \207\302 \207" [overwrite-mode edt-cut-rectangle-overstrike-mode edt-cut-rectangle-insert-mode] 1 (#$ . 40379) "*"]) #@77 Paste a rectangular region of text from register, replacing text at cursor. (defalias 'edt-paste-rectangle-overstrike-mode #[nil "\300\301!\207" [picture-yank-rectangle-from-register 3] 2 (#$ . 40663) "*"]) #@72 Paste previously deleted rectangular region, inserting text at cursor. (defalias 'edt-paste-rectangle-insert-mode #[nil "\300\301\302\"\207" [picture-yank-rectangle-from-register 3 t] 3 (#$ . 40876) "*"]) #@116 Paste a rectangular region of text. If overwrite mode is active, existing text is replace with text from register. (defalias 'edt-paste-rectangle #[nil "\203 \301 \207\302 \207" [overwrite-mode edt-paste-rectangle-overstrike-mode edt-paste-rectangle-insert-mode] 1 (#$ . 41088) nil]) #@519 Change specified characters to lower case. If text selection IS active, then characters between the cursor and mark are changed. If text selection is NOT active, there are two situations. If the current direction is ADVANCE, then the word under the cursor is changed to lower case and the cursor is moved to rest at the beginning of the next word. If the current direction is BACKUP, the word prior to the word under the cursor is changed to lower case and the cursor is left to rest at the beginning of that word. (defalias 'edt-lowercase #[nil "\203\n \305\306 `\"\207o\2040 m\2040 n\2040 l\2040 hz\307=\2040 h >\2040 g >\2040 \310 \210\n \232\2039 \310 \210` \311 \210\305\f`\"\210)\n \232\205L \310 \207" [edt-select-mode edt-word-entities edt-direction-string edt-backward-string beg downcase-region mark 32 edt-one-word-backward edt-one-word-forward] 3 (#$ . 41381) "*"]) #@519 Change specified characters to upper case. If text selection IS active, then characters between the cursor and mark are changed. If text selection is NOT active, there are two situations. If the current direction is ADVANCE, then the word under the cursor is changed to upper case and the cursor is moved to rest at the beginning of the next word. If the current direction is BACKUP, the word prior to the word under the cursor is changed to upper case and the cursor is left to rest at the beginning of that word. (defalias 'edt-uppercase #[nil "\203\n \305\306 `\"\207o\2040 m\2040 n\2040 l\2040 hz\307=\2040 h >\2040 g >\2040 \310 \210\n \232\2039 \310 \210` \311 \210\305\f`\"\210)\n \232\205L \310 \207" [edt-select-mode edt-word-entities edt-direction-string edt-backward-string beg upcase-region mark 32 edt-one-word-backward edt-one-word-forward] 3 (#$ . 42270) "*"]) #@41 Most recent response to `edt-y-or-n-p'. (defvar edt-last-answer nil (#$ . 43156)) #@209 Prompt for a y or n answer with positive default. Like Emacs `y-or-n-p', also accepts space as y and DEL as n. Argument PROMPT is the prompt string. Optional argument NOT-YES changes the default to negative. (defalias 'edt-y-or-n-p #[(prompt &optional not-yes) "\305\306 \203 \307\202\f \310#\210\311\n\203j \312\313 \211\314U\204+ \315U\204+ \316U\2030 \311\202f \317U\204B \320U\204B \321U\203G \312\202f \322U\203S ?\202f \311\323 \210\305\324 \203c \307\202d \310#\210)\202 )\f\207" [prompt not-yes doit ans edt-last-answer message "%s[%s]" "n" "y" t nil read-char 121 89 32 110 78 127 13 beep "Please answer y or n. %s[%s]"] 5 (#$ . 43245)]) #@342 Load the LK-201 key mapping FILE generated by edt-mapper.el. If FILE is nil, which is the normal case, try to load a default file. The default file names are based upon the window system, terminal type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid Emacs). If a default file does not exist, ask user if one should be created. (defalias 'edt-load-keys #[(file) "\203 \306!\2026 \203 \306 !\2026 \306\307\n \205 \310 P\f\205' \310\fP \2051 \310\311 !\226P\312\260!\313!\203@ \314!\207\315\316!\210\317 \210\320c\210\321\322\211\323\306\324!C%\" & ' ((\204\224 &\203\224 &@\325\326&@\"\203v \327\202w \330Q'\331'!\203\214 \332'!\204\214 \333(&A&\202\\ (\203\263 \334\335'\"c\210\336\337!\203\255 \314'!\202\275 \340\341!\202\275 \342c\210\343\344!\210\340\341!,\207" [file edt-keys-file edt-emacs-variant edt-term edt-xserver edt-window-system expand-file-name "~/.edt-" "-" symbol-name "-keys" file-readable-p load-file switch-to-buffer "*scratch*" erase-buffer "\n\n Ack!! You're running the Enhanced EDT Emulation without loading an\n EDT key mapping file. To create an EDT key mapping file, run the\n edt-mapper.el program. It is safest to run it from an Emacs loaded\n without any of your own customizations found in your .emacs file, etc.\n The reason for this is that some user customizations confuse edt-mapper.\n You can do this by quitting Emacs and then invoking Emacs again as\n follows:\n\n emacs -q -l edt-mapper.el\n\n [NOTE: If you do nothing out of the ordinary in your .emacs file, and\n the search for edt-mapper.el is successful, you can try running it now.]\n\n The file edt-mapper.el includes these same directions on how to\n use it! Perhaps it's lying around here someplace. \n " "edt-mapper.el" nil append "." string-match "/$" "" "/" file-exists-p file-directory-p t format "Ah yes, there it is, in \n\n %s \n\n" edt-y-or-n-p "Do you want to run it now? " error "EDT Emulation not configured" "Nope, I can't seem to find it. :-(\n\n" sit-for 20 load-path search-list path found] 8 (#$ . 43918) "fKey definition file: "]) #@24 Turn on EDT Emulation. (defalias 'edt-emulation-on #[nil "\306=\203 \307\202 \203 \310=\203 \311\312!\203# \313>\203y \314 G\315^O\316\230\2031 \317 \320\211\203[ \321\322 P\323\211#\204[ \324\325 \"\211\203U \314\nO\211\2026 \320\211\2049 \204s \307\232\203l \326\327!\210\202u \330\320!\210\202u *\202} \330\320!\210\f\331\332\333\"\210\331\334\335\"\210\321\336\323\211#\203\224 \337 \207\340 \207" [edt-window-system edt-term hyphend term transient-mark-mode edt-orig-transient-mark-mode pc "pc" tty getenv "TERM" (pc tty) 0 2 "vt" "vt100" nil load "edt-" t string-match "[-_][^-_]+$" error "Unable to find EDT terminal specific file edt-pc.el" edt-load-keys add-hook activate-mark-hook #[nil "\300\301!\207" [edt-select-mode t] 2] deactivate-mark-hook #[nil "\300\301!\207" [edt-select-mode nil] 2] "edt-user" edt-user-emulation-setup edt-default-emulation-setup] 5 (#$ . 46080) nil]) #@63 Select original global key bindings, disabling EDT Emulation. (defalias 'edt-emulation-off #[nil "\306!\210 \204\n \n\307\310\311 \210\312\313!\210\314\315!\207" [global-map edt-keep-current-page-delimiter edt-orig-page-delimiter page-delimiter edt-direction-string edt-select-mode-current use-global-map "" nil edt-reset force-mode-line-update t message "Original key bindings restored; EDT Emulation disabled" edt-orig-transient-mark-mode transient-mark-mode] 2 (#$ . 47000) nil]) #@131 Setup emulation of DEC's EDT editor. Optional argument USER-SETUP non-nil means called from function `edt-user-emulation-setup'. (defalias 'edt-default-emulation-setup #[(&optional user-setup) "\306\307\310!M\210\307\311 !\312\313\306#\210\314\315!\210\316 \210\317\320!\203! \320 \210\321\322\n\236\204- \323\nB\324\n\236\2047 \325\nB \203E \326\327\330KM\210\202M \327\331KM\210\331 \210\312\311 \332\333 B#\207" [edt-default-global-map edt-learn-macro-count minor-mode-alist user-setup edt-user-map-configured global-buffers-menu-map edt-default-ESC-prefix copy-keymap ESC-prefix current-global-map define-key "" define-prefix-command edt-default-gold-map edt-setup-default-bindings fboundp edt-setup-extra-default-bindings 0 edt-select-mode (edt-select-mode edt-select-mode) edt-direction-string (edt-direction-string edt-direction-string) t edt-emulation-on edt-select-user-global-map edt-select-default-global-map [menu-bar buffer] "Buffers"] 5 (#$ . 47498)]) #@50 Setup user custom emulation of DEC's EDT editor. (defalias 'edt-user-emulation-setup #[nil "\302\303!\210\304\305\306!M\210\305!\307 \310\304#\210\311\312!\210\312\305\313!M\210\314\315!\203' \315 \210\316 \207" [edt-default-global-map edt-user-global-map edt-default-emulation-setup t edt-user-ESC-prefix copy-keymap edt-default-ESC-prefix define-key "" define-prefix-command edt-user-gold-map edt-default-gold-map fboundp edt-setup-user-bindings edt-select-user-global-map] 4 (#$ . 48478)]) #@44 Select default EDT emulation key bindings. (defalias 'edt-select-default-global-map #[nil "\306\307!\210\310!\210 \204 \n\311\312\313 \210\314\315 \210\316\317!\207" [edt-default-global-map edt-keep-current-page-delimiter page-delimiter edt-orig-page-delimiter edt-default-map-active edt-select-mode-current transient-mark-mode 1 use-global-map "\f" t edt-advance edt-select-mode-string edt-reset message "Default EDT keymap active"] 2 (#$ . 48980) nil]) #@48 Select user EDT emulation custom key bindings. (defalias 'edt-select-user-global-map #[nil "\203# \306\307!\210\310 !\210\n\204 \311\312\313 \210\314\315 \210\316\317!\207\320\321!\207" [edt-user-map-configured edt-user-global-map edt-keep-current-page-delimiter page-delimiter edt-orig-page-delimiter edt-default-map-active transient-mark-mode 1 use-global-map "\f" nil edt-advance edt-select-mode-string edt-reset message "User EDT custom keymap active" error "User EDT custom keymap NOT configured!" edt-select-mode-current] 2 (#$ . 49447) nil]) #@56 Toggle between default EDT keymap and user EDT keymap. (defalias 'edt-switch-global-maps #[nil "\203 \301 \207\302 \207" [edt-default-map-active edt-select-user-global-map edt-select-default-global-map] 1 (#$ . 50010) nil]) #@279 Binds LK-201 function keys to default bindings in the EDT Emulator. Argument FUNCTION-KEY is the name of the function key or keypad function key. Argument BINDING is the Emacs function to be bound to <KEY>. Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>. (defalias 'edt-bind-function-key-default #[(function-key binding gold-binding) "\306 \"A\211\205 \n\307\232?\205 \310 \n\f#\210\310\311\n #)\207" [function-key *EDT-keys* key edt-default-global-map binding gold-binding assoc "" define-key edt-default-gold-map] 5 (#$ . 50243)]) #@184 Bind key sequences to default bindings in the EDT Emulator. Argument KEY is the name of a standard key or a function key. Argument BINDING is the Emacs function to be bound to <KEY>. (defalias 'edt-bind-key-default #[(key binding) "\303 \n#\207" [edt-default-global-map key binding define-key] 4 (#$ . 50810)]) #@202 Binds <GOLD> key sequences to default bindings in the EDT Emulator. Argument KEY is the name of a standard key or a function key. Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>. (defalias 'edt-bind-gold-key-default #[(key gold-binding) "\302\303 #\207" [key gold-binding define-key edt-default-gold-map] 4 (#$ . 51129)]) #@278 Binds LK-201 function keys to custom bindings in the EDT Emulator. Argument FUNCTION-KEY is the name of the function key or keypad function key. Argument BINDING is the Emacs function to be bound to <KEY>. Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>. (defalias 'edt-bind-function-key #[(function-key binding gold-binding) "\306 \"A\211\205 \n\307\232?\205 \310 \n\f#\210\310\311\n #)\207" [function-key *EDT-keys* key edt-user-global-map binding gold-binding assoc "" define-key edt-user-gold-map] 5 (#$ . 51481)]) #@210 Bind standard key sequences to custom bindings in the EDT Emulator. Argument KEY is the name of a key. It can be a standard key or a function key. Argument BINDING is the Emacs function to be bound to <KEY>. (defalias 'edt-bind-key #[(key binding) "\303 \n#\207" [edt-user-global-map key binding define-key] 4 (#$ . 52033)]) (byte-code "\300\301KM\207" [edt-bind-standard-key edt-bind-key] 2) #@210 Binds <GOLD> standard key sequences to custom bindings in the EDT Emulator. Argument KEY is the name of a standard key or a function key. Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>. (defalias 'edt-bind-gold-key #[(key gold-binding) "\302\303 #\207" [key gold-binding define-key edt-user-gold-map] 4 (#$ . 52435)]) #@50 Assigns default EDT Emulation keyboard bindings. (defalias 'edt-setup-default-bindings #[nil "\301\302\303\304#\210\301\305\306\307#\210\301\310\311\312#\210\301\313\314\315#\210\301\316\317\320#\210\301\321\322\323#\210\301\324\325\326#\210\301\327\330\331#\210\301\332\333\334#\210\301\335\336\337#\210\301\340\341\342#\210\301\343\344\345#\210\301\346\347\350#\210\301\351\352\353#\210\301\354\355\356#\210\301\357\360\361#\210\301\362\363\364#\210\301\365\366\367#\210\301\370\371\372#\210\301\373\374\375#\210\301\376\377\201@ #\210\301\201A \201B \201C #\210\301\201D \311\312#\210\301\201E \356\201F #\210\301\201G \355\201H #\210\301\201I \201J \201F #\210\301\201K \201L \201F #\210\301\201M \201N \201F #\210\301\201O \201F \211#\210\301\201P \201Q \201F #\210\301\201R \201S \201T #\210\301\201U \201V \201W #\210\301\201X \201Y \201Z #\210\301\201[ \201F \211#\210\301\201\\ \201] \201^ #\210\301\201_ \201` \201F #\210\301\201a \201F \211#\210\301\201b \306\201F #\210\301\201c \361\201F #\210\301\201d \201F \211#\210\301\201e \201F \211#\210\301\201f \201F \211#\210\301\201g \201F \211#\210\203N\201h \201i \201F \"\210\201h \201j \201F \"\210\201h \201k \201F \"\210\201h \201l \201F \"\210\201h \201m \201F \"\210\201h \201n \201] \"\210\201h \201o \201p \"\210\201h \201q \201` \"\210\201h \201r \201s \"\210\201t \201r \201u \"\210\201h \201v \201w \"\210\201h \201x \201y \"\210\201h \201z \201F \"\210\201h \201{ \201F \"\210\201h \201| \201F \"\210\201h \201} \201~ \"\210\201h \201 \201\200 \"\210\201h \201\201 \201\202 \"\210\201h \201\203 \201\204 \"\210\201h \201\205 \201F \"\210\201t \201\206 \201\207 \"\210\201t \201n \201\210 \"\210\201t \201\211 \201\210 \"\210\201t \201\212 \201\210 \"\210\201t \201\213 \201\214 \"\210\201t \201\215 \201F \"\210\201t \201\216 \201F \"\210\201t \201\217 \201\220 \"\210\201t \201\221 \201\220 \"\210\201t \201\222 \201\223 \"\210\201t \201\224 \201\223 \"\210\201t \201\225 \201\226 \"\210\201t \201\227 \201\226 \"\210\201t \201\230 \201\231 \"\210\201t \201\232 \201\231 \"\210\201t \201\233 \201\234 \"\210\201t \201\235 \201\234 \"\210\201t \201\236 \201\237 \"\210\201t \201\240 \201\237 \"\210\201t \201\241 \306\"\210\201t \201\242 \306\"\210\201t \201\243 \201\244 \"\210\201t \201\245 \201\244 \"\210\201t \201\246 \201F \"\210\201t \201\247 \201F \"\210\201t \201\250 \201\251 \"\210\201t \201\252 \201\251 \"\210\201t \201\253 \201\254 \"\210\201t \201\255 \201\254 \"\210\201t \201\256 \201\257 \"\210\201t \201\260 \201\257 \"\210\201t \201\261 \201\262 \"\210\201t \201\263 \201\262 \"\210\201t \201\264 \201\265 \"\210\201t \201\266 \201\265 \"\210\201t \201\267 \201F \"\210\201t \201\270 \201F \"\210\201t \201\271 \201\272 \"\210\201t \201\273 \201\272 \"\210\201t \201\274 \201\275 \"\210\201t \201\276 \201\275 \"\210\201t \201\277 \201\300 \"\210\201t \201\301 \201\300 \"\210\201t \201\302 \201F \"\210\201t \201\303 \201F \"\210\201t \201\304 \201\305 \"\210\201t \201\306 \201\305 \"\210\201t \201\307 \201\237 \"\210\201t \201\310 \201\237 \"\210\201t \201\311 \201\312 \"\210\201t \201\313 \201\312 \"\210\201t \201\314 \201F \"\210\201t \201\315 \201F \"\210\201t \201\316 \201\317 \"\210\201t \201\320 \201\317 \"\210\201t \201\321 \201\322 \"\210\201t \201\323 \201\322 \"\210\201t \201\324 \201^ \"\210\201t \201\325 \201F \"\210\201t \201\326 \201\327 \"\210\201t \201\330 \201F \"\210\201t \201\331 \201F \"\210\201t \201\332 \201F \"\210\201t \201\333 \201F \"\210\201t \201\334 \201F \"\210\201t \201\335 \201F \"\210\201t \201\336 \201\337 \"\210\201t \201\340 \201F \"\210\201t \201\341 \201F \"\210\201t \201\342 \201F \"\210\201t \201\343 \201F \"\210\201t \201\344 \201F \"\210\201t \201\345 \201F \"\210\201t \201\346 \201F \"\210\201t \201\347 \201F \"\210\201t \201\350 \201F \"\210\201t \201\351 \201F \"\210\201t \201\352 \201\353 \"\210\201t \201\354 \201F \"\210\201t \201\355 \201F \"\210\201t \201\356 \201F \"\210\201t \201\357 \201F \"\210\201t \201\360 \201\361 \"\210\201t \201\362 \201F \"\210\201t \201\363 \201F \"\210\201t \201\364 \201F \"\210\201t \201\365 \201F \"\210\201t \201\366 \201F \"\210\201t \201\367 \201F \"\210\201t \201\370 \201F \"\210\201t \201\371 \201F \"\210\201t \201\372 \201F \"\210\201t \201\373 \201\374 \"\210\201t \201\375 \201F \"\210\201t \201\376 \201F \"\210\201t \201\377 \201F \"\210\201t \201 \201F \"\210\201t \201\201F \"\210\201t \201\201\"\210\201t \201\201F \"\207" [edt-use-EDT-control-key-bindings edt-bind-function-key-default "PF1" edt-default-gold-map edt-mark-section-wisely "PF2" edt-electric-keypad-help describe-function "PF3" edt-find-next edt-find "PF4" edt-delete-line edt-undelete-line "UP" edt-previous-line edt-window-top "DOWN" edt-next-line edt-window-bottom "LEFT" backward-char edt-sentence-backward "RIGHT" forward-char edt-sentence-forward "KP0" edt-line open-line "KP1" edt-word edt-change-case "KP2" edt-end-of-line edt-delete-to-end-of-line "KP3" edt-character quoted-insert "KP4" edt-advance edt-bottom "KP5" edt-backup edt-top "KP6" edt-cut yank "KP7" edt-page execute-extended-command "KP8" edt-sect edt-fill-region "KP9" edt-append edt-replace "KP-" edt-delete-word edt-undelete-word "KP," edt-delete-character edt-undelete-character "KPP" edt-select edt-reset "KPE" other-window edt-substitute "FIND" "INSERT" edt-key-not-assigned "REMOVE" edt-copy "SELECT" edt-toggle-select "NEXT" edt-sect-forward "PREVIOUS" edt-sect-backward "F6" "F7" edt-copy-rectangle "F8" edt-cut-rectangle-overstrike-mode edt-paste-rectangle-overstrike-mode "F9" edt-cut-rectangle-insert-mode edt-paste-rectangle-insert-mode "F10" edt-cut-rectangle edt-paste-rectangle "F11" "F12" edt-beginning-of-line delete-other-windows "F13" edt-delete-to-beginning-of-word "F14" "HELP" "DO" "F17" "F18" "F19" "F20" edt-bind-key-default "" "" "" "" "" "" " " edt-tab-insert "\n" " " edt-define-key edt-bind-gold-key-default edt-restore-key "\f" edt-form-feed-insert "" edt-set-screen-width-80 "" "" "" "" edt-display-the-time "" edt-delete-to-beginning-of-line "" redraw-display "" edt-set-screen-width-132 "" "" keyboard-quit help-for-help [f1] [help] " " split-window-vertically "a" "A" "b" buffer-menu "B" "c" compile "C" "d" delete-window "D" "e" edt-exit "E" "f" find-file "F" "g" find-file-other-window "G" "h" "H" "i" insert-file "I" "j" "J" "k" edt-toggle-capitalization-of-word "K" "l" edt-lowercase "L" "m" save-some-buffers "M" "n" next-error "N" "o" switch-to-buffer-other-window "O" "p" "P" "q" edt-quit "Q" "r" revert-buffer "R" "s" save-buffer "S" "t" "T" "u" edt-uppercase "U" "v" "V" "w" write-file "W" "x" "X" "y" edt-emulation-off "Y" "z" edt-switch-global-maps "Z" "1" "!" "2" edt-split-window "@" "3" "#" "4" "$" "5" "%" edt-goto-percentage "6" "^" "7" "&" "8" "*" "9" "(" "0" ")" " " undo "," "<" "." ">" "/" query-replace "?" "\\" "|" ";" ":" "'" "\"" "-" "_" "=" goto-line "+" "[" "{" "]" "}" "`" what-line "~"] 4 (#$ . 52783)]) #@3374 DEFAULT EDT Keypad Active. F7: Copy Rectangle +----------+----------+----------+----------+ F8: Cut Rect Overstrike |Prev Line |Next Line |Bkwd Char |Frwd Char | G-F8: Paste Rect Overstrike | (UP) | (DOWN) | (LEFT) | (RIGHT) | F9: Cut Rect Insert |Window Top|Window Bot|Bkwd Sent |Frwd Sent | G-F9: Paste Rect Insert +----------+----------+----------+----------+ F10: Cut Rectangle G-F10: Paste Rectangle F11: ESC F12: Begining of Line +----------+----------+----------+----------+ G-F12: Delete Other Windows | GOLD | HELP | FNDNXT | DEL L | F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) | HELP: Keypad Help |Mark Wisel|Desc Funct| FIND | UND L | G-HELP: Emacs Help +----------+----------+----------+----------+ DO: Execute extended command | PAGE | SECT | APPEND | DEL W | C-g: Keyboard Quit | (7) | (8) | (9) | (-) | G-C-g: Keyboard Quit |Ex Ext Cmd|Fill Regio| REPLACE | UND W | C-h: Beginning of Line +----------+----------+----------+----------+ G-C-h: Emacs Help | ADVANCE | BACKUP | CUT | DEL C | C-i: Tab Insert | (4) | (5) | (6) | (,) | C-j: Delete to Begin of Word | BOTTOM | TOP | Yank | UND C | C-k: Define Key +----------+----------+----------+----------+ G-C-k: Restore Key | WORD | EOL | CHAR | Next | C-l: Form Feed Insert | (1) | (2) | (3) | Window | C-n: Set Screen Width 80 | CHNGCASE | DEL EOL |Quoted Ins| ! C-r: Isearch Backward +---------------------+----------+ (ENTER) | C-s: Isearch Forward | LINE | SELECT | ! C-t: Display the Time | (0) | (.) | SUBS | C-u: Delete to Begin of Line | Open Line | RESET | | C-v: Redraw Display +---------------------+----------+----------+ C-w: Set Screen Width 132 C-z: Suspend Emacs +----------+----------+----------+ G-C-\: Split Window | FNDNXT | Yank | CUT | | (FIND) | (INSERT) | (REMOVE) | G-b: Buffer Menu | FIND | | COPY | G-c: Compile +----------+----------+----------+ G-d: Delete Window |SELECT/RES|SECT BACKW|SECT FORWA| G-e: Exit | (SELECT) |(PREVIOUS)| (NEXT) | G-f: Find File | | | | G-g: Find File Other Window +----------+----------+----------+ G-h: Keypad Help G-i: Insert File G-k: Toggle Capitalization Word G-l: Downcase Region G-m: Save Some Buffers G-n: Next Error G-o: Switch to Next Window G-q: Quit G-r: Revert File G-s: Save Buffer G-u: Upcase Region G-v: Find File Other Window G-w: Write file G-y: EDT Emulation OFF G-z: Switch to User EDT Key Bindings G-1: Delete Other Windows G-2: Split Window G-%: Go to Percentage G- : Undo (GOLD Spacebar) G-=: Go to Line G-`: What line G-/: Query-Replace (defalias 'edt-keypad-help #[nil "\300\301!\207" [describe-function edt-keypad-help] 2 (#$ . 59730) nil]) (defalias 'edt-electric-helpify #[(fun) "\301\302\213\205\f \303\304\305#)\207" [name "*Help*" ((byte-code "\305K\306 !\307\n!\n\203 \310\n!\204 \311\312\216\313\314\315\316\f!!\"\210\n\203/ \212\nq\210\317\320!\210)\305\321M\210\322\f!\210\306 !\205W \310\306 !!\205W \n?\206W \n\306 !=?\206W \307\n!?,\207" [p name b m fun print-help-return-message get-buffer buffer-modified-p get-buffer-window nil ((byte-code "\303M\210 \203 \304 !\203 \212 q\210\305\n!\210)\303\207" [p b m print-help-return-message buffer-name set-buffer-modified-p] 2)) message "%s..." capitalize symbol-name set-buffer-modified-p t ignore call-interactively] 5)) with-electric-help delete-other-windows t] 4]) #@31 Display default EDT bindings. (defalias 'edt-electric-keypad-help #[nil "\300\301!\207" [edt-electric-helpify edt-keypad-help] 2 (#$ . 63912) nil]) #@35 Display user custom EDT bindings. (defalias 'edt-electric-user-keypad-help #[nil "\300\301!\207" [edt-electric-helpify edt-user-keypad-help] 2 (#$ . 64066) nil]) #@33 Set screen width to 80 columns. (defalias 'edt-set-screen-width-80 #[nil "\300\301!\203 \301 \210\302\303\304\"\210\305\306!\207" [fboundp edt-set-term-width-80 set-frame-width nil 80 message "Terminal width 80"] 3 (#$ . 64234) nil]) #@34 Set screen width to 132 columns. (defalias 'edt-set-screen-width-132 #[nil "\300\301!\203 \301 \210\302\303\304\"\210\305\306!\207" [fboundp edt-set-term-width-132 set-frame-width nil 132 message "Terminal width 132"] 3 (#$ . 64475) nil]) (provide 'edt)
Close
