Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/term/rxvt.el Mon Jun 27 02:08:34 2005 +0000 +++ b/lisp/term/rxvt.el Mon Jun 27 03:19:27 2005 +0000 @@ -100,8 +100,8 @@ ;; This way we don't override terminfo-derived settings or settings ;; made in the .emacs file. (let ((m (copy-keymap rxvt-function-map))) - (set-keymap-parent m (keymap-parent function-key-map)) - (set-keymap-parent function-key-map m)) + (set-keymap-parent m (keymap-parent (terminal-local-value 'function-key-map nil))) + (set-keymap-parent (terminal-local-value 'function-key-map nil) m)) ;; Set up colors, for those versions of rxvt that support it.