Function: calculator-last-input

calculator-last-input is a byte-compiled function defined in calculator.el.gz.

Signature

(calculator-last-input &optional KEYS)

Documentation

Return the last key sequence used to invoke this command, or the input KEYS.

Uses the function-key-map translate keypad numbers to plain ones.

Source Code

;; Defined in /usr/src/emacs/lisp/calculator.el.gz
;;;---------------------------------------------------------------------
;;; Input interaction

(defun calculator-last-input (&optional keys)
  "Return the last key sequence used to invoke this command, or the input KEYS.
Uses the `function-key-map' translate keypad numbers to plain
ones."
  (let* ((inp (or keys (this-command-keys)))
         (inp (or (and (arrayp inp) (not (stringp inp))
                       (lookup-key function-key-map inp))
                  inp)))
    (if (or (not inp) (stringp inp) (not (arrayp inp))
            (catch 'done ; any non-chars?
              (dotimes (i (length inp))
                (unless (characterp (aref inp i)) (throw 'done t)))
              nil))
      inp
      (concat inp))))