;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue Apr 25 17:56:02 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/edt.el ;;; emacs version 19.28.90.40. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/edt.el' was compiled for Emacs 19")) (byte-code "!!" [require ehelp picture] 2) #@60 Last text deleted by an EDT emulation line delete command. (defvar edt-last-deleted-lines "" (#$ . 524)) #@60 Last text deleted by an EDT emulation word delete command. (defvar edt-last-deleted-words "" (#$ . 635)) #@65 Last text deleted by an EDT emulation character delete command. (defvar edt-last-deleted-chars "" (#$ . 746)) #@67 Key definition replaced with edt-define-key or edt-learn command. (defvar edt-last-replaced-key-definition "" (#$ . 862)) #@50 String indicating current direction of movement. (defvar edt-direction-string "" (#$ . 990)) #@38 Non-nil means select mode is active. (defvar edt-select-mode nil (#$ . 1089)) #@57 Text displayed in mode line when select mode is active. (defvar edt-select-mode-text "" (#$ . 1173)) #@43 String to indicate select mode is active. (defconst edt-select-mode-string " Select" (#$ . 1280)) #@61 Direction string in mode line to indicate forward movement. (defconst edt-forward-string " ADVANCE" (#$ . 1384)) #@62 Direction string in mode line to indicate backward movement. (defconst edt-backward-string " BACKUP" (#$ . 1503)) #@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 (#$ . 1625)) #@140 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 (#$ . 1801)) #@221 Non-nil leaves current value of page-delimiter unchanged. Nil causes the page-delimiter variable to be set to to "\f" when edt-emulation-on is first invoked. Original value is restored when edt-emulation-off is called. (defvar edt-keep-current-page-delimiter nil (#$ . 1996)) #@217 Non-nil causes the control key bindings to be replaced with EDT bindings. Nil (the default) means EDT control key bindings are not used and the current control key bindings are retained for use in the EDT emulation. (defvar edt-use-EDT-control-key-bindings nil (#$ . 2280)) #@52 *Specifies the list of EDT word entity characters. (defvar edt-word-entities (quote (9)) (#$ . -2560)) #@58 Non-nil if we are running Lucid or GNU Emacs version 19. (defconst edt-emacs19-p (byte-code "?" [emacs-version "19"] 2) (#$ . 2669)) #@51 Non-nil if we are running Lucid Emacs version 19. (defconst edt-lucid-emacs19-p (byte-code " \"" [edt-emacs19-p string-match "Lucid" emacs-version] 3) (#$ . 2812)) #@49 Non-nil if we are running GNU Emacs version 19. (defconst edt-gnu-emacs19-p (byte-code " ?" [edt-emacs19-p edt-lucid-emacs19-p] 1) (#$ . 2989)) #@75 File mapping X function keys to LK-201 keyboard function and keypad keys. (defvar edt-xkeys-file nil (#$ . 3144)) #@127 Move forward to just after next page delimiter. Accepts a positive prefix argument for the number of page delimiters to move. (defalias 'edt-page-forward #[(num) " !m\f! !m " [edt-check-prefix num error "End of buffer" forward-page edt-line-to-bottom-of-window edt-line-to-top-of-window] 2 (#$ . 3265) "p"]) #@132 Move backward to just after previous page delimiter. Accepts a positive prefix argument for the number of page delimiters to move. (defalias 'edt-page-backward #[(num) " !o\f! ! " [edt-check-prefix num error "Beginning of buffer" backward-page edt-line-to-top-of-window] 2 (#$ . 3597) "p"]) #@129 Move in current direction to next page delimiter. Accepts a positive prefix argument for the number of page delimiters to move. (defalias 'edt-page #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-page-forward num edt-page-backward] 2 (#$ . 3906) "p"]) #@116 Move cursor forward two-thirds of a window. Accepts a positive prefix argument for the number of sections to move. (defalias 'edt-sect-forward #[(num) " ! Zť_ _!" [edt-check-prefix num edt-line-forward window-height 1 3 2] 3 (#$ . 4188) "p"]) #@117 Move cursor backward two-thirds of a window. Accepts a positive prefix argument for the number of sections to move. (defalias 'edt-sect-backward #[(num) " ! Zť_ _!" [edt-check-prefix num edt-line-backward window-height 1 3 2] 3 (#$ . 4446) "p"]) #@109 Move in current direction a full window. Accepts a positive prefix argument for the number windows to move. (defalias 'edt-sect #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-sect-forward num edt-sect-backward] 2 (#$ . 4707) "p"]) #@119 Move backward to next beginning of line mark. Accepts a positive prefix argument for the number of BOL marks to move. (defalias 'edt-beginning-of-line #[(num) " !n\f [y S[y" [edt-check-prefix num] 3 (#$ . 4969) "p"]) #@112 Move forward to next end of line mark. Accepts a positive prefix argument for the number of EOL marks to move. (defalias 'edt-end-of-line-forward #[(num) " !u " [edt-check-prefix num nil] 2 (#$ . 5201) "p"]) #@113 Move backward to next end of line mark. Accepts a positive prefix argument for the number of EOL marks to move. (defalias 'edt-end-of-line-backward #[(num) " ! S" [edt-check-prefix num] 2 (#$ . 5422) "p"]) #@125 Move in current direction to next end of line mark. Accepts a positive prefix argument for the number of EOL marks to move. (defalias 'edt-end-of-line #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-end-of-line-forward num edt-end-of-line-backward] 2 (#$ . 5639) "p"]) #@47 Move forward to first character of next word. (defalias 'edt-one-word-forward #[nil "m!lug >u6l6m6gz=6g >6ul?Tm?Tgz=Tg >?Tu6" [error "End of buffer" nil edt-word-entities 32] 2 (#$ . 5937) nil]) #@52 Move backward to first character of previous word. (defalias 'edt-one-word-backward #[nil "o!n n-o-gz=-g\f>- g\f>?Sn?So?Shz=?Sh\f>?S 4" [error "Beginning of buffer" backward-char 32 edt-word-entities] 2 (#$ . 6184) nil]) #@115 Move forward to first character of next word. Accepts a positive prefix argument for the number of words to move. (defalias 'edt-word-forward #[(num) " ! V S" [edt-check-prefix num 0 edt-one-word-forward] 3 (#$ . 6456) "p"]) #@120 Move backward to first character of previous word. Accepts a positive prefix argument for the number of words to move. (defalias 'edt-word-backward #[(num) " ! V S" [edt-check-prefix num 0 edt-one-word-backward] 3 (#$ . 6703) "p"]) #@128 Move in current direction to first character of next word. Accepts a positive prefix argument for the number of words to move. (defalias 'edt-word #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-word-forward num edt-word-backward] 2 (#$ . 6957) "p"]) #@119 Move in current direction to next character. Accepts a positive prefix argument for the number of characters to move. (defalias 'edt-character #[(num) " !\n u !" [edt-check-prefix num edt-direction-string edt-forward-string backward-char] 2 (#$ . 7238) "p"]) #@119 Move backward to next beginning of line mark. Accepts a positive prefix argument for the number of BOL marks to move. (defalias 'edt-line-backward #[(num) " !" [edt-beginning-of-line num] 2 (#$ . 7514) "p"]) #@118 Move forward to next beginning of line mark. Accepts a positive prefix argument for the number of BOL marks to move. (defalias 'edt-line-forward #[(num) " ! y" [edt-check-prefix num] 2 (#$ . 7731) "p"]) #@131 Move in current direction to next beginning of line mark. Accepts a positive prefix argument for the number of BOL marks to move. (defalias 'edt-line #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-line-forward num edt-line-backward] 2 (#$ . 7944) "p"]) #@41 Move cursor to the beginning of buffer. (defalias 'edt-top #[nil "eb" [] 1 (#$ . 8227) nil]) #@35 Move cursor to the end of buffer. (defalias 'edt-bottom #[nil "db " [edt-line-to-bottom-of-window] 1 (#$ . 8327) nil]) #@68 Find first occurance of a string in forward direction and save it. (defalias 'edt-find-forward #[(&optional find) "\n!L ! !" [find search-last-string read-string "Search forward: " search-forward search-backward] 3 (#$ . 8455) nil]) #@73 Find first occurance of a string in the backward direction and save it. (defalias 'edt-find-backward #[(&optional find) "\n!L !" [find search-last-string read-string "Search backward: " search-backward] 3 (#$ . 8707) nil]) #@66 Find first occurance of string in current direction and save it. (defalias 'edt-find #[nil "!L \f!!" [search-last-string read-string "Search: " edt-direction-string edt-forward-string edt-find-forward t edt-find-backward] 3 (#$ . 8945) nil]) #@55 Find next occurance of a string in forward direction. (defalias 'edt-find-next-forward #[nil "u\n#\n!!\n\"" [1 search-forward search-last-string nil t search-backward backward-char error "Search failed: \"%s\"."] 4 (#$ . 9207) nil]) #@56 Find next occurance of a string in backward direction. (defalias 'edt-find-next-backward #[nil " #= \"" [search-backward search-last-string nil t error "Search failed: \"%s\"."] 4 (#$ . 9462) nil]) #@55 Find next occurance of a string in current direction. (defalias 'edt-find-next #[nil " " [edt-direction-string edt-forward-string edt-find-next-forward edt-find-next-backward] 2 (#$ . 9676) nil]) #@48 Append this kill region to last killed region. (defalias 'edt-append #[nil " `\"!" [edt-check-selection append-next-kill kill-region mark message "Selected text APPENDED to kill ring"] 3 (#$ . 9889) "*"]) #@132 Delete from cursor up to and including the end of line mark. Accepts a positive prefix argument for the number of lines to delete. (defalias 'edt-delete-line #[(num) " !` yh=c\n`{\n`|)" [edt-check-prefix num beg 10 "\n" edt-last-deleted-lines] 2 (#$ . 10113) "*p"]) #@132 Delete from cursor up to but excluding the end of line mark. Accepts a positive prefix argument for the number of lines to delete. (defalias 'edt-delete-to-end-of-line #[(num) " !`u \n`{\n`|)" [edt-check-prefix num beg 1 edt-last-deleted-lines] 2 (#$ . 10398) "*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) "! ! " [arg make-local-variable edt-select-mode edt-select-mode-text window-point rect-start-point kill-local-variable force-mode-line-update] 2 (#$ . 10681)]) #@46 Set mark at cursor and start text selection. (defalias 'edt-select #[nil "!" [set-mark-command nil] 2 (#$ . 11023) nil]) #@24 Cancel text selection. (defalias 'edt-reset #[nil " !" [transient-mark-mode nil mark-active run-hooks deactivate-mark-hook] 2 (#$ . 11153) nil]) #@48 Deletes selected text but copies to kill ring. (defalias 'edt-cut #[nil " `\"!" [edt-check-selection kill-region mark message "Selected text CUT to kill ring"] 3 (#$ . 11312) "*"]) #@112 Delete from cursor to beginning of line. Accepts a positive prefix argument for the number of lines to delete. (defalias 'edt-delete-to-beginning-of-line #[(num) " !` !`\n{\n`|)" [edt-check-prefix num beg edt-beginning-of-line edt-last-deleted-lines] 2 (#$ . 11509) "*p"]) #@140 Delete from cursor up to but excluding first character of next word. Accepts a positive prefix argument for the number of words to delete. (defalias 'edt-delete-word #[(num) " !` !\n`{\n`|)" [edt-check-prefix num beg edt-word-forward edt-last-deleted-words] 2 (#$ . 11796) "*p"]) #@112 Delete from cursor to beginning of word. Accepts a positive prefix argument for the number of words to delete. (defalias 'edt-delete-to-beginning-of-word #[(num) " !` !`\n{\n`|)" [edt-check-prefix num beg edt-word-backward edt-last-deleted-words] 2 (#$ . 12090) "*p"]) #@107 Delete character under cursor. Accepts a positive prefix argument for the number of characters to delete. (defalias 'edt-delete-character #[(num) " !`d` \\^{`d` \\^|" [edt-check-prefix num edt-last-deleted-chars] 4 (#$ . 12373) "*p"]) #@113 Delete character in front of cursor. Accepts a positive prefix argument for the number of characters to delete. (defalias 'edt-delete-previous-character #[(num) " !e` Z]`{e` Z]`|" [edt-check-prefix num edt-last-deleted-chars] 3 (#$ . 12619) "*p"]) #@36 Undelete previous deleted line(s). (defalias 'edt-undelete-line #[nil "!\nc!" [point-to-register 1 edt-last-deleted-lines register-to-point] 2 (#$ . 12877) "*"]) #@36 Undelete previous deleted word(s). (defalias 'edt-undelete-word #[nil "!\nc!" [point-to-register 1 edt-last-deleted-words register-to-point] 2 (#$ . 13052) "*"]) #@41 Undelete previous deleted character(s). (defalias 'edt-undelete-character #[nil "!\nc!" [point-to-register 1 edt-last-deleted-chars register-to-point] 2 (#$ . 13227) "*"]) #@53 Replace marked section with last CUT (killed) text. (defalias 'edt-replace #[nil " ` `|) " [exchange-point-and-mark beg yank] 2 (#$ . 13412) "*"]) #@83 Set movement direction forward. Also, execute command specified if in Minibuffer. (defalias 'edt-advance #[nil " G^OƘ " [edt-forward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer] 4 (#$ . 13574) nil]) #@84 Set movement direction backward. Also, execute command specified if in Minibuffer. (defalias 'edt-backup #[nil " G^OƘ " [edt-backward-string edt-direction-string force-mode-line-update buffer-name 0 9 " *Minibuf" exit-minibuffer] 4 (#$ . 13846) nil]) #@544 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. (defalias 'edt-change-case #[(num) " !\n5 `]`` ^b` =1gX%ǂ&``T\"u\fb*\n A ! VagXQǂR``T\"u SB" [edt-check-prefix num edt-select-mode mark point-save end 97 upcase-region downcase-region 1 edt-direction-string edt-backward-string backward-char 0] 4 (#$ . 14120) "*p"]) #@206 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 "!Ř!1!ʘ$!1 \" \n#*" [nil edt-key-definition-string edt-function read-key-sequence "Press the key to be defined: " " " message "Key not defined" read-command "Enter command name: " "" lookup-key current-global-map edt-last-replaced-key-definition define-key] 5 (#$ . 14984) nil]) #@123 Insert form feed character at cursor position. Accepts a positive prefix argument for the number of form feeds to insert. (defalias 'edt-form-feed-insert #[(num) " ! Vc S" [edt-check-prefix num 0 12] 3 (#$ . 15543) "*p"]) #@111 Insert tab character at cursor position. Accepts a positive prefix argument for the number of tabs to insert. (defalias 'edt-tab-insert #[(num) " ! Vc S" [edt-check-prefix num 0 9] 3 (#$ . 15786) "*p"]) #@43 Indicate error if prefix is not positive. (defalias 'edt-check-prefix #[(num) "X !" [num 0 error "Prefix must be positive"] 2 (#$ . 16009)]) #@48 Indicate error if EDT selection is not active. (defalias 'edt-check-selection #[nil "?!" [edt-select-mode error "Selection NOT active"] 2 (#$ . 16163)]) #@28 Toggle movement direction. (defalias 'edt-change-direction #[nil " " [edt-direction-string edt-forward-string edt-backup edt-advance] 2 (#$ . 16329) nil]) #@45 Toggle to start (or cancel) text selection. (defalias 'edt-toggle-select #[nil " " [edt-select-mode edt-reset edt-select] 1 (#$ . 16501) nil]) #@113 Move forward to start of next sentence. Accepts a positive prefix argument for the number of sentences to move. (defalias 'edt-sentence-forward #[(num) " !m\f! ! " [edt-check-prefix num error "End of buffer" forward-sentence edt-one-word-forward] 2 (#$ . 16660) "p"]) #@115 Move backward to next sentence beginning. Accepts a positive prefix argument for the number of sentences to move. (defalias 'edt-sentence-backward #[(num) " !m\f! !" [edt-check-prefix num error "End of buffer" backward-sentence] 2 (#$ . 16946) "p"]) #@117 Move in current direction to next sentence. Accepts a positive prefix argument for the number of sentences to move. (defalias 'edt-sentence #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-sentence-forward num edt-sentence-backward] 2 (#$ . 17212) "p"]) #@114 Move forward to beginning of paragraph. Accepts a positive prefix argument for the number of paragraphs to move. (defalias 'edt-paragraph-forward #[(num) " ! V$! !l! S" [edt-check-prefix num 0 next-line 1 forward-paragraph previous-line] 3 (#$ . 17495) "p"]) #@115 Move backward to beginning of paragraph. Accepts a positive prefix argument for the number of paragraphs to move. (defalias 'edt-paragraph-backward #[(num) " ! V !l! S" [edt-check-prefix num 0 backward-paragraph previous-line 1 next-line] 3 (#$ . 17786) "p"]) #@118 Move in current direction to next paragraph. Accepts a positive prefix argument for the number of paragraph to move. (defalias 'edt-paragraph #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-paragraph-forward num edt-paragraph-backward] 2 (#$ . 18076) "p"]) #@97 Restore last replaced key definition. Definition is stored in edt-last-replaced-key-definition. (defalias 'edt-restore-key #[nil " !L\nŘ! \n#)!" [edt-last-replaced-key-definition nil edt-key-definition-string read-key-sequence "Press the key to be restored: " " " message "Key not restored" define-key current-global-map error "No replaced key definition to restore!"] 4 (#$ . 18362) nil]) #@43 Move the cursor to the top of the window. (defalias 'edt-window-top #[nil "i!!)" [start-column move-to-window-line 0 move-to-column] 2 (#$ . 18783) nil]) #@46 Move the cursor to the bottom of the window. (defalias 'edt-window-bottom #[nil "i Z!!)" [start-column move-to-window-line window-height 2 move-to-column] 3 (#$ . 18950) nil]) #@68 Move window forward one line leaving cursor at position in window. (defalias 'edt-scroll-window-forward-line #[nil "!" [scroll-up 1] 2 (#$ . 19140) nil]) #@69 Move window backward one line leaving cursor at position in window. (defalias 'edt-scroll-window-backward-line #[nil "!" [scroll-down 1] 2 (#$ . 19303) nil]) #@44 Move window one line in current direction. (defalias 'edt-scroll-line #[nil " " [edt-direction-string edt-forward-string edt-scroll-window-forward-line edt-scroll-window-backward-line] 2 (#$ . 19470) nil]) #@123 Scroll forward one window in buffer, less one line. Accepts a positive prefix argument for the number of windows to move. (defalias 'edt-scroll-window-forward #[(num) " ! _Z! Zĥ!" [edt-check-prefix num scroll-up window-height 2 edt-line-forward 1] 3 (#$ . 19694) "p"]) #@124 Scroll backward one window in buffer, less one line. Accepts a positive prefix argument for the number of windows to move. (defalias 'edt-scroll-window-backward #[(num) " ! _Z! Zĥ!" [edt-check-prefix num scroll-down window-height 2 edt-line-backward 1] 3 (#$ . 19982) "p"]) #@134 Scroll one window in buffer, less one line, in current direction. Accepts a positive prefix argument for the number windows to move. (defalias 'edt-scroll-window #[(num) " \n ! !" [edt-direction-string edt-forward-string edt-scroll-window-forward num edt-scroll-window-backward] 2 (#$ . 20275) "p"]) #@52 Move the current line to the bottom of the window. (defalias 'edt-line-to-bottom-of-window #[nil "!" [recenter -1] 2 (#$ . 20589) nil]) #@49 Move the current line to the top of the window. (defalias 'edt-line-to-top-of-window #[nil "!" [recenter 0] 2 (#$ . 20734) nil]) #@65 Move window so line with cursor is in the middle of the window. (defalias 'edt-line-to-middle-of-window #[nil "!" [recenter (4)] 2 (#$ . 20872) nil]) #@60 Move to specified percentage in buffer from top of buffer. (defalias 'edt-goto-percentage #[(num) "V\fW\"d_b" [num 100 0 error "Percentage %d out of range 0 < percent < 100"] 3 (#$ . 21031) "NGoto-percentage: "]) #@21 Fill selected text. (defalias 'edt-fill-region #[nil " ` \"" [edt-check-selection fill-region mark] 3 (#$ . 21267) "*"]) #@73 Fill region in text modes, indent region in programming language modes. (defalias 'edt-indent-or-fill-region #[nil " ` #` \"" [paragraph-start "$\\|\f" indent-region mark nil fill-region] 4 (#$ . 21399) "*"]) #@198 Mark the section in a manner consistent with the major-mode. Uses mark-defun for emacs-lisp and lisp, mark-c-function for C, mark-fortran-subsystem for fortran, and mark-paragraph for other modes. (defalias 'edt-mark-section-wisely #[nil " \n=\n= !\n=' !\n=4 ! !" [edt-select-mode edt-reset major-mode emacs-lisp-mode lisp-mode mark-defun message "Lisp defun selected" c-mode mark-c-function "C function selected" fortran-mode mark-fortran-subprogram "Fortran subprogram selected" mark-paragraph "Paragraph selected"] 2 (#$ . 21627) nil]) #@57 Copy selected region to kill ring, but don't delete it! (defalias 'edt-copy #[nil " `\" !" [edt-check-selection copy-region-as-kill mark edt-reset message "Selected text COPIED to kill ring"] 3 (#$ . 22212) nil]) #@140 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 " " [buffer-read-only edt-copy edt-cut] 1 (#$ . 22443) nil]) #@63 Delete entire line regardless of cursor position in the line. (defalias 'edt-delete-entire-line #[nil "y!" [0 edt-delete-line 1] 2 (#$ . 22691) "*"]) #@106 Duplicate a line of text. Accepts a positive prefix argument for the number times to duplicate the line. (defalias 'edt-duplicate-line #[(num) " !i  \nV \nS ! !*" [edt-check-prefix num count old-column edt-delete-entire-line edt-undelete-line 0 edt-line-forward move-to-column] 3 (#$ . 22853) "*p"]) #@71 Duplicate word (or rest of word) found directly above cursor, if any. (defalias 'edt-duplicate-word #[nil "`iy! `>l>hĚ$iW$ ` `{)y!cN `Gy!!*" [start-column start -1 move-to-column 9 backward-char beg edt-one-word-forward edt-last-copied-word nil error "Nothing to duplicate!"] 2 (#$ . 23183) "*"]) #@64 Displays message that key has not been assigned to a function. (defalias 'edt-key-not-assigned #[nil "!" [error "Key not assigned"] 2 (#$ . 23534) nil]) #@73 Toggle the capitalization of the current word and move forward to next. (defalias 'edt-toggle-capitalization-of-word #[nil " ! " [edt-one-word-forward edt-one-word-backward edt-change-case 1] 2 (#$ . 23696) "*"]) #@50 Convert all tabs to spaces in the entire buffer. (defalias 'edt-eliminate-all-tabs #[nil "ed\"!" [untabify message "TABS converted to SPACES"] 3 (#$ . 23928) "*"]) #@27 Display the current time. (defalias 'edt-display-the-time #[nil " L!" [time-string current-time-string message] 2 (#$ . 24103) nil]) #@51 Learn a sequence of key strokes to bind to a key. (defalias 'edt-learn #[nil "= !" [defining-kbd-macro t edt-remember start-kbd-macro nil] 2 (#$ . 24248) nil]) #@66 Store the sequence of key strokes started by edt-learn to a key. (defalias 'edt-remember #[nil "=\n!!!L Ș\"!? \\L \"  !P!!#)" [defining-kbd-macro nil error "Nothing to remember!" end-kbd-macro edt-key-definition-string read-key-sequence "Enter key for binding: " " " message "Key sequence not remembered" edt-learn-macro-count 1 lookup-key current-global-map edt-last-replaced-key-definition define-key name-last-kbd-macro intern "last-learned-sequence-" int-to-string] 8 (#$ . 24424) nil]) #@70 Save current buffer, ask to save other buffers, and then exit Emacs. (defalias 'edt-exit #[nil " " [save-buffer save-buffers-kill-emacs] 1 (#$ . 24962) nil]) #@36 Quit Emacs without saving changes. (defalias 'edt-quit #[nil " " [kill-emacs] 1 (#$ . 25131) nil]) #@58 Split current window and place cursor in the new window. (defalias 'edt-split-window #[nil " !" [split-window other-window 1] 2 (#$ . 25238) nil]) #@63 Copy a rectangle of text between mark and cursor to register. (defalias 'edt-copy-rectangle #[nil " $ !" [edt-check-selection copy-rectangle-to-register 3 region-beginning region-end nil edt-reset message "Selected rectangle COPIED to register"] 5 (#$ . 25396) 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 "  # !\n\"!" [edt-check-selection region-beginning edt-rect-start-point picture-clear-rectangle-to-register region-end 3 set-window-point get-buffer-window window-buffer message "Selected rectangle CUT to register"] 4 (#$ . 25685) "*"]) #@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 "  $ !\n\"!" [edt-check-selection region-beginning edt-rect-start-point 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 (#$ . 26139) "*"]) #@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 " " [overwrite-mode edt-cut-rectangle-overstrike-mode edt-cut-rectangle-insert-mode] 1 (#$ . 26571) "*"]) #@77 Paste a rectangular region of text from register, replacing text at cursor. (defalias 'edt-paste-rectangle-overstrike-mode #[nil "!" [picture-yank-rectangle-from-register 3] 2 (#$ . 26840) "*"]) #@72 Paste previously deleted rectangular region, inserting text at cursor. (defalias 'edt-paste-rectangle-insert-mode #[nil "\"" [picture-yank-rectangle-from-register 3 t] 3 (#$ . 27044) "*"]) #@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 " " [overwrite-mode edt-paste-rectangle-overstrike-mode edt-paste-rectangle-insert-mode] 1 (#$ . 27244) 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 "\n `\"o0m0n0l0hz=0h\f>0g\f>0 ; ` `\")R " [edt-select-mode downcase-region mark 32 edt-word-entities edt-one-word-backward edt-direction-string edt-backward-string beg edt-one-word-forward] 3 (#$ . 27522) "*"]) #@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 "\n `\"o0m0n0l0hz=0h\f>0g\f>0 ; ` `\")R " [edt-select-mode upcase-region mark 32 edt-word-entities edt-one-word-backward edt-direction-string edt-backward-string beg edt-one-word-forward] 3 (#$ . 28338) "*"]) #@39 Most recent response to edt-y-or-n-p. (defvar edt-last-answer nil (#$ . 29151)) #@172 Prompt for a y or n answer with positive default. Optional second argument NOT-YES changes default to negative. Like emacs y-or-n-p, also accepts space as y and DEL as n. (defalias 'edt-y-or-n-p #[(prompt &optional not-yes) " \f\fł #!|  U3 U3 U9x UN UN UTx Ub\f?x \ftłu#!))" [message format "%s[%s]" prompt not-yes "n" "y" t doit nil read-char ans 121 89 32 edt-last-answer 110 78 127 13 beep "Please answer y or n. %s[%s]"] 6 (#$ . 29238)]) #@188 Load the EDT X-windows key definitions FILE. If FILE is nil, try to load a default file. The default file names are ~/.edt-lucid-keys for Lucid emacs, and ~/.edt-gnu-keys for GNU emacs. (defalias 'edt-load-xkeys #[(file) " !)\n\n!) !!) )!!3!! cΉ!C\"@@\"iׂjQ!!AO\"c!!!c!!," [file expand-file-name edt-xkeys-file edt-gnu-emacs19-p "~/.edt-gnu-keys" edt-lucid-emacs19-p "~/.edt-lucid-keys" file-readable-p load-file switch-to-buffer "*scratch*" erase-buffer "\n\n Ack!! You're running the Enhanced EDT Emulation under X-windows\n without loading an EDT X key definition file. To create an EDT X\n key definition file, run the edt-mapper.el program. But ONLY run\n it from an Emacs loaded without any of your own customizations\n found in your .emacs file, etc. Some user customization confuse\n the edt-mapper function. To do this, you need to invoke Emacs\n as follows:\n\n emacs -q -l edt-mapper.el\n \n The file edt-mapper.el includes these same directions on how to\n use it! Perhaps it's laying around here someplace. \n " "edt-mapper.el" nil append "." load-path search-list path found 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] 6 (#$ . 29772) "fX key definition file: "]) #@24 Turn on EDT Emulation. (defalias 'edt-emulation-on #[nil " ! G^OȘ  \fP\fPω#P\f\" I\f O\f$ʉ\f'\\!f\ff \"\f*\"\"ω# " [system-type "ms-dos" "pc" edt-term getenv "TERM" 0 2 "vt" "vt100" nil hyphend term load "edt-" t string-match "[-_][^-_]+$" window-system edt-load-xkeys error "Unable to load EDT terminal specific file for %s" transient-mark-mode edt-orig-transient-mark-mode add-hook activate-mark-hook #[nil "!" [edt-select-mode t] 2] deactivate-mark-hook #[nil "!" [edt-select-mode nil] 2] "edt-user" edt-user-emulation-setup edt-default-emulation-setup] 5 (#$ . 31350) nil]) #@63 Select original global key bindings, disabling EDT Emulation. (defalias 'edt-emulation-off #[nil " !\n\n  !\f !" [use-global-map global-map edt-keep-current-page-delimiter edt-orig-page-delimiter page-delimiter "" edt-direction-string nil edt-select-mode-text edt-reset force-mode-line-update t edt-orig-transient-mark-mode transient-mark-mode message "Original key bindings restored; EDT Emulation disabled"] 2 (#$ . 32032) nil]) #@38 Setup emulation of DEC's EDT editor. (defalias 'edt-default-emulation-setup #[(&optional user-setup) "!M !\f#! !!  1B>BKKMKM " [edt-default-ESC-prefix copy-keymap ESC-prefix current-global-map edt-default-global-map define-key "" define-prefix-command edt-default-gold-map edt-setup-default-bindings fboundp edt-setup-extra-default-bindings 0 edt-learn-macro-count edt-select-mode minor-mode-alist (edt-select-mode edt-select-mode) edt-direction-string (edt-direction-string edt-direction-string) user-setup t edt-user-map-configured edt-emulation-on edt-select-user-global-map edt-select-default-global-map] 4 (#$ . 32490)]) #@50 Setup user custom emulation of DEC's EDT editor. (defalias 'edt-user-emulation-setup #[nil "!!M !#!!M " [edt-default-emulation-setup t edt-user-ESC-prefix copy-keymap edt-default-ESC-prefix edt-default-global-map edt-user-global-map define-key "" define-prefix-command edt-user-gold-map edt-default-gold-map edt-setup-user-bindings edt-select-user-global-map] 4 (#$ . 33184)]) #@44 Select default EDT emulation key bindings. (defalias 'edt-select-default-global-map #[nil "! !\f  \f !" [transient-mark-mode 1 use-global-map edt-default-global-map edt-keep-current-page-delimiter page-delimiter edt-orig-page-delimiter "\f" t edt-default-map-active edt-advance edt-select-mode-string edt-select-mode-text edt-reset message "Default EDT keymap active"] 2 (#$ . 33596) nil]) #@48 Select user EDT emulation custom key bindings. (defalias 'edt-select-user-global-map #[nil "'!\f! \n  !!" [edt-user-map-configured transient-mark-mode 1 use-global-map edt-user-global-map edt-keep-current-page-delimiter page-delimiter edt-orig-page-delimiter "\f" nil edt-default-map-active edt-advance edt-select-mode-string edt-select-mode-text edt-reset message "User EDT custom keymap active" error "User EDT custom keymap NOT configured!"] 2 (#$ . 34016) nil]) #@56 Toggle between default EDT keymap and user EDT keymap. (defalias 'edt-switch-global-maps #[nil " " [edt-default-map-active edt-select-user-global-map edt-select-default-global-map] 1 (#$ . 34521) nil]) #@60 Binds commands to a gold key sequence in the EDT Emulator. (defalias 'edt-bind-gold-key #[(key gold-binding &optional default) "\n \f# \f#" [default define-key edt-default-gold-map key gold-binding edt-user-gold-map] 4 (#$ . 34738)]) #@65 Bind commands to a gold key sequence in the default EDT keymap. (defalias 'edt-bind-standard-key #[(key gold-binding &optional default) "\n\n \f# \f#" [default define-key edt-default-global-map key gold-binding edt-user-global-map] 4 (#$ . 34987)]) #@42 Binds function keys in the EDT Emulator. (defalias 'edt-bind-function-key #[(function-key binding gold-binding &optional default) "" [edt-key-not-supported (byte-code " \n\"A;\" ;* \n# \f#? \n# \f#? \")" [assoc function-key *EDT-keys* key-vector throw edt-key-not-supported t default define-key edt-default-global-map binding edt-default-gold-map gold-binding edt-user-global-map edt-user-gold-map error "%s is not a legal function key name"] 5)] 2 (#$ . 35250)]) #@50 Assigns default EDT Emulation keyboard bindings. (defalias 'edt-setup-default-bindings #[nil "$$$$$$$$$$$$$$$$$$$$@$ABC$D$EF$GH$IJF$KLF$MNF$OF$PQF$RST$UVW$XYZ$[F$\\]^$_`F$aF$bƁF$cF$dF$eF$fF$gF$hijF#ikF#ilF#imF#inF#io]#ipq#ir`#ist#usv#iwx#iyz#i{F#i|F#i}F#i~#i#i#i#iF#u#uo#u#uF#uF#u#u#u#u#u#u#u#u#u#u#u#u#u#u#u#u#uF#uF#u#u#u#u#u#u#u#u#u#u#uF#uF#u#u#u#u#u#u#uF#uF#u#u#u#u#u#u#uF#uF#u#u#u#u#u^#uF#u#uF#uF#uF#uF#uF#uF#u#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#u#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#uF#u#uF#uF#uF#uF#uF#u#uF#" [edt-bind-function-key "PF1" edt-default-gold-map edt-mark-section-wisely t "PF2" edt-electric-keypad-help describe-function "PF3" edt-find-next edt-find "PF4" edt-delete-line edt-undelete-line "UP" previous-line edt-window-top "DOWN" 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 query-replace "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-use-EDT-control-key-bindings edt-bind-standard-key "" "" "" "" "" "" " " edt-tab-insert "\n" " " edt-define-key edt-bind-gold-key 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 "" 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-file "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 "," "<" "." ">" "/" "?" "\\" "|" ";" ":" "'" "\"" "-" "_" "=" goto-line "+" "[" "{" "]" "}" "`" what-line "~"] 5 (#$ . 35763)]) #@3854 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 | 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) | (.) | Query | C-u: Delete to Begin of Line | Open Line | RESET | Replace | 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 (defalias 'edt-keypad-help #[nil "!" [describe-function edt-keypad-help] 2 (#$ . 40139) nil]) (defalias 'edt-electric-helpify #[(fun) "‹\f #)" ["*Help*" name ((byte-code "K !\f!\f\f!Ɏ!!\"\f1\fq!)M! !Z !!Z\f?Z\f !=?Z\f!?," [print-help-return-message p get-buffer name b buffer-modified-p m get-buffer-window nil ((byte-code " M\n\n!\nq !)" [print-help-return-message p b buffer-name set-buffer-modified-p m] 2)) message "%s..." capitalize symbol-name fun 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 "!" [edt-electric-helpify edt-keypad-help] 2 (#$ . 44633) nil]) #@35 Display user custom EDT bindings. (defalias 'edt-electric-user-keypad-help #[nil "!" [edt-electric-helpify edt-user-keypad-help] 2 (#$ . 44778) nil]) #@33 Set screen width to 80 columns. (defalias 'edt-set-screen-width-80 #[nil "!!" [set-screen-width 80 message "Screen width 80"] 2 (#$ . 44937) nil]) #@34 Set screen width to 132 columns. (defalias 'edt-set-screen-width-132 #[nil "!!" [set-screen-width 132 message "Screen width 132"] 2 (#$ . 45096) nil]) (provide (quote edt))