diff options
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)))) |