Function: tpu-arrow-history

tpu-arrow-history is an interactive and byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-arrow-history)

Documentation

Modify minibuffer maps to use arrows for history recall.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-arrow-history nil
  "Modify minibuffer maps to use arrows for history recall."
  (interactive)
  (dolist (cur (where-is-internal #'tpu-previous-line))
    (define-key read-expression-map cur #'tpu-previous-history-element)
    (define-key minibuffer-local-map cur #'tpu-previous-history-element)
    ;; These are inherited anyway.  --Stef
    ;; (define-key minibuffer-local-ns-map cur 'tpu-previous-history-element)
    ;; (define-key minibuffer-local-completion-map cur 'tpu-previous-history-element)
    ;; (define-key minibuffer-local-must-match-map cur 'tpu-previous-history-element)
    )

  (dolist (cur (where-is-internal #'tpu-next-line))
    (define-key read-expression-map cur #'tpu-next-history-element)
    (define-key minibuffer-local-map cur #'tpu-next-history-element)
    ;; These are inherited anyway.  --Stef
    ;; (define-key minibuffer-local-ns-map cur 'tpu-next-history-element)
    ;; (define-key minibuffer-local-completion-map cur 'tpu-next-history-element)
    ;; (define-key minibuffer-local-must-match-map cur 'tpu-next-history-element)
    ))