Lines Matching +defs:edt +defs:key +defs:definition
0 ;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
35 ;; keypad mode behavior. It sets up default keypad and function key
37 ;; provided so that users may reconfigure most keypad and function key
47 ;; M-x edt-emulation-on
57 ;; (add-hook term-setup-hook 'edt-emulation-on)
59 ;; IMPORTANT: Be sure to read the file, edt-user.doc, located in the
64 ;; edt-user.doc - User Instructions and Sample Customization File
65 ;; edt.el - EDT Emulation Functions and Default Configuration
66 ;; edt-lk201.el - Built-in support for DEC LK-201 Keyboards
67 ;; edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals
68 ;; edt-pc.el - Built-in support for PC 101 Keyboards under MS-DOS
69 ;; edt-mapper.el - Create an EDT LK-201 Map File for Keyboards Without
81 ;; edt-set-scroll-margins in your .emacs file. For example, the
84 ;; (edt-set-scroll-margins "20%" "25%")
88 ;; margin to 0%. You can also invoke edt-set-scroll-margins
96 ;; edt-top-scroll-margin and edt-bottom-scroll-margin
103 ;; default. (This design was copied from tpu-edt.el.) Note, in
108 ;; customization file, edt-user.el, to do this. See edt-user.doc
115 ;; the initialization file generated by edt-mapper.el will now
120 ;; initialization files, edt-mapper.el will now generate these
125 ;; 5. Also, edt-mapper.el is now capable of binding an ASCII key
126 ;; sequence, providing the ASCII key sequence prefix is already
129 ;; which don't have a complete set of sensible function key
130 ;; bindings built into Emacs in `function-key-map', can still be
134 ;; key sequence are recognized by Emacs as having an existing
135 ;; binding. For example, if the keypad 7 (KP-7) key generates
137 ;; function, pressing KP-7 when told to do so by edt-mapper.el
138 ;; will result in edt-mapper.el incorrectly mapping \"<ESC>O\" to
145 ;; 6. The edt-quit function (bound to GOLD-q by default) has been
175 (defgroup edt nil
177 :prefix "edt-"
183 (defvar edt-default-global-map)
184 (defvar edt-last-copied-word)
185 (defvar edt-learn-macro-count)
186 (defvar edt-orig-page-delimiter)
187 (defvar edt-orig-transient-mark-mode)
188 (defvar edt-rect-start-point)
189 (defvar edt-user-global-map)
197 (defconst edt-version "4.0" "EDT Emulation version number.")
208 (defcustom edt-keep-current-page-delimiter nil
212 is set to \"\\f\" when edt-emulation-on is first invoked. This
214 is restored when edt-emulation-off is called."
216 :group 'edt)
218 (defcustom edt-use-EDT-control-key-bindings nil
220 Non-nil causes the control key bindings to be replaced with EDT
221 bindings. If set to nil (the default), EDT control key bindings are
222 not used and the current Emacs control key bindings are retained for
225 :group 'edt)
227 (defcustom edt-word-entities '(?\t)
250 :group 'edt)
252 (defcustom edt-top-scroll-margin 10
257 :group 'edt)
259 (defcustom edt-bottom-scroll-margin 15
264 :group 'edt)
270 (defvar edt-last-deleted-lines ""
273 (defvar edt-last-deleted-words ""
276 (defvar edt-last-deleted-chars ""
279 (defvar edt-find-last-text ""
282 (defvar edt-match-beginning-mark (make-marker)
285 (defvar edt-match-end-mark (make-marker)
288 (defvar edt-last-replaced-key-definition nil
289 "Key definition replaced with `edt-define-key' or `edt-learn' command.")
291 (defvar edt-direction-string ""
294 (defvar edt-select-mode nil
297 (defvar edt-select-mode-current ""
301 (defconst edt-select-mode-string " Select"
304 (defconst edt-forward-string " ADVANCE"
307 (defconst edt-backward-string " BACKUP"
310 (defvar edt-default-map-active nil
311 "Non-nil indicates that default EDT emulation key bindings are active.
314 (defvar edt-user-map-configured nil
315 "Non-nil indicates that user custom EDT key bindings are configured.
316 This means that an edt-user.el file was found in the user's `load-path'.")
318 (defvar edt-term nil
324 ;;; o edt-emulation-on o edt-load-keys
326 (defconst edt-emacs19-p (not (string-lessp emacs-version "19"))
329 (defconst edt-x-emacs19-p
330 (and edt-emacs19-p (string-match "XEmacs" emacs-version))
333 (defconst edt-gnu-emacs19-p (and edt-emacs19-p (not edt-x-emacs19-p))
336 (defconst edt-emacs-variant (if edt-gnu-emacs19-p "gnu" "xemacs")
339 (defconst edt-window-system (if edt-gnu-emacs19-p window-system (console-type))
342 (defconst edt-xserver (if (eq edt-window-system 'x)
343 (if edt-x-emacs19-p
346 ;; the custom key map file. Replace `/' with a
353 (defvar edt-keys-file nil
356 (defvar edt-last-copied-word nil
381 ;;; edt-page command to ignore form feeds not located at the beginning
385 ;;; But this can be overridden if the EDT definition is not desired by
388 ;;; (setq edt-keep-current-page-delimiter t)
392 (defun edt-page-forward (num)
396 (edt-check-prefix num)
402 (edt-line-to-bottom-of-window)
403 (edt-line-to-top-of-window)))))
405 (defun edt-page-backward (num)
409 (edt-check-prefix num)
414 (edt-line-to-top-of-window)
415 (if edt-x-emacs19-p (setq zmacs-region-stays t)))))
417 (defun edt-page (num)
421 (if (equal edt-direction-string edt-forward-string)
422 (edt-page-forward num)
423 (edt-page-backward num)))
435 (defun edt-sect-forward (num)
439 (edt-check-prefix num)
440 (edt-line-forward (* (* (/ (- (window-height) 1) 3) 2) num)))
443 (defun edt-sect-backward (num)
447 (edt-check-prefix num)
448 (edt-line-backward (* (* (/ (- (window-height) 1) 3) 2) num)))
450 (defun edt-sect (num)
454 (if (equal edt-direction-string edt-forward-string)
455 (edt-sect-forward num)
456 (edt-sect-backward num)))
464 (defun edt-beginning-of-line (num)
468 (edt-check-prefix num)
469 (let ((beg (edt-current-line)))
475 (edt-top-check beg num))
476 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
483 (defun edt-end-of-line-forward (num)
487 (edt-check-prefix num)
488 (let ((beg (edt-current-line)))
491 (edt-bottom-check beg num))
492 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
495 (defun edt-end-of-line-backward (num)
499 (edt-check-prefix num)
500 (let ((beg (edt-current-line)))
502 (edt-top-check beg num))
503 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
506 (defun edt-end-of-line (num)
510 (if (equal edt-direction-string edt-forward-string)
511 (edt-end-of-line-forward num)
512 (edt-end-of-line-backward num)))
521 ;;; The variable edt-word-entities contains a list of characters which
526 (defun edt-one-word-forward ()
534 (if (memq (following-char) edt-word-entities)
540 (not (memq (following-char) edt-word-entities)))
546 (not (memq (following-char) edt-word-entities)))
548 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
550 (defun edt-one-word-backward ()
563 (not (memq (following-char) edt-word-entities)))
565 (if (not (memq (following-char) edt-word-entities))
570 (not (memq (preceding-char) edt-word-entities)))
572 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
574 (defun edt-word-forward (num)
578 (edt-check-prefix num)
580 (edt-one-word-forward)
583 (defun edt-word-backward (num)
587 (edt-check-prefix num)
589 (edt-one-word-backward)
592 (defun edt-word (num)
596 (if (equal edt-direction-string edt-forward-string)
597 (edt-word-forward num)
598 (edt-word-backward num)))
604 (defun edt-character (num)
608 (edt-check-prefix num)
609 (if (equal edt-direction-string edt-forward-string)
612 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
618 ;;; OF LINE in EDT. So edt-line-backward is not really needed as a
621 (defun edt-line-backward (num)
625 (edt-beginning-of-line num))
627 (defun edt-line-forward (num)
631 (edt-check-prefix num)
632 (let ((beg (edt-current-line)))
634 (edt-bottom-check beg num))
635 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
637 (defun edt-line (num)
641 (if (equal edt-direction-string edt-forward-string)
642 (edt-line-forward num)
643 (edt-line-backward num)))
649 (defun edt-next-line (num)
653 (edt-check-prefix num)
654 (let ((beg (edt-current-line)))
656 (edt-bottom-check beg num))
657 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
659 (defun edt-previous-line (num)
663 (edt-check-prefix num)
664 (let ((beg (edt-current-line)))
666 (edt-top-check beg num))
667 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
674 (defun edt-top ()
678 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
684 (defun edt-bottom ()
688 (edt-line-to-bottom-of-window))
694 (defun edt-find-forward (&optional find)
696 Optional argument FIND is t is this function is called from `edt-find'."
699 (set 'edt-find-last-text (read-string "Search forward: ")))
701 (beg (edt-current-line))
704 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
706 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
714 (if (search-forward edt-find-last-text)
716 (search-backward edt-find-last-text)
717 (edt-set-match)
724 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
726 (defun edt-find-backward (&optional find)
728 Optional argument FIND is t if this function is called from `edt-find'."
731 (set 'edt-find-last-text (read-string "Search backward: ")))
733 (beg (edt-current-line))
736 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
738 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
746 (if (search-backward edt-find-last-text)
747 (edt-set-match))
749 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
751 (defun edt-find ()
754 (set 'edt-find-last-text (read-string "Search: "))
755 (if (equal edt-direction-string edt-forward-string)
756 (edt-find-forward t)
757 (edt-find-backward t)))
764 (defun edt-find-next-forward ()
768 (beg (edt-current-line))
771 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
773 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
782 (if (search-forward edt-find-last-text nil t)
784 (search-backward edt-find-last-text)
785 (edt-set-match)
794 (error "Search failed: \"%s\"" edt-find-last-text))))
795 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
797 (defun edt-find-next-backward ()
801 (beg (edt-current-line))
804 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
806 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
814 (if (not (search-backward edt-find-last-text nil t))
815 (error "Search failed: \"%s\"" edt-find-last-text)
817 (edt-set-match)
819 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
821 (defun edt-find-next ()
824 (if (equal edt-direction-string edt-forward-string)
825 (edt-find-next-forward)
826 (edt-find-next-backward)))
832 (defun edt-append ()
835 (edt-check-selection)
844 (defun edt-delete-line (num)
848 (edt-check-prefix num)
853 (setq edt-last-deleted-lines
861 (defun edt-delete-to-end-of-line (num)
865 (edt-check-prefix num)
869 (setq edt-last-deleted-lines
877 (defun edt-select-mode (arg)
882 (make-local-variable 'edt-select-mode)
883 (setq edt-select-mode 'edt-select-mode-current)
886 (kill-local-variable 'edt-select-mode)))
889 (defun edt-select ()
894 (defun edt-reset ()
897 (if edt-gnu-emacs19-p
905 (defun edt-cut ()
908 (edt-check-selection)
916 (defun edt-delete-to-beginning-of-line (num)
920 (edt-check-prefix num)
922 (edt-beginning-of-line num)
923 (setq edt-last-deleted-lines
931 (defun edt-delete-word (num)
935 (edt-check-prefix num)
937 (edt-word-forward num)
938 (setq edt-last-deleted-words (buffer-substring beg (point)))
945 (defun edt-delete-to-beginning-of-word (num)
949 (edt-check-prefix num)
951 (edt-word-backward num)
952 (setq edt-last-deleted-words (buffer-substring (point) beg))
959 (defun edt-delete-character (num)
963 (edt-check-prefix num)
964 (setq edt-last-deleted-chars
972 (defun edt-delete-previous-character (num)
976 (edt-check-prefix num)
977 (setq edt-last-deleted-chars
985 (defun edt-undelete-line ()
989 (insert edt-last-deleted-lines)
996 (defun edt-undelete-word ()
1000 (insert edt-last-deleted-words)
1007 (defun edt-undelete-character ()
1011 (insert edt-last-deleted-chars)
1018 (defun edt-replace ()
1021 (if (edt-check-match)
1034 (defun edt-substitute (num)
1042 (cond ((or edt-select-mode (edt-check-match))
1043 (while (and (not (= num 0)) (or edt-select-mode (edt-check-match)))
1044 (edt-replace)
1045 (edt-find-next)
1050 (defun edt-set-match nil
1054 (setq edt-match-beginning-mark (copy-marker (1+ (match-beginning 0))))
1055 (setq edt-match-end-mark (copy-marker (match-end 0))))
1057 (defun edt-unset-match nil
1059 (set-marker edt-match-beginning-mark nil)
1060 (set-marker edt-match-end-mark nil))
1062 (defun edt-match-beginning nil
1064 (1- (marker-position edt-match-beginning-mark)))
1066 (defun edt-match-end nil
1068 (marker-position edt-match-end-mark))
1070 (defun edt-check-match nil
1071 "Return t if point is between edt-match markers.
1072 Otherwise sets the edt-match markers to nil and returns nil."
1079 (equal (marker-buffer edt-match-beginning-mark) (current-buffer))
1080 (>= (point) (1- (marker-position edt-match-beginning-mark)))
1082 (< (point) (marker-position edt-match-end-mark))
1083 (and (= (1- (marker-position edt-match-beginning-mark))
1084 (marker-position edt-match-end-mark))
1085 (= (marker-position edt-match-end-mark) (point))))) t)
1087 (edt-unset-match) nil)))
1089 (defun edt-show-match-markers nil
1092 (if (markerp edt-match-beginning-mark)
1093 (let ((beg (marker-position edt-match-beginning-mark)))
1096 (marker-position edt-match-end-mark)
1097 (marker-buffer edt-match-end-mark)
1105 (defun edt-advance ()
1109 (setq edt-direction-string edt-forward-string)
1114 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1121 (defun edt-backup ()
1125 (setq edt-direction-string edt-backward-string)
1130 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1139 (defun edt-change-case (num)
1150 (edt-check-prefix num)
1151 (if edt-select-mode
1162 (if (string= edt-direction-string edt-backward-string)
1175 (defun edt-define-key ()
1176 "Assign an interactively-callable function to a specified key sequence.
1177 The current key definition is saved in `edt-last-replaced-key-definition'.
1178 Use `edt-restore-key' to restore last replaced key definition."
1180 (if edt-x-emacs19-p (setq zmacs-region-stays t))
1181 (let (edt-function
1182 edt-key-definition)
1183 (setq edt-key-definition
1184 (read-key-sequence "Press the key to be defined: "))
1185 (if (if edt-gnu-emacs19-p
1186 (string-equal "\C-m" edt-key-definition)
1187 (string-equal "\C-m" (events-to-keys edt-key-definition)))
1190 (setq edt-function (read-command "Enter command name: "))
1191 (if (string-equal "" edt-function)
1194 (setq edt-last-replaced-key-definition
1195 (lookup-key (current-global-map) edt-key-definition))
1196 (define-key (current-global-map)
1197 edt-key-definition edt-function)))))))
1203 (defun edt-form-feed-insert (num)
1207 (edt-check-prefix num)
1216 (defun edt-tab-insert (num)
1220 (edt-check-prefix num)
1229 (defun edt-check-prefix (num)
1239 (defun edt-check-selection ()
1241 (if (not edt-select-mode)
1248 (defun edt-top-check (beg lines)
1252 (let ((margin (/ (* (window-height) edt-top-scroll-margin) 100)))
1256 (defun edt-bottom-check (beg lines)
1261 (margin (+ 1 (/ (* height edt-bottom-scroll-margin) 100)))
1265 ((and edt-x-emacs19-p (> (+ beg lines 1) difference))
1269 (defun edt-current-line nil
1275 (defun edt-set-scroll-margins (top bottom)
1285 (setq edt-top-scroll-margin (string-to-number top))
1286 (setq edt-top-scroll-margin
1292 (setq edt-bottom-scroll-margin (string-to-number bottom))
1293 (setq edt-bottom-scroll-margin
1299 edt-top-scroll-margin edt-bottom-scroll-margin)))
1316 (defun edt-change-direction ()
1319 (if (equal edt-direction-string edt-forward-string)
1320 (edt-backup)
1321 (edt-advance)))
1327 (defun edt-toggle-select ()
1330 (if edt-select-mode
1331 (edt-reset)
1332 (edt-select)))
1338 (defun edt-sentence-forward (num)
1342 (edt-check-prefix num)
1344 (beg (edt-current-line))
1347 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
1349 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
1370 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1372 (defun edt-sentence-backward (num)
1376 (edt-check-prefix num)
1378 (beg (edt-current-line))
1381 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
1383 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
1396 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1398 (defun edt-sentence (num)
1402 (if (equal edt-direction-string edt-forward-string)
1403 (edt-sentence-forward num)
1404 (edt-sentence-backward num)))
1410 (defun edt-paragraph-forward (num)
1414 (edt-check-prefix num)
1416 (beg (edt-current-line))
1419 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
1421 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
1441 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1443 (defun edt-paragraph-backward (num)
1447 (edt-check-prefix num)
1449 (beg (edt-current-line))
1452 (if (= 0 edt-top-scroll-margin) 10 edt-top-scroll-margin))
1454 (if (= 0 edt-bottom-scroll-margin) 15 edt-bottom-scroll-margin))
1466 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1468 (defun edt-paragraph (num)
1472 (if (equal edt-direction-string edt-forward-string)
1473 (edt-paragraph-forward num)
1474 (edt-paragraph-backward num)))
1480 (defun edt-restore-key ()
1481 "Restore last replaced key definition.
1482 Definition is stored in `edt-last-replaced-key-definition'."
1484 (if edt-x-emacs19-p (setq zmacs-region-stays t))
1485 (if edt-last-replaced-key-definition
1487 (let (edt-key-definition)
1488 (set 'edt-key-definition
1489 (read-key-sequence "Press the key to be restored: "))
1490 (if (if edt-gnu-emacs19-p
1491 (string-equal "\C-m" edt-key-definition)
1492 (string-equal "\C-m" (events-to-keys edt-key-definition)))
1495 (define-key (current-global-map)
1496 edt-key-definition edt-last-replaced-key-definition)
1497 (if edt-gnu-emacs19-p
1498 (message "Key definition for %s has been restored."
1499 edt-key-definition)
1500 (message "Key definition for %s has been restored."
1501 (events-to-keys edt-key-definition)))))))
1502 (error "No replaced key definition to restore!")))
1508 (defun edt-window-top ()
1514 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1520 (defun edt-window-bottom ()
1526 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1532 (defun edt-scroll-window-forward-line ()
1536 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1538 (defun edt-scroll-window-backward-line ()
1542 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1544 (defun edt-scroll-line ()
1547 (if (equal edt-direction-string edt-forward-string)
1548 (edt-scroll-window-forward-line)
1549 (edt-scroll-window-backward-line)))
1557 (defun edt-scroll-window-forward (num)
1561 (edt-check-prefix num)
1563 (edt-line-forward (/ (- (window-height) 1) 2)))
1565 (defun edt-scroll-window-backward (num)
1569 (edt-check-prefix num)
1571 (edt-line-backward (/ (- (window-height) 1) 2)))
1573 (defun edt-scroll-window (num)
1577 (if (equal edt-direction-string edt-forward-string)
1578 (edt-scroll-window-forward num)
1579 (edt-scroll-window-backward num)))
1585 (defun edt-line-to-bottom-of-window ()
1589 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1595 (defun edt-line-to-top-of-window ()
1599 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1605 (defun edt-line-to-middle-of-window ()
1609 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1615 (defun edt-goto-percentage (num)
1622 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1628 (defun edt-fill-region ()
1631 (edt-check-selection)
1638 (defun edt-indent-or-fill-region ()
1649 (defun edt-mark-section-wisely ()
1655 (if edt-select-mode
1657 (edt-reset))
1674 (defun edt-copy ()
1677 (edt-check-selection)
1679 (edt-reset)
1686 (defun edt-cut-or-copy ()
1692 (edt-copy)
1693 (edt-cut)))
1699 (defun edt-delete-entire-line ()
1703 (edt-delete-line 1))
1709 (defun edt-duplicate-line (num)
1713 (edt-check-prefix num)
1716 (edt-delete-entire-line)
1717 (edt-undelete-line)
1719 (edt-undelete-line)
1721 (edt-line-forward num)
1728 (defun edt-duplicate-word()
1742 (edt-one-word-forward)
1743 (setq edt-last-copied-word (buffer-substring beg (point))))
1746 (insert edt-last-copied-word))
1757 (defun edt-key-not-assigned ()
1758 "Displays message that key has not been assigned to a function."
1766 (defun edt-toggle-capitalization-of-word ()
1769 (edt-one-word-forward)
1770 (edt-one-word-backward)
1771 (edt-change-case 1)
1772 (edt-one-word-backward)
1773 (edt-one-word-forward))
1779 (defun edt-eliminate-all-tabs ()
1789 (defun edt-display-the-time ()
1792 (if edt-x-emacs19-p (setq zmacs-region-stays t))
1799 (defun edt-learn ()
1800 "Learn a sequence of key strokes to bind to a key."
1803 (edt-remember)
1810 (defun edt-remember ()
1811 "Store the sequence of key strokes started by `edt-learn' to a key."
1817 (let (edt-key-definition)
1818 (set 'edt-key-definition
1819 (read-key-sequence "Enter key for binding: "))
1820 (if (if edt-gnu-emacs19-p
1821 (string-equal "\C-m" edt-key-definition)
1822 (string-equal "\C-m" (events-to-keys edt-key-definition)))
1825 (set 'edt-learn-macro-count (+ edt-learn-macro-count 1))
1826 (setq edt-last-replaced-key-definition
1827 (lookup-key (current-global-map)
1828 edt-key-definition))
1829 (define-key (current-global-map) edt-key-definition
1832 (int-to-string edt-learn-macro-count)))))))))))
1838 (defun edt-exit ()
1848 (defun edt-quit ()
1857 (if (edt-y-or-n-p
1868 (defun edt-split-window ()
1873 (if edt-x-emacs19-p (setq zmacs-region-stays t)))
1879 (defun edt-copy-rectangle ()
1882 (edt-check-selection)
1884 (edt-reset)
1891 (defun edt-cut-rectangle-overstrike-mode ()
1896 (edt-check-selection)
1897 (setq edt-rect-start-point (region-beginning))
1899 (set-window-point (get-buffer-window (window-buffer)) edt-rect-start-point)
1902 (defun edt-cut-rectangle-insert-mode ()
1906 (edt-check-selection)
1907 (setq edt-rect-start-point (region-beginning))
1910 (set-window-point (get-buffer-window (window-buffer)) edt-rect-start-point)
1913 (defun edt-cut-rectangle ()
1918 (edt-cut-rectangle-overstrike-mode)
1919 (edt-cut-rectangle-insert-mode)))
1925 (defun edt-paste-rectangle-overstrike-mode ()
1930 (defun edt-paste-rectangle-insert-mode ()
1935 (defun edt-paste-rectangle ()
1940 (edt-paste-rectangle-overstrike-mode)
1941 (edt-paste-rectangle-insert-mode)))
1947 (defun edt-lowercase ()
1957 (if edt-select-mode
1968 (not (memq (preceding-char) edt-word-entities))
1969 (not (memq (following-char) edt-word-entities)))
1970 (edt-one-word-backward))
1971 (if (equal edt-direction-string edt-backward-string)
1972 (edt-one-word-backward))
1974 (edt-one-word-forward)
1976 (if (equal edt-direction-string edt-backward-string)
1977 (edt-one-word-backward)))))
1983 (defun edt-uppercase ()
1993 (if edt-select-mode
2004 (not (memq (preceding-char) edt-word-entities))
2005 (not (memq (following-char) edt-word-entities)))
2006 (edt-one-word-backward))
2007 (if (equal edt-direction-string edt-backward-string)
2008 (edt-one-word-backward))
2010 (edt-one-word-forward)
2012 (if (equal edt-direction-string edt-backward-string)
2013 (edt-one-word-backward)))))
2016 ;;; Functions used in loading LK-201 key mapping file.
2018 (defvar edt-last-answer nil
2019 "Most recent response to `edt-y-or-n-p'.")
2021 (defun edt-y-or-n-p (prompt &optional not-yes)
2032 (setq edt-last-answer t))
2034 (setq edt-last-answer nil))
2035 ((= ans ?\r) (setq edt-last-answer (not not-yes)))
2040 edt-last-answer)
2048 ;;; Function used to load LK-201 key mapping file generated by edt-mapper.el.
2050 (defun edt-load-keys (file)
2051 "Load the LK-201 key mapping FILE generated by edt-mapper.el.
2057 (interactive "fKey definition file: ")
2060 (edt-keys-file
2061 (setq file (expand-file-name edt-keys-file)))
2066 "~/.edt-" edt-emacs-variant
2067 (if edt-term (concat "-" edt-term))
2068 (if edt-xserver (concat "-" edt-xserver))
2069 (if edt-window-system
2070 (concat "-" (upcase (symbol-name edt-window-system))))
2080 EDT key mapping file. To create an EDT key mapping file, run the
2081 edt-mapper.el program. It is safest to run it from an Emacs loaded
2083 The reason for this is that some user customizations confuse edt-mapper.
2087 emacs -q -l edt-mapper.el
2090 the search for edt-mapper.el is successful, you can try running it now.]
2092 The file edt-mapper.el includes these same directions on how to
2094 (let ((file "edt-mapper.el")
2108 (if (edt-y-or-n-p "Do you want to run it now? ")
2121 (defun edt-emulation-on ()
2127 (if (eq edt-window-system 'pc)
2128 (setq edt-term "pc")
2129 (if (or (not edt-window-system) (eq edt-window-system 'tty))
2130 (setq edt-term (getenv "TERM"))))
2133 (if (or (not edt-window-system) (memq edt-window-system '(pc tty)))
2137 ;; by the same terminal configuration file: edt-vt100.el.
2138 (if (string-equal "vt" (substring edt-term 0 (min (length edt-term) 2)))
2139 (setq edt-term "vt100"))
2140 (let ((term edt-term)
2143 (not (load (concat "edt-" term) t t)))
2154 (if (equal edt-term "pc")
2155 (error "Unable to find EDT terminal specific file edt-pc.el")
2156 (edt-load-keys nil))
2157 (setq edt-term term))))
2158 (edt-load-keys nil))
2160 (if edt-gnu-emacs19-p
2162 (setq edt-orig-transient-mark-mode transient-mark-mode)
2166 (edt-select-mode t))))
2170 (edt-select-mode nil)))))
2175 (edt-select-mode t))))
2179 (edt-select-mode nil))))))
2180 ;; Load user's EDT custom key bindings file, if it exists.
2182 (if (load "edt-user" t t)
2183 (edt-user-emulation-setup)
2184 (edt-default-emulation-setup)))
2186 (defun edt-emulation-off()
2187 "Select original global key bindings, disabling EDT Emulation."
2190 (if (not edt-keep-current-page-delimiter)
2191 (setq page-delimiter edt-orig-page-delimiter))
2192 (setq edt-direction-string "")
2193 (setq edt-select-mode-current nil)
2194 (edt-reset)
2196 (if edt-gnu-emacs19-p
2197 (setq transient-mark-mode edt-orig-transient-mark-mode))
2198 (message "Original key bindings restored; EDT Emulation disabled"))
2200 (defun edt-default-emulation-setup (&optional user-setup)
2203 `edt-user-emulation-setup'."
2209 (fset 'edt-default-ESC-prefix (copy-keymap 'ESC-prefix))
2210 (setq edt-default-global-map (copy-keymap (current-global-map)))
2211 (if edt-gnu-emacs19-p
2212 (define-key edt-default-global-map "\e" 'edt-default-ESC-prefix)
2213 (define-key edt-default-global-map [escape] 'edt-default-ESC-prefix))
2214 (define-prefix-command 'edt-default-gold-map)
2215 (edt-setup-default-bindings)
2218 ;; function edt-setup-extra-default-bindings.
2219 (if (fboundp 'edt-setup-extra-default-bindings)
2220 (edt-setup-extra-default-bindings))
2221 ;; Variable needed by edt-learn.
2222 (setq edt-learn-macro-count 0)
2224 (or (assq 'edt-select-mode minor-mode-alist)
2226 (cons '(edt-select-mode edt-select-mode) minor-mode-alist)))
2228 (or (assq 'edt-direction-string minor-mode-alist)
2231 '(edt-direction-string edt-direction-string) minor-mode-alist)))
2234 (setq edt-user-map-configured t)
2235 (fset 'edt-emulation-on (symbol-function 'edt-select-user-global-map)))
2237 (fset 'edt-emulation-on (symbol-function 'edt-select-default-global-map))
2238 (edt-select-default-global-map))))
2240 (defun edt-user-emulation-setup ()
2243 (edt-default-emulation-setup t)
2245 (fset 'edt-user-ESC-prefix (copy-keymap 'edt-default-ESC-prefix))
2246 (setq edt-user-global-map (copy-keymap edt-default-global-map))
2247 (if edt-gnu-emacs19-p
2248 (define-key edt-user-global-map "\e" 'edt-user-ESC-prefix)
2249 (define-key edt-user-global-map [escape] 'edt-user-ESC-prefix))
2252 ;; function edt-setup-extra-default-bindings.
2253 (define-prefix-command 'edt-user-gold-map)
2254 (fset 'edt-user-gold-map (copy-keymap 'edt-default-gold-map))
2255 (edt-setup-user-bindings)
2256 (edt-select-user-global-map))
2258 (defun edt-select-default-global-map()
2259 "Select default EDT emulation key bindings."
2261 (if edt-gnu-emacs19-p
2263 (use-global-map edt-default-global-map)
2264 (if (not edt-keep-current-page-delimiter)
2266 (setq edt-orig-page-delimiter page-delimiter)
2268 (setq edt-default-map-active t)
2269 (edt-advance)
2270 (setq edt-select-mode-current 'edt-select-mode-string)
2271 (edt-reset)
2274 (defun edt-select-user-global-map()
2275 "Select user EDT emulation custom key bindings."
2277 (if edt-user-map-configured
2279 (if edt-gnu-emacs19-p
2281 (use-global-map edt-user-global-map)
2282 (if (not edt-keep-current-page-delimiter)
2284 (setq edt-orig-page-delimiter page-delimiter)
2286 (setq edt-default-map-active nil)
2287 (edt-advance)
2288 (setq edt-select-mode-current 'edt-select-mode-string)
2289 (edt-reset)
2293 (defun edt-switch-global-maps ()
2296 (if edt-default-map-active
2297 (edt-select-user-global-map)
2298 (edt-select-default-global-map)))
2304 (defun edt-bind-function-key-default (function-key binding gold-binding)
2306 Argument FUNCTION-KEY is the name of the function key or keypad function key.
2309 (let ((key (cdr (assoc function-key *EDT-keys*))))
2310 (if (and key (not (equal key "")))
2312 (define-key edt-default-global-map key binding)
2313 (define-key 'edt-default-gold-map key gold-binding)))))
2315 (defun edt-bind-key-default (key binding)
2316 "Bind key sequences to default bindings in the EDT Emulator.
2317 Argument KEY is the name of a standard key or a function key.
2319 (define-key edt-default-global-map key binding))
2321 (defun edt-bind-gold-key-default (key gold-binding)
2322 "Binds <GOLD> key sequences to default bindings in the EDT Emulator.
2323 Argument KEY is the name of a standard key or a function key.
2325 (define-key 'edt-default-gold-map key gold-binding))
2330 (defun edt-bind-function-key (function-key binding gold-binding)
2332 Argument FUNCTION-KEY is the name of the function key or keypad function key.
2335 (let ((key (cdr (assoc function-key *EDT-keys*))))
2336 (if (and key (not (equal key "")))
2338 (define-key edt-user-global-map key binding)
2339 (define-key 'edt-user-gold-map key gold-binding)))))
2341 (defun edt-bind-key (key binding)
2342 "Bind standard key sequences to custom bindings in the EDT Emulator.
2343 Argument KEY is the name of a key. It can be a standard key or a function key.
2345 (define-key edt-user-global-map key binding))
2347 ;; For backward compatibility to existing edt-user.el files.
2348 (fset 'edt-bind-standard-key (symbol-function 'edt-bind-key))
2350 (defun edt-bind-gold-key (key gold-binding)
2351 "Binds <GOLD> standard key sequences to custom bindings in the EDT Emulator.
2352 Argument KEY is the name of a standard key or a function key.
2354 (define-key 'edt-user-gold-map key gold-binding))
2356 (defun edt-setup-default-bindings ()
2362 (edt-bind-function-key-default "PF1"
2363 'edt-default-gold-map 'edt-mark-section-wisely)
2364 (edt-bind-function-key-default "PF2"
2365 'edt-electric-keypad-help 'describe-function)
2366 (edt-bind-function-key-default "PF3" 'edt-find-next 'edt-find)
2367 (edt-bind-function-key-default "PF4" 'edt-delete-line 'edt-undelete-line)
2370 (edt-bind-function-key-default "UP" 'edt-previous-line 'edt-window-top)
2371 (edt-bind-function-key-default "DOWN" 'edt-next-line 'edt-window-bottom)
2372 (edt-bind-function-key-default "LEFT" 'backward-char 'edt-sentence-backward)
2373 (edt-bind-function-key-default "RIGHT" 'forward-char 'edt-sentence-forward)
2376 (edt-bind-function-key-default "KP0" 'edt-line 'open-line)
2377 (edt-bind-function-key-default "KP1" 'edt-word 'edt-change-case)
2378 (edt-bind-function-key-default "KP2"
2379 'edt-end-of-line 'edt-delete-to-end-of-line)
2380 (edt-bind-function-key-default "KP3" 'edt-character 'quoted-insert)
2381 (edt-bind-function-key-default "KP4" 'edt-advance 'edt-bottom)
2382 (edt-bind-function-key-default "KP5" 'edt-backup 'edt-top)
2383 (edt-bind-function-key-default "KP6" 'edt-cut 'yank)
2384 (edt-bind-function-key-default "KP7" 'edt-page 'execute-extended-command)
2385 (edt-bind-function-key-default "KP8" 'edt-sect 'edt-fill-region)
2386 (edt-bind-function-key-default "KP9" 'edt-append 'edt-replace)
2387 (edt-bind-function-key-default "KP-" 'edt-delete-word 'edt-undelete-word)
2388 (edt-bind-function-key-default "KP,"
2389 'edt-delete-character 'edt-undelete-character)
2390 (edt-bind-function-key-default "KPP" 'edt-select 'edt-reset)
2391 (edt-bind-function-key-default "KPE" 'other-window 'edt-substitute)
2396 (edt-bind-function-key-default "FIND" 'edt-find-next 'edt-find)
2397 (edt-bind-function-key-default "INSERT" 'yank 'edt-key-not-assigned)
2398 (edt-bind-function-key-default "REMOVE" 'edt-cut 'edt-copy)
2399 (edt-bind-function-key-default "SELECT"
2400 'edt-toggle-select 'edt-key-not-assigned)
2401 (edt-bind-function-key-default "NEXT"
2402 'edt-sect-forward 'edt-key-not-assigned)
2403 (edt-bind-function-key-default "PREVIOUS"
2404 'edt-sect-backward 'edt-key-not-assigned)
2405 (edt-bind-function-key-default "F6"
2406 'edt-key-not-assigned 'edt-key-not-assigned)
2407 (edt-bind-function-key-default "F7"
2408 'edt-copy-rectangle 'edt-key-not-assigned)
2409 (edt-bind-function-key-default "F8"
2410 'edt-cut-rectangle-overstrike-mode 'edt-paste-rectangle-overstrike-mode)
2411 (edt-bind-function-key-default "F9"
2412 'edt-cut-rectangle-insert-mode 'edt-paste-rectangle-insert-mode)
2413 (edt-bind-function-key-default "F10" 'edt-cut-rectangle 'edt-paste-rectangle)
2414 ;; Under X, the F11 key can be bound. If using a VT-200 or higher terminal,
2415 ;; the default emacs terminal support causes the VT F11 key to seem as if it
2416 ;; is an ESC key when in emacs.
2417 (edt-bind-function-key-default "F11"
2418 'edt-key-not-assigned 'edt-key-not-assigned)
2419 (edt-bind-function-key-default "F12"
2420 'edt-beginning-of-line 'delete-other-windows) ;BS
2421 (edt-bind-function-key-default "F13"
2422 'edt-delete-to-beginning-of-word 'edt-key-not-assigned) ;LF
2423 (edt-bind-function-key-default "F14"
2424 'edt-key-not-assigned 'edt-key-not-assigned)
2425 (edt-bind-function-key-default "HELP"
2426 'edt-electric-keypad-help 'edt-key-not-assigned)
2427 (edt-bind-function-key-default "DO"
2428 'execute-extended-command 'edt-key-not-assigned)
2429 (edt-bind-function-key-default "F17"
2430 'edt-key-not-assigned 'edt-key-not-assigned)
2431 (edt-bind-function-key-default "F18"
2432 'edt-key-not-assigned 'edt-key-not-assigned)
2433 (edt-bind-function-key-default "F19"
2434 'edt-key-not-assigned 'edt-key-not-assigned)
2435 (edt-bind-function-key-default "F20"
2436 'edt-key-not-assigned 'edt-key-not-assigned)
2438 ;; Control key bindings: Regular and GOLD
2440 ;; Standard EDT control key bindings conflict with standard Emacs
2441 ;; control key bindings. Normally, the standard Emacs control key
2443 ;; the variable edt-use-EDT-control-key-bindings is set to true
2444 ;; before invoking edt-emulation-on for the first time, then the
2447 (if edt-use-EDT-control-key-bindings
2449 (edt-bind-key-default "\C-a" 'edt-key-not-assigned)
2450 (edt-bind-key-default "\C-b" 'edt-key-not-assigned)
2451 ;; Leave binding of C-c to an Emacs prefix key.
2452 (edt-bind-key-default "\C-d" 'edt-key-not-assigned)
2453 (edt-bind-key-default "\C-e" 'edt-key-not-assigned)
2454 (edt-bind-key-default "\C-f" 'edt-key-not-assigned)
2456 (edt-bind-key-default "\C-h" 'edt-beginning-of-line)
2457 (edt-bind-key-default "\C-i" 'edt-tab-insert)
2458 (edt-bind-key-default "\C-j" 'edt-delete-to-beginning-of-word)
2459 (edt-bind-key-default "\C-k" 'edt-define-key)
2460 (edt-bind-gold-key-default "\C-k" 'edt-restore-key)
2461 (edt-bind-key-default "\C-l" 'edt-form-feed-insert)
2463 (edt-bind-key-default "\C-n" 'edt-set-screen-width-80)
2464 (edt-bind-key-default "\C-o" 'edt-key-not-assigned)
2465 (edt-bind-key-default "\C-p" 'edt-key-not-assigned)
2466 (edt-bind-key-default "\C-q" 'edt-key-not-assigned)
2469 (edt-bind-key-default "\C-t" 'edt-display-the-time)
2470 (edt-bind-key-default "\C-u" 'edt-delete-to-beginning-of-line)
2471 (edt-bind-key-default "\C-v" 'redraw-display)
2472 (edt-bind-key-default "\C-w" 'edt-set-screen-width-132)
2473 ;; Leave binding of C-x as original prefix key.
2474 (edt-bind-key-default "\C-y" 'edt-key-not-assigned)
2480 (edt-bind-gold-key-default "\C-g" 'keyboard-quit); Just in case.
2481 (edt-bind-gold-key-default "\C-h" 'help-for-help); Just in case.
2482 (edt-bind-gold-key-default [f1] 'help-for-help)
2483 (edt-bind-gold-key-default [help] 'help-for-help)
2484 (edt-bind-gold-key-default "\C-\\" 'split-window-vertically)
2487 (edt-bind-gold-key-default "a" 'edt-key-not-assigned)
2488 (edt-bind-gold-key-default "A" 'edt-key-not-assigned)
2489 (edt-bind-gold-key-default "b" 'buffer-menu)
2490 (edt-bind-gold-key-default "B" 'buffer-menu)
2491 (edt-bind-gold-key-default "c" 'compile)
2492 (edt-bind-gold-key-default "C" 'compile)
2493 (edt-bind-gold-key-default "d" 'delete-window)
2494 (edt-bind-gold-key-default "D" 'delete-window)
2495 (edt-bind-gold-key-default "e" 'edt-exit)
2496 (edt-bind-gold-key-default "E" 'edt-exit)
2497 (edt-bind-gold-key-default "f" 'find-file)
2498 (edt-bind-gold-key-default "F" 'find-file)
2499 (edt-bind-gold-key-default "g" 'find-file-other-window)
2500 (edt-bind-gold-key-default "G" 'find-file-other-window)
2501 (edt-bind-gold-key-default "h" 'edt-electric-keypad-help)
2502 (edt-bind-gold-key-default "H" 'edt-electric-keypad-help)
2503 (edt-bind-gold-key-default "i" 'insert-file)
2504 (edt-bind-gold-key-default "I" 'insert-file)
2505 (edt-bind-gold-key-default "j" 'edt-key-not-assigned)
2506 (edt-bind-gold-key-default "J" 'edt-key-not-assigned)
2507 (edt-bind-gold-key-default "k" 'edt-toggle-capitalization-of-word)
2508 (edt-bind-gold-key-default "K" 'edt-toggle-capitalization-of-word)
2509 (edt-bind-gold-key-default "l" 'edt-lowercase)
2510 (edt-bind-gold-key-default "L" 'edt-lowercase)
2511 (edt-bind-gold-key-default "m" 'save-some-buffers)
2512 (edt-bind-gold-key-default "M" 'save-some-buffers)
2513 (edt-bind-gold-key-default "n" 'next-error)
2514 (edt-bind-gold-key-default "N" 'next-error)
2515 (edt-bind-gold-key-default "o" 'switch-to-buffer-other-window)
2516 (edt-bind-gold-key-default "O" 'switch-to-buffer-other-window)
2517 (edt-bind-gold-key-default "p" 'edt-key-not-assigned)
2518 (edt-bind-gold-key-default "P" 'edt-key-not-assigned)
2519 (edt-bind-gold-key-default "q" 'edt-quit)
2520 (edt-bind-gold-key-default "Q" 'edt-quit)
2521 (edt-bind-gold-key-default "r" 'revert-buffer)
2522 (edt-bind-gold-key-default "R" 'revert-buffer)
2523 (edt-bind-gold-key-default "s" 'save-buffer)
2524 (edt-bind-gold-key-default "S" 'save-buffer)
2525 (edt-bind-gold-key-default "t" 'edt-key-not-assigned)
2526 (edt-bind-gold-key-default "T" 'edt-key-not-assigned)
2527 (edt-bind-gold-key-default "u" 'edt-uppercase)
2528 (edt-bind-gold-key-default "U" 'edt-uppercase)
2529 (edt-bind-gold-key-default "v" 'find-file-other-window)
2530 (edt-bind-gold-key-default "V" 'find-file-other-window)
2531 (edt-bind-gold-key-default "w" 'write-file)
2532 (edt-bind-gold-key-default "W" 'write-file)
2533 (edt-bind-gold-key-default "x" 'edt-key-not-assigned)
2534 (edt-bind-gold-key-default "X" 'edt-key-not-assigned)
2535 (edt-bind-gold-key-default "y" 'edt-emulation-off)
2536 (edt-bind-gold-key-default "Y" 'edt-emulation-off)
2537 (edt-bind-gold-key-default "z" 'edt-switch-global-maps)
2538 (edt-bind-gold-key-default "Z" 'edt-switch-global-maps)
2539 (edt-bind-gold-key-default "1" 'delete-other-windows)
2540 (edt-bind-gold-key-default "!" 'edt-key-not-assigned)
2541 (edt-bind-gold-key-default "2" 'edt-split-window)
2542 (edt-bind-gold-key-default "@" 'edt-key-not-assigned)
2543 (edt-bind-gold-key-default "3" 'edt-key-not-assigned)
2544 (edt-bind-gold-key-default "#" 'edt-key-not-assigned)
2545 (edt-bind-gold-key-default "4" 'edt-key-not-assigned)
2546 (edt-bind-gold-key-default "$" 'edt-key-not-assigned)
2547 (edt-bind-gold-key-default "5" 'edt-key-not-assigned)
2548 (edt-bind-gold-key-default "%" 'edt-goto-percentage)
2549 (edt-bind-gold-key-default "6" 'edt-key-not-assigned)
2550 (edt-bind-gold-key-default "^" 'edt-key-not-assigned)
2551 (edt-bind-gold-key-default "7" 'edt-key-not-assigned)
2552 (edt-bind-gold-key-default "&" 'edt-key-not-assigned)
2553 (edt-bind-gold-key-default "8" 'edt-key-not-assigned)
2554 (edt-bind-gold-key-default "*" 'edt-key-not-assigned)
2555 (edt-bind-gold-key-default "9" 'edt-key-not-assigned)
2556 (edt-bind-gold-key-default "(" 'edt-key-not-assigned)
2557 (edt-bind-gold-key-default "0" 'edt-key-not-assigned)
2558 (edt-bind-gold-key-default ")" 'edt-key-not-assigned)
2559 (edt-bind-gold-key-default " " 'undo)
2560 (edt-bind-gold-key-default "," 'edt-key-not-assigned)
2561 (edt-bind-gold-key-default "<" 'edt-key-not-assigned)
2562 (edt-bind-gold-key-default "." 'edt-key-not-assigned)
2563 (edt-bind-gold-key-default ">" 'edt-key-not-assigned)
2564 (edt-bind-gold-key-default "/" 'query-replace)
2565 (edt-bind-gold-key-default "?" 'edt-key-not-assigned)
2566 (edt-bind-gold-key-default "\\" 'edt-key-not-assigned)
2567 (edt-bind-gold-key-default "|" 'edt-key-not-assigned)
2568 (edt-bind-gold-key-default ";" 'edt-key-not-assigned)
2569 (edt-bind-gold-key-default ":" 'edt-key-not-assigned)
2570 (edt-bind-gold-key-default "'" 'edt-key-not-assigned)
2571 (edt-bind-gold-key-default "\"" 'edt-key-not-assigned)
2572 (edt-bind-gold-key-default "-" 'edt-key-not-assigned)
2573 (edt-bind-gold-key-default "_" 'edt-key-not-assigned)
2574 (edt-bind-gold-key-default "=" 'goto-line)
2575 (edt-bind-gold-key-default "+" 'edt-key-not-assigned)
2576 (edt-bind-gold-key-default "[" 'edt-key-not-assigned)
2577 (edt-bind-gold-key-default "{" 'edt-key-not-assigned)
2578 (edt-bind-gold-key-default "]" 'edt-key-not-assigned)
2579 (edt-bind-gold-key-default "}" 'edt-key-not-assigned)
2580 (edt-bind-gold-key-default "`" 'what-line)
2581 (edt-bind-gold-key-default "~" 'edt-key-not-assigned)
2596 (defun edt-keypad-help ()
2662 (describe-function 'edt-keypad-help))
2664 (defun edt-electric-helpify (fun)
2693 (defun edt-electric-keypad-help ()
2696 (edt-electric-helpify 'edt-keypad-help))
2698 (defun edt-electric-user-keypad-help ()
2701 (edt-electric-helpify 'edt-user-keypad-help))
2711 (defun edt-set-screen-width-80 ()
2714 (if (fboundp 'edt-set-term-width-80)
2715 (edt-set-term-width-80))
2719 (defun edt-set-screen-width-132 ()
2722 (if (fboundp 'edt-set-term-width-132)
2723 (edt-set-term-width-132))
2727 (provide 'edt)
2730 ;;; edt.el ends here