DataMuseum.dk

top - download

    Length: 2408 (0x968)
    Types: TextFile
    Names: »keypad.elc«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/keypad.elc« 

TextFile

(defun keypad-default (char definition) (byte-code "▶c3◀▶08◀	\"▶86◀\f

▶00◀▶c4◀▶08◀	
#▶87◀" [function-keymap char definition lookup-key define-key] 5))

(keypad-default "l" (quote backward-char))

(keypad-default "r" (quote forward-char))

(keypad-default "u" (quote previous-line))

(keypad-default "d" (quote next-line))

(keypad-default "N" (quote scroll-up))

(keypad-default "P" (quote scroll-down))

(keypad-default "C" (quote recenter))

(keypad-default "?" (quote help-command))

(keypad-default "s" (quote set-mark-command))

(keypad-default "k" (quote kill-region))

(keypad-default "f" (quote re-search-forward))

(keypad-default "▶01◀" (quote beginning-of-line))

(keypad-default "▶02◀" (quote end-of-line))

(keypad-default "▶03◀" (quote isearch-forward))

(keypad-default "▶04◀" (quote kill-line))

(keypad-default "." (quote delete-char))

(keypad-default "0" (quote yank))

(keypad-default "e" (quote open-line))

(keypad-default "1" (quote backward-word))

(keypad-default "3" (quote forward-word))

(keypad-default "7" (quote backward-paragraph))

(keypad-default "9" (quote forward-paragraph))

(keypad-default "h" (quote move-to-window-line))

(defun setup-terminal-keymap (map translations) "\
Set up keymap MAP to forward to function-keymap according to TRANSLATIONS.
TRANSLATIONS is an alist; each element of it looks like (FROMSTRING . TOCHAR).
For each such pair, we define the key sequence FROMSTRING in MAP
to forward to the definition of character TOCHAR in function-keymap.
\"Forwarding\" means that subsequent redefinition of TOCHAR in
function-keymap will be seen automatically in MAP as well.

This function is used by files term/*.el to set up the mapping from the
escape sequences sent by function keys on particular terminals (FROMSTRINGs)
into Emacs standard function key slots (TOCHARs).
An actual definition (such as a symbol) may be given in place of TOCHAR.
Generally, MAP is a prefix keymap which will be attached to a key
that is the common prefix sent by all function keys (often ESC O or ESC [)." (byte-code "▶08◀▶85◀&▶00◀▶c3◀	▶08◀@@▶c4◀▶08◀@A!▶83◀▶19◀▶00◀
▶08◀@AB▶82◀▶1c◀▶00◀▶08◀@A#▶88◀▶08◀A▶89◀▶10◀▶88◀▶82◀▶00◀▶00◀▶87◀" [translations map function-keymap define-key numberp] 7))

(defun function-key-sequence (char) "\
Return key sequence for function key that on this terminal
translates into slot CHAR in function-keymap.
Or return nil if there is none." (byte-code "▶c2◀▶08◀	B▶c3◀ \"@▶87◀" [function-keymap char where-is-internal current-local-map] 4))

(provide (quote keypad))