diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-06-27 03:19:27 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-06-27 03:19:27 +0000 |
| commit | ff2fc632a5f3a53ab1ad59388d18182656399c40 (patch) | |
| tree | 1ad1a650e9a2785246f761832fc083cd3e401579 /lisp/term/tvi970.el | |
| parent | 2a42d44084e05d60f28a51609aa7c12fb547fffe (diff) | |
| download | emacs-ff2fc632a5f3a53ab1ad59388d18182656399c40.tar.gz | |
Use terminal-local-value to access function-key-map in terminal packages.
* lisp/term/AT386.el: Wrap function-key-map accesses in (set-)terminal-local-value.
* lisp/term/internal.el: Ditto.
* lisp/term/iris-ansi.el: Ditto.
* lisp/term/lk201.el: Ditto.
* lisp/term/mac-win.el: Ditto.
* lisp/term/news.el: Ditto.
* lisp/term/rxvt.el: Ditto.
* lisp/term/sun.el: Ditto.
* lisp/term/tvi970.el: Ditto.
* lisp/term/wyse50.el: Ditto.
* lisp/term/x-win.el: Ditto.
* lisp/term/xterm.el: Ditto.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-366
Diffstat (limited to 'lisp/term/tvi970.el')
| -rw-r--r-- | lisp/term/tvi970.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el index 425ac200927..d09cafec178 100644 --- a/lisp/term/tvi970.el +++ b/lisp/term/tvi970.el @@ -28,14 +28,14 @@ ;;; Code: -(or (lookup-key function-key-map "\e[") - (define-key function-key-map "\e[" (make-keymap))) -;; (or (lookup-key function-key-map "\eO") -;; (define-key function-key-map "\eO" (make-keymap))) +(or (lookup-key (terminal-local-value 'function-key-map nil) "\e[") + (define-key (terminal-local-value 'function-key-map nil) "\e[" (make-keymap))) +;; (or (lookup-key (terminal-local-value 'function-key-map nil) "\eO") +;; (define-key (terminal-local-value 'function-key-map nil) "\eO" (make-keymap))) ;; Miscellaneous keys (mapcar (function (lambda (key-binding) - (define-key function-key-map + (define-key (terminal-local-value 'function-key-map nil) (car key-binding) (nth 1 key-binding)))) '( ;; These are set up by termcap or terminfo @@ -84,17 +84,17 @@ ;; The numeric keypad keys. (let ((i 0)) (while (< i 10) - (define-key function-key-map + (define-key (terminal-local-value 'function-key-map nil) (format "\eO%c" (+ i ?p)) (vector (intern (format "kp-%d" i)))) (setq i (1+ i)))) ;; The numbered function keys. (let ((i 0)) (while (< i 16) - (define-key function-key-map + (define-key (terminal-local-value 'function-key-map nil) (format "\e?%c" (+ i ?a)) (vector (intern (format "f%d" (1+ i))))) - (define-key function-key-map + (define-key (terminal-local-value 'function-key-map nil) (format "\e?%c" (+ i ?A)) (vector (intern (format "S-f%d" (1+ i))))) (setq i (1+ i)))) |