Function: edt-map-key

edt-map-key is an interactive and byte-compiled function defined in edt-mapper.el.gz.

Signature

(edt-map-key IDENT DESCRIP)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/edt-mapper.el.gz
;;;
;;;  Key mapping functions
;;;
(defun edt-map-key (ident descrip)
  (interactive)
  (setq edt-key (read-key-sequence (format "Press %s%s: " ident descrip)))
  (cond ((not (equal edt-key edt-return))
         (set-buffer "Keys")
         (insert (if (vectorp edt-key)
                     (format "    (\"%s\" . %s)\n" ident edt-key)
                   (format "    (\"%s\" . \"%s\")\n" ident edt-key)))
         (set-buffer "Directions"))
        ;; bogosity to get next prompt to come up, if the user hits <CR>!
        ;; check periodically to see if this is still needed...
        (t
         (set-buffer "Keys")
         (insert (format "    (\"%s\" . \"\" )\n" ident))
         (set-buffer "Directions")))
  edt-key)