Function: calc-read-key-sequence

calc-read-key-sequence is a byte-compiled function defined in calc.el.gz.

Signature

(calc-read-key-sequence PROMPT MAP)

Documentation

Read keys, with prompt PROMPT and keymap MAP.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun calc-read-key-sequence (prompt map)
  "Read keys, with prompt PROMPT and keymap MAP."
  (let ((glob (current-global-map))
	(loc (current-local-map)))
    (or (input-pending-p) (message "%s" prompt))
    (let ((key (read-event))
	  (input-method-function nil))
      (calc-unread-command key)
      (unwind-protect
	  (progn
	    (use-global-map map)
	    (use-local-map nil)
	    (read-key-sequence nil))
	(use-global-map glob)
	(use-local-map loc)))))