;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322%\210\313\326\315\316\327DD\330\321\331%\210\313\332\315\316\333DD\334\321\335%\210\313\336\315\316\337DD\340\321\335%\207" [require ehelp picture custom-declare-group edt nil "Emacs emulating EDT." :prefix "edt-" :group emulations custom-declare-variable edt-keep-current-page-delimiter funcall function #[0 "\300\207" [nil] 1 #1=""] "Emacs MUST be restarted for a change in value to take effect!\nNon-nil leaves Emacs value of `page-delimiter' unchanged within EDT\nEmulation.  If set to nil (the default), the `page-delimiter' variable\nis set to \"\\f\" when edt-emulation-on is first invoked.  This\nsetting replicates EDT's page delimiter behavior.  The original value\nis restored when edt-emulation-off is called." :type boolean edt-use-EDT-control-key-bindings #[0 "\300\207" [nil] 1 #1#] "Emacs MUST be restarted for a change in value to take effect!\nNon-nil causes the control key bindings to be replaced with EDT\nbindings.  If set to nil (the default), EDT control key bindings are\nnot used and the current Emacs control key bindings are retained for\nuse within the EDT emulation." edt-word-entities #[0 "\300\207" [(9)] 1 #1#] "Specifies the list of EDT word entity characters.\nThe default list, (?\\t), contains just the TAB character, which\nemulates EDT.  Characters are specified in the list using their\ndecimal ASCII values.  A question mark, followed by the actual\ncharacter, can be used to indicate the numerical value of the\ncharacter, instead of the actual decimal value.  So, ?A means the\nnumerical value for the letter A, ?/ means the numerical value for /,\netc.  Several unprintable and special characters have special\nrepresentations, which you can also use:\n\n            ?\\b  specifies  BS, C-h\n            ?\\t  specifies  TAB, C-i\n            ?\\n  specifies  LFD, C-j\n            ?\\v  specifies  VTAB, C-k\n            ?\\f  specifies  FF, C-l\n            ?\\r  specifies  CR, C-m\n            ?\\e  specifies  ESC, C-[\n            ?\\\\  specifies  \\\n\nIn EDT Emulation movement-by-word commands, each character in the list\nwill be treated as if it were a separate word." (repeat integer) edt-top-scroll-margin #[0 "\300\207" [10] 1 #1#] "Scroll margin at the top of the screen.\nInterpreted as a percent of the current window size with a default\nsetting of 10%.  If set to 0, top scroll margin is disabled." integer edt-bottom-scroll-margin #[0 "\300\207" [15] 1 #1#] "Scroll margin at the bottom of the screen.\nInterpreted as a percent of the current window size with a default\nsetting of 15%.  If set to 0, bottom scroll margin is disabled."] 8)
#@55 Last text deleted by the EDT emulation DEL L command.
(defvar edt-last-deleted-lines "" (#$ . 2839))
#@55 Last text deleted by the EDT emulation DEL W command.
(defvar edt-last-deleted-words "" (#$ . 2946))
#@55 Last text deleted by the EDT emulation DEL C command.
(defvar edt-last-deleted-chars "" (#$ . 3053))
#@52 Last text found by the EDT emulation FIND command.
(defvar edt-find-last-text "" (#$ . 3160))
#@52 Used internally by the EDT emulation SUBS command.
(defvar edt-match-beginning-mark (make-marker) (#$ . 3260))
#@52 Used internally by the EDT emulation SUBS command.
(defvar edt-match-end-mark (make-marker) (#$ . 3377))
#@71 Key definition replaced with `edt-define-key' or `edt-learn' command.
(defvar edt-last-replaced-key-definition nil (#$ . 3488))
#@50 String indicating current direction of movement.
(defvar edt-direction-string "" (#$ . 3622))
#@38 Non-nil means select mode is active.
(defvar edt-select-mode nil (#$ . 3722))
#@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 "" (#$ . 3807))
#@54 Used in mode line to indicate select mode is active.
(defconst edt-select-mode-string " Select" (#$ . 3991))
#@61 Direction string in mode line to indicate forward movement.
(defconst edt-forward-string " ADVANCE" (#$ . 4106))
#@62 Direction string in mode line to indicate backward movement.
(defconst edt-backward-string "  BACKUP" (#$ . 4225))
#@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 (#$ . 4347))
#@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 (#$ . 4523))
#@45 Specifies the terminal type, if applicable.
(defvar edt-term nil (#$ . 4719))
#@48 Indicates X server vendor name, if applicable.
(defconst edt-xserver (byte-code "\301=\205\f\302\303\304\305 #\207" [window-system x replace-regexp-in-string "[ /]" "-" x-server-vendor] 4) (#$ . 4803))
#@77 User's custom keypad and function keys mappings to emulate LK-201 keyboard.
(defvar edt-keys-file nil (#$ . 5013))
#@33 Last word that the user copied.
(defvar edt-last-copied-word nil (#$ . 5134))
#@114 Move forward to just after next page delimiter.
Argument NUM is the number of page delimiters to move.

(fn NUM)
(defalias 'edt-page-forward #[257 "\300
!\210m\203\f\301\302!\207\303
!\210m\203\304 \207\305 \207" [edt-check-prefix error "End of buffer" forward-page edt-line-to-bottom-of-window edt-line-to-top-of-window] 3 (#$ . 5219) "p"])
#@119 Move backward to just after previous page delimiter.
Argument NUM is the number of page delimiters to move.

(fn NUM)
(defalias 'edt-page-backward #[257 "\300
!\210o\203\f\301\302!\207\303
!\210\304 \207" [edt-check-prefix error "Beginning of buffer" backward-page edt-line-to-top-of-window] 3 (#$ . 5571) "p"])
#@116 Move in current direction to next page delimiter.
Argument NUM is the number of page delimiters to move.

(fn NUM)
(defalias 'edt-page #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-page-forward edt-page-backward] 3 (#$ . 5891) "p"])
#@121 Move cursor forward two-thirds of a window's number of lines.
Argument NUM is the number of sections to move.

(fn NUM)
(defalias 'edt-sect-forward #[257 "\300
!\210\301\302 S\303\245\304__!\207" [edt-check-prefix edt-line-forward window-height 3 2] 4 (#$ . 6172) "p"])
#@104 Move cursor backward two-thirds of a window.
Argument NUM is the number of sections to move.

(fn NUM)
(defalias 'edt-sect-backward #[257 "\300
!\210\301\302 S\303\245\304__!\207" [edt-check-prefix edt-line-backward window-height 3 2] 4 (#$ . 6450) "p"])
#@100 Move in current direction a full window.
Argument NUM is the number of sections to move.

(fn NUM)
(defalias 'edt-sect #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-sect-forward edt-sect-backward] 3 (#$ . 6713) "p"])
#@106 Move backward to next beginning of line mark.
Argument NUM is the number of BOL marks to move.

(fn NUM)
(defalias 'edt-beginning-of-line #[257 "\300
!\210\301 n\203\302_y\210\202
S\262\302_y\210\303
\"\207" [edt-check-prefix edt-current-line -1 edt-top-check] 5 (#$ . 6978) "p"])
#@99 Move forward to next end of line mark.
Argument NUM is the number of EOL marks to move.

(fn NUM)
(defalias 'edt-end-of-line-forward #[257 "\300
!\210\301 \302u\210
\210\303
\"\207" [edt-check-prefix edt-current-line nil edt-bottom-check] 5 (#$ . 7273) "p"])
#@100 Move backward to next end of line mark.
Argument NUM is the number of EOL marks to move.

(fn NUM)
(defalias 'edt-end-of-line-backward #[257 "\300
!\210\301 
S\210\302
\"\207" [edt-check-prefix edt-current-line edt-top-check] 5 (#$ . 7541) "p"])
#@112 Move in current direction to next end of line mark.
Argument NUM is the number of EOL marks to move.

(fn NUM)
(defalias 'edt-end-of-line #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-end-of-line-forward edt-end-of-line-backward] 3 (#$ . 7796) "p"])
#@47 Move forward to first character of next word.
(defalias 'edt-one-word-forward #[0 "m\203\301\302!\210l\203\303u\207g>\203\303u\210\2026l\2046m\2046gz\304=\2046g>\2046\303u\210\202l?\205Tm?\205Tgz\304=\205Tg>?\205T\303u\210\2026\207" [edt-word-entities error "End of buffer" nil 32] 2 (#$ . 8093) nil])
#@52 Move backward to first character of previous word.
(defalias 'edt-one-word-backward #[0 "o\203\301\302!\210n\203\303u\207\303u\210n\204-o\204-gz\304=\203-g>\204-\303u\210\202g>?\205Sn?\205So?\205Shz\304=?\205Sh>?\205S\303u\210\2024\207" [edt-word-entities error "Beginning of buffer" -1 32] 2 (#$ . 8422) nil])
#@102 Move forward to first character of next word.
Argument NUM is the number of words to move.

(fn NUM)
(defalias 'edt-word-forward #[257 "\300
!\210\211\301V\205\302 \210\211S\262
\202\207" [edt-check-prefix 0 edt-one-word-forward] 3 (#$ . 8759) "p"])
#@107 Move backward to first character of previous word.
Argument NUM is the number of words to move.

(fn NUM)
(defalias 'edt-word-backward #[257 "\300
!\210\211\301V\205\302 \210\211S\262
\202\207" [edt-check-prefix 0 edt-one-word-backward] 3 (#$ . 9020) "p"])
#@115 Move in current direction to first character of next word.
Argument NUM is the number of words to move.

(fn NUM)
(defalias 'edt-word #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-word-forward edt-word-backward] 3 (#$ . 9288) "p"])
#@106 Move in current direction to next character.
Argument NUM is the number of characters to move.

(fn NUM)
(defalias 'edt-character #[257 "\302
!\210	\232\203
\211u\207\211\206\303[u\207" [edt-direction-string edt-forward-string edt-check-prefix 1] 3 (#$ . 9568) "p"])
#@106 Move backward to next beginning of line mark.
Argument NUM is the number of BOL marks to move.

(fn NUM)
(defalias 'edt-line-backward #[257 "\300
!\207" [edt-beginning-of-line] 3 (#$ . 9846) "p"])
#@105 Move forward to next beginning of line mark.
Argument NUM is the number of BOL marks to move.

(fn NUM)
(defalias 'edt-line-forward #[257 "\300
!\210\301 
y\210\302
\"\207" [edt-check-prefix edt-current-line edt-bottom-check] 5 (#$ . 10050) "p"])
#@118 Move in current direction to next beginning of line mark.
Argument NUM is the number of BOL marks to move.

(fn NUM)
(defalias 'edt-line #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-line-forward edt-line-backward] 3 (#$ . 10305) "p"])
#@83 Move cursor down one line.
Argument NUM is the number of lines to move.

(fn NUM)
(defalias 'edt-next-line #[257 "\300
!\210\301 \302!\210\303
\"\207" [edt-check-prefix edt-current-line next-line edt-bottom-check] 5 (#$ . 10588) "p"])
#@81 Move cursor up one line.
Argument NUM is the number of lines to move.

(fn NUM)
(defalias 'edt-previous-line #[257 "\300
!\210\301 \302!\210\303
\"\207" [edt-check-prefix edt-current-line previous-line edt-top-check] 5 (#$ . 10831) "p"])
#@41 Move cursor to the beginning of buffer.
(defalias 'edt-top #[0 "eb\207" [] 1 (#$ . 11077) nil])
#@35 Move cursor to the end of buffer.
(defalias 'edt-bottom #[0 "db\210\300 \207" [edt-line-to-bottom-of-window] 1 (#$ . 11179) nil])
#@75 Execute BODY with some position-related variables bound.

(fn &rest BODY)
(defalias 'edt-with-position '(macro . #[128 "\300\301\302BBB\207" [let* ((beg (edt-current-line)) (height (window-height)) (top-percent (if (zerop edt-top-scroll-margin) 10 edt-top-scroll-margin)) (bottom-percent (if (zerop edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin)) (top-margin (/ (* height top-percent) 100)) (bottom-up-margin (1+ (/ (* height bottom-percent) 100))) (bottom-margin (max beg (- height bottom-up-margin 1))) (top (save-excursion (move-to-window-line top-margin) (point))) (bottom (save-excursion (move-to-window-line bottom-margin) (point))) (far (save-excursion (goto-char bottom) (point-at-bol (1- height))))) (ignore top far)] 5 (#$ . 11315)]))
#@162 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'.

(fn &optional FIND)
(defalias 'edt-find-forward #[256 "\211\204\303\304!\305 \306 	\307U\203\310\202	\n\307U\203!\311\202\"\n_\312\245_\312\245TZS]\212\313!\210`)\212\313!\210`)\212\211b\210\314S!)\315!\205~\316!\210\317 \210`
V\203u\212y)\320
\307U\203o\202s
Z!\207`V\205~\320!\207" [edt-find-last-text edt-top-scroll-margin edt-bottom-scroll-margin read-string "Search forward: " edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol search-forward search-backward edt-set-match recenter] 15 (#$ . 12076) nil])
#@167 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'.

(fn &optional FIND)
(defalias 'edt-find-backward #[256 "\211\204\303\304!\305 \306 	\307U\203\310\202	\n\307U\203!\311\202\"\n_\312\245_\312\245TZS]\212\313!\210`)\212\313!\210`)\212\211b\210\314S!)\315!\203T\316 \210`W\205a\317\n^!\207" [edt-find-last-text edt-top-scroll-margin edt-bottom-scroll-margin read-string "Search backward: " edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol search-backward edt-set-match recenter] 14 (#$ . 12794) nil])
#@67 Find first occurrence of string in current direction and save it.
(defalias 'edt-find #[0 "\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 (#$ . 13448) nil])
#@56 Find next occurrence of a string in forward direction.
(defalias 'edt-find-next-forward #[0 "\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)\313u\210\314\n\315\316#\203|\317\n!\210\320 \210`
V\203r\212y)\321
\305U\203l\202p
Z!\207`V\205\203\321!\207\322u\210\323\324\n\"\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-find-last-text edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol 1 search-forward nil t search-backward edt-set-match recenter -1 error "Search failed: \"%s\""] 14 (#$ . 13738) nil])
#@57 Find next occurrence of a string in backward direction.
(defalias 'edt-find-next-backward #[0 "\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)\313\n\314\315#\204P\316\317\n\"\207\320 \210`W\205`\321\n^!\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-find-last-text edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol search-backward nil t error "Search failed: \"%s\"" edt-set-match recenter] 14 (#$ . 14386) nil])
#@56 Find next occurrence of a string in current direction.
(defalias 'edt-find-next #[0 "	\232\203	\302 \207\303 \207" [edt-direction-string edt-forward-string edt-find-next-forward edt-find-next-backward] 2 (#$ . 14939) nil])
#@48 Append this kill region to last killed region.
(defalias 'edt-append #[0 "\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 (#$ . 15170) "*"])
#@119 Delete from cursor up to and including the end of line mark.
Argument NUM is the number of lines to delete.

(fn NUM)
(defalias 'edt-delete-line #[257 "\301
!\210`
y\210h\302=\204\303c\210\211`{\211`|\207" [edt-last-deleted-lines edt-check-prefix 10 "\n"] 4 (#$ . 15423) "*p"])
#@119 Delete from cursor up to but excluding the end of line mark.
Argument NUM is the number of lines to delete.

(fn NUM)
(defalias 'edt-delete-to-end-of-line #[257 "\301
!\210`\302u\210
\210\211`{\211`|\207" [edt-last-deleted-lines edt-check-prefix 1] 4 (#$ . 15711) "*p"])
#@133 Turn EDT select mode off if ARG is nil; otherwise, turn EDT select mode on.
In select mode, selected text is highlighted.

(fn ARG)
(defalias 'edt-select-mode #[257 "\211\203\302\300!\210\303\304 \202\305\300!\210\306 \207" [edt-select-mode rect-start-point make-local-variable edt-select-mode-current window-point kill-local-variable force-mode-line-update] 3 (#$ . 15991)])
#@46 Set mark at cursor and start text selection.
(defalias 'edt-select #[0 "\300\301!\207" [set-mark-command nil] 2 (#$ . 16379) nil])
#@24 Cancel text selection.
(defalias 'edt-reset #[0 "\300 \207" [deactivate-mark] 1 (#$ . 16516) nil])
#@48 Deletes selected text but copies to kill ring.
(defalias 'edt-cut #[0 "\300 \210\301\302 `\"\210\303\304!\207" [edt-check-selection kill-region mark message "Selected text CUT to kill ring"] 3 (#$ . 16621) "*"])
#@99 Delete from cursor to beginning of line.
Argument NUM is the number of lines to delete.

(fn NUM)
(defalias 'edt-delete-to-beginning-of-line #[257 "\301
!\210`\302!\210`
{\211`|\207" [edt-last-deleted-lines edt-check-prefix edt-beginning-of-line] 4 (#$ . 16839) "*p"])
#@127 Delete from cursor up to but excluding first character of next word.
Argument NUM is the number of words to delete.

(fn NUM)
(defalias 'edt-delete-word #[257 "\301
!\210`\302!\210\211`{\211`|\207" [edt-last-deleted-words edt-check-prefix edt-word-forward] 4 (#$ . 17117) "*p"])
#@99 Delete from cursor to beginning of word.
Argument NUM is the number of words to delete.

(fn NUM)
(defalias 'edt-delete-to-beginning-of-word #[257 "\301
!\210`\302!\210`
{\211`|\207" [edt-last-deleted-words edt-check-prefix edt-word-backward] 4 (#$ . 17404) "*p"])
#@94 Delete character under cursor.
Argument NUM is the number of characters to delete.

(fn NUM)
(defalias 'edt-delete-character #[257 "\301
!\210`d`\\^{`d`\\^|\207" [edt-last-deleted-chars edt-check-prefix] 5 (#$ . 17677) "*p"])
#@100 Delete character in front of cursor.
Argument NUM is the number of characters to delete.

(fn NUM)
(defalias 'edt-delete-previous-character #[257 "\301
!\210e`Z]`{e`Z]`|\207" [edt-last-deleted-chars edt-check-prefix] 4 (#$ . 17913) "*p"])
#@36 Undelete previous deleted line(s).
(defalias 'edt-undelete-line #[0 "\301\302!\210c\210\303\302!\207" [edt-last-deleted-lines point-to-register 1 register-to-point] 2 (#$ . 18161) "*"])
#@36 Undelete previous deleted word(s).
(defalias 'edt-undelete-word #[0 "\301\302!\210c\210\303\302!\207" [edt-last-deleted-words point-to-register 1 register-to-point] 2 (#$ . 18354) "*"])
#@41 Undelete previous deleted character(s).
(defalias 'edt-undelete-character #[0 "\301\302!\210c\210\303\302!\207" [edt-last-deleted-chars point-to-register 1 register-to-point] 2 (#$ . 18547) "*"])
#@53 Replace marked section with last CUT (killed) text.
(defalias 'edt-replace #[0 "\301 \203\n\302@!\207\303 \210`\303 \210\211`|\266\304 \207" [kill-ring-yank-pointer edt-check-match replace-match exchange-point-and-mark yank] 3 (#$ . 18750) "*"])
#@341 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.

(fn NUM)
(defalias 'edt-substitute #[257 "\204	\301 \203'\211\302U?\205&\204\301 \205*\303 \210\304 \210\211S\262
\202	\207\305\306!\207" [edt-select-mode edt-check-match 0 edt-replace edt-find-next error "No selection active"] 3 (#$ . 19006) "p"])
#@41 Set markers at match beginning and end.
(defalias 'edt-set-match #[0 "\302\303\224T!\302\303\225!\211\207" [edt-match-beginning-mark edt-match-end-mark copy-marker 0] 2 (#$ . 19601)])
#@40 Unset match beginning and end markers.
(defalias 'edt-unset-match #[0 "\302\211\223\210	\302\211\223\207" [edt-match-beginning-mark edt-match-end-mark nil] 3 (#$ . 19793)])
#@50 Return the location of the last match beginning.
(defalias 'edt-match-beginning #[0 "\301!S\207" [edt-match-beginning-mark marker-position] 2 (#$ . 19973)])
#@44 Return the location of the last match end.
(defalias 'edt-match-end #[0 "\301!\207" [edt-match-end-mark marker-position] 2 (#$ . 20137)])
#@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 #[0 "\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 (#$ . 20283)])
#@39 Show the values of the match markers.
(defalias 'edt-show-match-markers #[0 "\302!\205\303!\304\305\205S\303	!\306	!`p&\262
\207" [edt-match-beginning-mark edt-match-end-mark markerp marker-position message "(%s, %s) in %s -- current %s in %s" marker-buffer] 8 (#$ . 20652) nil])
#@83 Set movement direction forward.
Also, execute command specified if in Minibuffer.
(defalias 'edt-advance #[0 "\302 \210\303 \304\303 G\305^O\306\230\205\307 \207" [edt-forward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer] 4 (#$ . 20947) nil])
#@84 Set movement direction backward.
Also, execute command specified if in Minibuffer.
(defalias 'edt-backup #[0 "\302 \210\303 \304\303 G\305^O\306\230\205\307 \207" [edt-backward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer] 4 (#$ . 21250) nil])
#@619 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.

(fn NUM)
(defalias 'edt-change-case #[257 "\303
!\210\2032\304 `]``\304 ^b\210`=\204/\305gX\203#\306\202$\307``T\"\210\310u\210\202\211b\207	\n\230\203@\211\206=\310[u\210\211\311V\205`\305gX\203P\306\202Q\307``T\"\210\310u\210\211S\262
\202@\207" [edt-select-mode edt-direction-string edt-backward-string edt-check-prefix mark 97 upcase-region downcase-region 1 0] 6 (#$ . 21555) "*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 #[0 "\301\211\302\303!\262
\211\304\230\203\305\306!\207\307\310!\262
\311\230\203 \305\306!\207\312\313 \"\314\313 #\207" [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] 6 (#$ . 22573) nil])
#@110 Insert form feed character at cursor position.
Argument NUM is the number of form feeds to insert.

(fn NUM)
(defalias 'edt-form-feed-insert #[257 "\300
!\210\211\301V\205\302c\210\211S\262
\202\207" [edt-check-prefix 0 12] 3 (#$ . 23166) "*p"])
#@98 Insert tab character at cursor position.
Argument NUM is the number of tabs to insert.

(fn NUM)
(defalias 'edt-tab-insert #[257 "\300
!\210\211\301V\205\302c\210\211S\262
\202\207" [edt-check-prefix 0 9] 3 (#$ . 23422) "*p"])
#@94 Indicate error if prefix is not positive.
Argument NUM is the prefix value tested.

(fn NUM)
(defalias 'edt-check-prefix #[257 "\211\300X\205	\301\302!\207" [0 error "Prefix must be positive"] 3 (#$ . 23659)])
#@48 Indicate error if EDT selection is not active.
(defalias 'edt-check-selection #[0 "?\205\301\302!\207" [edt-select-mode error "Selection NOT active"] 2 (#$ . 23876)])
#@198 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.

(fn BEG LINES)
(defalias 'edt-top-check #[514 "\301 _\302\245
W\203\303!\207Z
W\205\303
!\207" [edt-top-scroll-margin window-height 100 recenter] 5 (#$ . 24053)])
#@204 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.

(fn BEG LINES)
(defalias 'edt-bottom-check #[514 "\301 \211_\302\245T

ZS
V\203\303!\207\\
V\205\"\303[!\207" [edt-bottom-scroll-margin window-height 100 recenter] 7 (#$ . 24414)])
#@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 #[0 "\300\301 `\"i\302U\203\303\202\302\\S\207" [count-lines window-start 0 1] 3 (#$ . 24799)])
#@188 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.

(fn TOP BOTTOM)
(defalias 'edt-set-scroll-margins #[514 "
\302\230\204#
\303\304O\305\230\203\306!\202#\306!\307_\310 \\S\310 \245\211\302\230\204F\211\303\304O\305\230\2039\306
!\202F\306
!\307_\310 \\S\310 \245\311\312!\205Q\313\314	#\207" [edt-top-scroll-margin edt-bottom-scroll-margin "" -1 nil "%" string-to-number 100 window-height called-interactively-p interactive message "Scroll margins set.  Top = %s%%, Bottom = %s%%"] 6 (#$ . 25063) "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 #[0 "	\232\203	\302 \207\303 \207" [edt-direction-string edt-forward-string edt-backup edt-advance] 2 (#$ . 25854) nil])
#@45 Toggle to start (or cancel) text selection.
(defalias 'edt-toggle-select #[0 "\203\301 \207\302 \207" [edt-select-mode edt-reset edt-select] 1 (#$ . 26042) nil])
#@109 Move forward to start of next sentence.
Argument NUM is the positive number of sentences to move.

(fn NUM)
(defalias 'edt-sentence-forward #[257 "\302
!\210\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)m\203R\313\314!\210\202]\315!\210\316v\210\317 \210`
V\203z\212y)\320
\305U\203t\202x
Z!\207`V\205\203\320!\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-check-prefix edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol error "End of buffer" forward-sentence 1 backward-sentence recenter] 15 (#$ . 26214) "p"])
#@111 Move backward to next sentence beginning.
Argument NUM is the positive number of sentences to move.

(fn NUM)
(defalias 'edt-sentence-backward #[257 "\302
!\210\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)m\203R\313\314!\210\202W\315!\210`W\205d\316\n^!\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-check-prefix edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol error "End of buffer" backward-sentence recenter] 14 (#$ . 26878) "p"])
#@113 Move in current direction to next sentence.
Argument NUM is the positive number of sentences to move.

(fn NUM)
(defalias 'edt-sentence #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-sentence-forward edt-sentence-backward] 3 (#$ . 27460) "p"])
#@110 Move forward to beginning of paragraph.
Argument NUM is the positive number of paragraphs to move.

(fn NUM)
(defalias 'edt-paragraph-forward #[257 "\302
!\210\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)\n\305V\203f\313T!\210\314 \210l\203^\315y\210\nS\262\202G`
V\203\203\212y)\316
\305U\203}\202\201
Z!\207`V\205\214\316!\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-check-prefix edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol forward-paragraph start-of-paragraph-text 1 recenter] 15 (#$ . 27751) "p"])
#@111 Move backward to beginning of paragraph.
Argument NUM is the positive number of paragraphs to move.

(fn NUM)
(defalias 'edt-paragraph-backward #[257 "\302
!\210\303 \304 \305U\203\306\202	\305U\203\307\202	_\310\245_\310\245TZS]\212\311!\210`)\212\311!\210`)\212\211b\210\312S!)\n\305V\203Y\313 \210\nS\262\202G`W\205f\314\n^!\207" [edt-top-scroll-margin edt-bottom-scroll-margin edt-check-prefix edt-current-line window-height 0 10 15 100 move-to-window-line point-at-bol start-of-paragraph-text recenter] 14 (#$ . 28419) "p"])
#@115 Move in current direction to next paragraph.
Argument NUM is the positive number of paragraphs to move.

(fn NUM)
(defalias 'edt-paragraph #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-paragraph-forward edt-paragraph-backward] 3 (#$ . 28987) "p"])
#@99 Restore last replaced key definition.
Definition is stored in `edt-last-replaced-key-definition'.
(defalias 'edt-restore-key #[0 "\203 \301\302\303!\262
\211\304\230\203\305\306!\207\307\310 #\210\305\311\"\207\312\313!\207" [edt-last-replaced-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 (#$ . 29282) nil])
#@43 Move the cursor to the top of the window.
(defalias 'edt-window-top #[0 "i\300\301!\210\302
!\207" [move-to-window-line 0 move-to-column] 3 (#$ . 29782) nil])
#@46 Move the cursor to the bottom of the window.
(defalias 'edt-window-bottom #[0 "i\300\301 \302Z!\210\303
!\207" [move-to-window-line window-height 2 move-to-column] 4 (#$ . 29947) nil])
#@68 Move window forward one line leaving cursor at position in window.
(defalias 'edt-scroll-window-forward-line #[0 "\300\301!\207" [scroll-up 1] 2 (#$ . 30138) nil])
#@69 Move window backward one line leaving cursor at position in window.
(defalias 'edt-scroll-window-backward-line #[0 "\300\301!\207" [scroll-down 1] 2 (#$ . 30308) nil])
#@44 Move window one line in current direction.
(defalias 'edt-scroll-line #[0 "	\232\203	\302 \207\303 \207" [edt-direction-string edt-forward-string edt-scroll-window-forward-line edt-scroll-window-backward-line] 2 (#$ . 30482) nil])
#@119 Scroll forward one window in buffer, less one line.
Argument NUM is the positive number of windows to move.

(fn NUM)
(defalias 'edt-scroll-window-forward #[257 "\300
!\210\301\302 _\303Z!\210\304\302 S\303\245!\207" [edt-check-prefix scroll-up window-height 2 edt-line-forward] 4 (#$ . 30722) "p"])
#@120 Scroll backward one window in buffer, less one line.
Argument NUM is the positive number of windows to move.

(fn NUM)
(defalias 'edt-scroll-window-backward #[257 "\300
!\210\301\302 _\303Z!\210\304\302 S\303\245!\207" [edt-check-prefix scroll-down window-height 2 edt-line-backward] 4 (#$ . 31030) "p"])
#@133 Scroll one window in buffer, less one line, in current direction.
Argument NUM is the positive number of windows to move.

(fn NUM)
(defalias 'edt-scroll-window #[257 "	\232\203\n\302
!\207\303
!\207" [edt-direction-string edt-forward-string edt-scroll-window-forward edt-scroll-window-backward] 3 (#$ . 31343) "p"])
#@52 Move the current line to the bottom of the window.
(defalias 'edt-line-to-bottom-of-window #[0 "\300\301!\207" [recenter -1] 2 (#$ . 31668) nil])
#@49 Move the current line to the top of the window.
(defalias 'edt-line-to-top-of-window #[0 "\300\301!\207" [recenter 0] 2 (#$ . 31820) nil])
#@65 Move window so line with cursor is in the middle of the window.
(defalias 'edt-line-to-middle-of-window #[0 "\300\301!\207" [recenter (4)] 2 (#$ . 31965) nil])
#@126 Move to specified percentage in buffer from top of buffer.
Argument NUM is the percentage into the buffer to move.

(fn NUM)
(defalias 'edt-goto-percentage #[257 "\211\300V\204\f\211\301W\203\302\303\"\207d
_\300\245b\207" [100 0 error "Percentage %d out of range 0 < percent < 100"] 4 (#$ . 32132) "NGoto-percentage: "])
#@21 Fill selected text.
(defalias 'edt-fill-region #[0 "\300 \210\301`\302 \"\207" [edt-check-selection fill-region mark] 3 (#$ . 32464) "*"])
#@73 Fill region in text modes, indent region in programming language modes.
(defalias 'edt-indent-or-fill-region #[0 "\301\230\203
\302`\303 \304#\207\305`\303 \"\207" [paragraph-start "$\\|\f" indent-region mark nil fill-region] 4 (#$ . 32609) "*"])
#@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 #[0 "\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 (#$ . 32865) nil])
#@57 Copy selected region to kill ring, but don't delete it!
(defalias 'edt-copy #[0 "\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 (#$ . 33450) 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 #[0 "\203\301 \207\302 \207" [buffer-read-only edt-copy edt-cut] 1 (#$ . 33709) nil])
#@63 Delete entire line regardless of cursor position in the line.
(defalias 'edt-delete-entire-line #[0 "\300 \210\301\302!\207" [beginning-of-line edt-delete-line 1] 2 (#$ . 33974) "*"])
#@120 Duplicate the line of text containing the cursor.
Argument NUM is the number of times to duplicate the line.

(fn NUM)
(defalias 'edt-duplicate-line #[257 "\300
!\210i
\301 \210\302 \210\211\303V\203\302 \210\211S\262
\202\f\304!\210\305!\207" [edt-check-prefix edt-delete-entire-line edt-undelete-line 0 edt-line-forward move-to-column] 5 (#$ . 34165) "*p"])
#@71 Duplicate word (or rest of word) found directly above cursor, if any.
(defalias 'edt-duplicate-word #[0 "`i\301y\210\302
!\210
`\232\2045l\2045h\303=\203\"\211iW\203\"\301u\210`\304 \210\211`{\210\305y\210\302
!\210c\207
`\232\204>\305y\210\302
!\210\306\307!\207" [edt-last-copied-word -1 move-to-column 9 edt-one-word-forward nil error "Nothing to duplicate!"] 5 (#$ . 34536) "*"])
#@64 Displays message that key has not been assigned to a function.
(defalias 'edt-key-not-assigned #[0 "\300\301!\207" [error "Key not assigned"] 2 (#$ . 34933) nil])
#@73 Toggle the capitalization of the current word and move forward to next.
(defalias 'edt-toggle-capitalization-of-word #[0 "\300 \210\301 \210\302\303!\210\301 \210\300 \207" [edt-one-word-forward edt-one-word-backward edt-change-case 1] 2 (#$ . 35102) "*"])
#@50 Convert all tabs to spaces in the entire buffer.
(defalias 'edt-eliminate-all-tabs #[0 "\300ed\"\210\301\302!\207" [untabify message "TABS converted to SPACES"] 3 (#$ . 35365) "*"])
#@27 Display the current time.
(defalias 'edt-display-the-time #[0 "\300\301\302 \"\207" [message "%s" current-time-string] 3 (#$ . 35553) nil])
#@51 Learn a sequence of key strokes to bind to a key.
(defalias 'edt-learn #[0 "\301=\203	\302 \207\303\304!\207" [defining-kbd-macro t edt-remember start-kbd-macro nil] 2 (#$ . 35699) nil])
#@68 Store the sequence of key strokes started by `edt-learn' to a key.
(defalias 'edt-remember #[0 "\204\303\304!\207\305\306!\210\306\307\310!\262
\211\311\230\203\312\313!\207	T\314\315 \"\316\315 \317\320\321\322	!P!!#\207" [defining-kbd-macro edt-learn-macro-count edt-last-replaced-key-definition error "Nothing to remember!" end-kbd-macro nil 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 (#$ . 35894) nil])
#@70 Save current buffer, ask to save other buffers, and then exit Emacs.
(defalias 'edt-exit #[0 "\300 \210\301 \207" [save-buffer save-buffers-kill-emacs] 1 (#$ . 36469) nil])
#@92 Quit Emacs without saving buffer modifications.
Warn user that modifications will be lost.
(defalias 'edt-quit #[0 "\300 \301
\2030\211\2030
@\302
!\203(\303
!\203(\304\305!\203%\306 \210\202(\307\262A\262\210\202\211\2056\306 \207" [buffer-list t buffer-file-name buffer-modified-p edt-y-or-n-p "Modifications will not be saved, continue quitting? " kill-emacs nil] 5 (#$ . 36648) nil])
#@58 Split current window and place cursor in the new window.
(defalias 'edt-split-window #[0 "\300 \210\301\302!\207" [split-window other-window 1] 2 (#$ . 37054) nil])
#@63 Copy a rectangle of text between mark and cursor to register.
(defalias 'edt-copy-rectangle #[0 "\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 (#$ . 37225) 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 #[0 "\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 (#$ . 37551) "*"])
#@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 #[0 "\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 (#$ . 38047) "*"])
#@114 Cut a rectangular region of text to register.
If overwrite mode is active, cut text is replaced with whitespace.
(defalias 'edt-cut-rectangle #[0 "\203\301 \207\302 \207" [overwrite-mode edt-cut-rectangle-overstrike-mode edt-cut-rectangle-insert-mode] 1 (#$ . 38530) "*"])
#@77 Paste a rectangular region of text from register, replacing text at cursor.
(defalias 'edt-paste-rectangle-overstrike-mode #[0 "\300\301!\207" [picture-yank-rectangle-from-register 3] 2 (#$ . 38812) "*"])
#@72 Paste previously deleted rectangular region, inserting text at cursor.
(defalias 'edt-paste-rectangle-insert-mode #[0 "\300\301\302\"\207" [picture-yank-rectangle-from-register 3 t] 3 (#$ . 39023) "*"])
#@116 Paste a rectangular region of text.
If overwrite mode is active, existing text is replace with text from register.
(defalias 'edt-paste-rectangle #[0 "\203\301 \207\302 \207" [overwrite-mode edt-paste-rectangle-overstrike-mode edt-paste-rectangle-insert-mode] 1 (#$ . 39233) 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 #[0 "\203\n\304\305 `\"\207o\2040m\2040n\2040l\2040hz\306=\2040h	>\2040g	>\2040\307 \210\n\232\2039\307 \210`\310 \210\304
`\"\266\n\232\205K\307 \207" [edt-select-mode edt-word-entities edt-direction-string edt-backward-string downcase-region mark 32 edt-one-word-backward edt-one-word-forward] 4 (#$ . 39524) "*"])
#@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 #[0 "\203\n\304\305 `\"\207o\2040m\2040n\2040l\2040hz\306=\2040h	>\2040g	>\2040\307 \210\n\232\2039\307 \210`\310 \210\304
`\"\266\n\232\205K\307 \207" [edt-select-mode edt-word-entities edt-direction-string edt-backward-string upcase-region mark 32 edt-one-word-backward edt-one-word-forward] 4 (#$ . 40405) "*"])
#@41 Most recent response to `edt-y-or-n-p'.
(defvar edt-last-answer nil (#$ . 41283))
#@240 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.

(fn PROMPT &optional NOT-YES)
(defalias 'edt-y-or-n-p #[513 "\301\302\203\303\202\f\304#\210\305\211\203m\306\262
\307 \211\310U\204*\211\311U\204*\211\312U\2030\305\210\202\211\313U\204B\211\314U\204B\211\315U\203H\306\210\202\211\316U\203U?\210\202\305\262\317 \210\301\320\203f\303\202g\304#\266\202\210\207" [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]"] 8 (#$ . 41372)])
#@288 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 and terminal
type.  If a default file does not exist, ask user if one should be
created.

(fn FILE)
(defalias 'edt-load-keys #[257 "\211\203\f\306
!\262
\2028\203\306!\262
\2028\306\307	\205!\310	P\n\205(\310\nP\2052\310\311!\226P\312\260!\262
\313
!\203B\314
!\207\315\316!\210\317 \210\320c\210\321\322\323\324\fC
\"#\211\203p\325\326\"c\210\327\330!\203l\314
!\210\331 \207\332\333!\207\334\335!c\210\336\337!\210\332\333!\207" [edt-keys-file edt-term edt-xserver window-system default-directory load-path expand-file-name "~/.edt-gnu" "-" 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 program.  It is safest to run it from an Emacs loaded\n     without any of your own customizations found in your init 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 -f edt-mapper\n\n     [NOTE:  If you do nothing out of the ordinary in your init file, and\n     the search for edt-mapper is successful, you can try running it now.]\n\n     The library edt-mapper includes these same directions on how to\n     use it!  Perhaps it's lying around here someplace. \n     " locate-library "edt-mapper" nil append format "Ah yes, there it is, in \n\n       %s \n\n" edt-y-or-n-p "Do you want to run it now? " edt-mapper error "EDT Emulation not configured" substitute-command-keys "Nope, I can't seem to find it.  :-(\n\n" sit-for 20] 8 (#$ . 42069) "fKey definition file: "])
#@24 Turn on EDT Emulation.
(defalias 'edt-emulation-on #[0 "\303=\203\304\202\204\305\306!\203\307>\203u	\310	G\311^O\312\230\203+\313	\314
\203T\315\316P\317\211#\204T\320\321\"\211\262\203N
\310O\262\202-\314\262\202-
\204n	\304\232\203f\322\323!\266\202y\324\314!\266\202y
\266\202y\324\314!\210\325\326!\327\330\331\"\210\327\332\333\"\210\315\334\317\211#\203\222\335 \207\336 \207" [window-system edt-term edt-orig-transient-mark-mode pc "pc" 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 default-value transient-mark-mode add-hook activate-mark-hook #[0 "\300\301!\207" [edt-select-mode t] 2] deactivate-mark-hook #[0 "\300\301!\207" [edt-select-mode nil] 2] "edt-user" edt-user-emulation-setup edt-default-emulation-setup] 6 (#$ . 44016) nil])
#@63 Select original global key bindings, disabling EDT Emulation.
(defalias 'edt-emulation-off #[0 "\306!\210	\204\n\n\307\310\311 \210\312\313!\210\314\315\"\210\316\317!\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 set-default transient-mark-mode message "Original key bindings restored; EDT Emulation disabled" edt-orig-transient-mark-mode] 3 (#$ . 44922) nil])
(defalias 'edt-default-menu-bar-update-buffers #[0 "\302\303\304	B#\207" [edt-default-global-map global-buffers-menu-map define-key [menu-bar buffer] "Buffers"] 5])
(defalias 'edt-user-menu-bar-update-buffers #[0 "\302\303\304	B#\207" [edt-user-global-map global-buffers-menu-map define-key [menu-bar buffer] "Buffers"] 5])
#@158 Setup emulation of DEC's EDT editor.
Optional argument USER-SETUP non-nil means  called from function
`edt-user-emulation-setup'.

(fn &optional USER-SETUP)
(defalias 'edt-default-emulation-setup #[256 "\304\305\306!M\210\305\307 !\310\311\304#\210\312\313!\210\314 \210\315\316!\203!\316 \210\317\320\n\236\204-\321\nB\322\n\236\2047\323\nB\211\203E\324\325\326KM\210\202M\325\327KM\210\327 \210\330\331\332\"\207" [edt-default-global-map edt-learn-macro-count minor-mode-alist edt-user-map-configured 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 add-hook menu-bar-update-hook edt-default-menu-bar-update-buffers] 5 (#$ . 45768)])
#@50 Setup user custom emulation of DEC's EDT editor.
(defalias 'edt-user-emulation-setup #[0 "\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 \210\317\320\321\"\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 add-hook menu-bar-update-hook edt-user-menu-bar-update-buffers] 4 (#$ . 46756)])
#@44 Select default EDT emulation key bindings.
(defalias 'edt-select-default-global-map #[0 "\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 (#$ . 47337) nil])
#@48 Select user EDT emulation custom key bindings.
(defalias 'edt-select-user-global-map #[0 "\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 (#$ . 47802) nil])
#@56 Toggle between default EDT keymap and user EDT keymap.
(defalias 'edt-switch-global-maps #[0 "\203\301 \207\302 \207" [edt-default-map-active edt-select-user-global-map edt-select-default-global-map] 1 (#$ . 48363) nil])
#@319 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>.

(fn FUNCTION-KEY BINDING GOLD-BINDING)
(defalias 'edt-bind-function-key-default #[771 "\302\"A\211\205\211\303\232?\205\304	#\210\304\305#\207" [*EDT-keys* edt-default-global-map assoc "" define-key edt-default-gold-map] 8 (#$ . 48594)])
#@202 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>.

(fn KEY BINDING)
(defalias 'edt-bind-key-default #[514 "\301#\207" [edt-default-global-map define-key] 6 (#$ . 49128)])
#@225 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>.

(fn KEY GOLD-BINDING)
(defalias 'edt-bind-gold-key-default #[514 "\300\301#\207" [define-key edt-default-gold-map] 6 (#$ . 49442)])
#@318 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>.

(fn FUNCTION-KEY BINDING GOLD-BINDING)
(defalias 'edt-bind-function-key #[771 "\302\"A\211\205\211\303\232?\205\304	#\210\304\305#\207" [*EDT-keys* edt-user-global-map assoc "" define-key edt-user-gold-map] 8 (#$ . 49785)])
#@228 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>.

(fn KEY BINDING)
(defalias 'edt-bind-key #[514 "\301#\207" [edt-user-global-map define-key] 6 (#$ . 50304)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias edt-bind-standard-key edt-bind-key nil make-obsolete "28.1"] 4)
#@233 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>.

(fn KEY GOLD-BINDING)
(defalias 'edt-bind-gold-key #[514 "\300\301#\207" [define-key edt-user-gold-map] 6 (#$ . 50763)])
#@50 Assigns default EDT Emulation keyboard bindings.
(defalias 'edt-setup-default-bindings #[0 "\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-below "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 (#$ . 51102)])
#@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: Beginning 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 #[0 "\300\301!\207" [describe-function edt-keypad-help] 2 (#$ . 58042) nil])
#@12 

(fn FUN)
(defalias 'edt-electric-helpify #[257 "\300 \301\302\"\216\303K\304\305!C\306
\242!
\242\203!\307\242!\204!
\310\240\210\301\311$\216\312\313\314\315!!\"\210
\242\203Ar
\242q\210\316\317!\210)\303\320M\210\321!\210\304\305!\205l\307\304\305!!\205l
\242?\206l
\242\304\305!=?\206l\306\242!?)\266\203)\262
\205z\322\323\305\317#\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] help-print-return-message get-buffer "*Help*" buffer-modified-p get-buffer-window nil #[0 "\303\300M\210\301\242\205\304\301\242!\205r\301\242q\210\305\302!)\207" [V0 V1 V2 help-print-return-message buffer-name set-buffer-modified-p] 2] message "%s..." capitalize symbol-name set-buffer-modified-p t ignore call-interactively with-electric-help delete-other-windows] 10 (#$ . 61525)])
#@31 Display default EDT bindings.
(defalias 'edt-electric-keypad-help #[0 "\300\301!\207" [edt-electric-helpify edt-keypad-help] 2 (#$ . 62376) nil])
#@35 Display user custom EDT bindings.
(defalias 'edt-electric-user-keypad-help #[0 "\300\301!\207" [edt-electric-helpify edt-user-keypad-help] 2 (#$ . 62528) nil])
#@33 Set screen width to 80 columns.
(defalias 'edt-set-screen-width-80 #[0 "\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 (#$ . 62694) nil])
#@34 Set screen width to 132 columns.
(defalias 'edt-set-screen-width-132 #[0 "\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 (#$ . 62933) nil])
#@31 EDT Emulation version number.
(defconst edt-version "4.0" (#$ . 63177))
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete-variable edt-version emacs-version "28.1" provide edt] 4)