Mercurial > emacs

comparison lisp/term/news.el @ 2240:8638238fa65f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix things so that bindings are added to the keymap already created by terminal initialization.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 18 Mar 1993 03:35:08 +0000
parents b43b95612c90
children f3c8ed7fcb45
comparison
equal deleted inserted replaced
2239:be1ff9cf72eb 2240:8638238fa65f
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 (if (boundp 'news-fkey-prefix) 31 (if (boundp 'news-fkey-prefix)
32 nil 32 nil
33 (setq news-fkey-prefix (make-keymap)) ; "<ESC>O" commands 33 ;; The terminal initialization should already have set up some keys
34 (define-key function-key-map "\eO" news-fkey-prefix) 34 (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
35 (if (not (keymapp news-fkey-prefix))
36 (error "What? Your news termcap/terminfo has no keycaps in it."))
35 37
36 ;; Termcap or terminfo will set these 38 ;; Termcap or terminfo will set these
37 ;; (define-key news-fkey-prefix "P" [f1]) 39 ;; (define-key news-fkey-prefix "P" [f1])
38 ;; (define-key news-fkey-prefix "Q" [f2]) 40 ;; (define-key news-fkey-prefix "Q" [f2])
39 ;; (define-key news-fkey-prefix "R" [f3]) 41 ;; (define-key news-fkey-prefix "R" [f3])