Mercurial > emacs
comparison lisp/term/rxvt.el @ 83326:8eafadd7838b
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
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 27 Jun 2005 03:19:27 +0000 |
parents | 102194c6d773 |
children | efa9e4606e7e |
comparison
equal
deleted
inserted
replaced
83325:9e41c80c6389 | 83326:8eafadd7838b |
---|---|
98 | 98 |
99 ;; Use inheritance to let the main keymap override those defaults. | 99 ;; Use inheritance to let the main keymap override those defaults. |
100 ;; This way we don't override terminfo-derived settings or settings | 100 ;; This way we don't override terminfo-derived settings or settings |
101 ;; made in the .emacs file. | 101 ;; made in the .emacs file. |
102 (let ((m (copy-keymap rxvt-function-map))) | 102 (let ((m (copy-keymap rxvt-function-map))) |
103 (set-keymap-parent m (keymap-parent function-key-map)) | 103 (set-keymap-parent m (keymap-parent (terminal-local-value 'function-key-map nil))) |
104 (set-keymap-parent function-key-map m)) | 104 (set-keymap-parent (terminal-local-value 'function-key-map nil) m)) |
105 | 105 |
106 | 106 |
107 ;; Set up colors, for those versions of rxvt that support it. | 107 ;; Set up colors, for those versions of rxvt that support it. |
108 (defvar rxvt-standard-colors | 108 (defvar rxvt-standard-colors |
109 ;; The names of the colors in the comments taken from the rxvt.1 man | 109 ;; The names of the colors in the comments taken from the rxvt.1 man |