Function: edt-remember

edt-remember is an interactive and byte-compiled function defined in edt.el.gz.

Signature

(edt-remember)

Documentation

Store the sequence of key strokes started by edt-learn to a key.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/edt.el.gz
;;;
;;; REMEMBER
;;;

(defun edt-remember ()
  "Store the sequence of key strokes started by `edt-learn' to a key."
  (interactive)
  (if (eq defining-kbd-macro nil)
      (error "Nothing to remember!")
    (progn
      (end-kbd-macro nil)
      (let (edt-key-definition)
        (setq edt-key-definition
              (read-key-sequence "Enter key for binding: "))
	(if (string-equal "\C-m" edt-key-definition)
	    (message "Key sequence not remembered")
	  (progn
            (setq edt-learn-macro-count (+ edt-learn-macro-count 1))
	    (setq edt-last-replaced-key-definition
		  (lookup-key (current-global-map)
			      edt-key-definition))
	    (define-key (current-global-map) edt-key-definition
	      (name-last-kbd-macro
	       (intern (concat "last-learned-sequence-"
			       (int-to-string edt-learn-macro-count)))))))))))