lisp/emulation/edt.el

53 ;; You can have the EDT Emulation start up automatically, each time
92 ;;      NOTE: Another way to set the scroll margins is to use the
107 ;;      restore `query-replace' to GOLD-Enter, then use an EDT user
123 ;;      particular X server in use is loaded correctly automatically.
131 ;;      configured for use with EDT Emulation.  (Note: In a few rare
184   (defvar edt-last-copied-word)
191   (defvar time-string)
218 (defcustom edt-use-EDT-control-key-bindings nil
223 use within the EDT emulation."
236 representations, which you can also use:
270 (defvar edt-last-deleted-lines ""
273 (defvar edt-last-deleted-words ""
276 (defvar edt-last-deleted-chars ""
279 (defvar edt-find-last-text ""
288 (defvar edt-last-replaced-key-definition nil
356 (defvar edt-last-copied-word nil
429 ;;; 24-line window.  That's two-thirds of the window at a time.  The
433 ;;; two-thirds of the current window at a time.
699       (set 'edt-find-last-text (read-string "Search forward: ")))
714     (if (search-forward edt-find-last-text)
716 	  (search-backward edt-find-last-text)
731       (set 'edt-find-last-text (read-string "Search backward: ")))
746     (if (search-backward edt-find-last-text)
754   (set 'edt-find-last-text (read-string "Search: "))
782     (if (search-forward edt-find-last-text nil t)
784 	  (search-backward edt-find-last-text)
794 	(error "Search failed: \"%s\"" edt-find-last-text))))
814     (if (not (search-backward edt-find-last-text nil t))
815 	(error "Search failed: \"%s\"" edt-find-last-text)
833   "Append this kill region to last killed region."
853     (setq edt-last-deleted-lines
869     (setq edt-last-deleted-lines
923     (setq edt-last-deleted-lines
938     (setq edt-last-deleted-words (buffer-substring beg (point)))
952     (setq edt-last-deleted-words (buffer-substring (point) beg))
964   (setq edt-last-deleted-chars
977   (setq edt-last-deleted-chars
989   (insert edt-last-deleted-lines)
1000   (insert edt-last-deleted-words)
1011   (insert edt-last-deleted-chars)
1019   "Replace marked section with last CUT (killed) text."
1063   "Return the location of the last match beginning."
1067   "Return the location of the last match end."
1177 The current key definition is saved in `edt-last-replaced-key-definition'.
1178 Use `edt-restore-key' to restore last replaced key definition."
1194 	    (setq edt-last-replaced-key-definition
1481   "Restore last replaced key definition.
1482 Definition is stored in `edt-last-replaced-key-definition'."
1485   (if edt-last-replaced-key-definition
1496 		edt-key-definition edt-last-replaced-key-definition)
1554 ;;; Scroll a window (less one line) at a time.  Leave cursor in center of
1743             (setq edt-last-copied-word (buffer-substring beg (point))))
1746           (insert edt-last-copied-word))
1789 (defun edt-display-the-time ()
1790   "Display the current time."
1793   (message "%s" (current-time-string)))
1826 	    (setq edt-last-replaced-key-definition
1830 	      (name-last-kbd-macro
1831 	       (intern (concat "last-learned-sequence-"
2018 (defvar edt-last-answer nil
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)
2054 type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid
2093      use it!  Perhaps it's lying around here someplace. \n     ")
2144 	    ;; Strip off last hyphen and what follows, then try again
2181   ;;  Otherwise, use the default bindings.
2189   (use-global-map global-map)
2263   (use-global-map edt-default-global-map)
2281         (use-global-map edt-user-global-map)
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
2469         (edt-bind-key-default "\C-t" 'edt-display-the-time)