diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-09-09 19:04:34 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-09-09 19:04:34 +0000 |
| commit | af520c4a4e04e55c854bb782af8df8412028c481 (patch) | |
| tree | 10def401ec0f2c648dc480d2ff5185d43ee45f7d /lisp/term/lk201.el | |
| parent | 5b65d888a676b023b7232b460105551e51a58a13 (diff) | |
| download | emacs-af520c4a4e04e55c854bb782af8df8412028c481.tar.gz | |
Fix function-key-map massaging vs `C-x 5 2' in lisp/term/*.el. (Submitted by Dan Nicolaescu.)
* term/lk201.el (terminal-init-lk201):
* term/iris-ansi.el (terminal-init-iris-ansi):
* term/rxvt.el (terminal-init-rxvt): Protect function-key-map
against multiple invocations from the same terminal.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-403
Diffstat (limited to 'lisp/term/lk201.el')
| -rw-r--r-- | lisp/term/lk201.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/term/lk201.el b/lisp/term/lk201.el index 960793ce996..4eb84b65702 100644 --- a/lisp/term/lk201.el +++ b/lisp/term/lk201.el @@ -76,12 +76,16 @@ (define-key lk201-function-map "\eOy" [kp-9])) (defun terminal-init-lk201 () - ;; Use inheritance to let the main keymap override these defaults. - ;; This way we don't override terminfo-derived settings or settings - ;; made in the .emacs file. - (let ((m (copy-keymap lk201-function-map))) - (set-keymap-parent m (keymap-parent (terminal-local-value 'local-function-key-map nil))) - (set-keymap-parent (terminal-local-value 'local-function-key-map nil) m))) + ;; The terminal-local stuff only need to be set up on the first + ;; frame on that device. + (when (eq 1 (length (frames-on-display-list))) + + ;; Use inheritance to let the main keymap override these defaults. + ;; This way we don't override terminfo-derived settings or settings + ;; made in the .emacs file. + (let ((m (copy-keymap lk201-function-map))) + (set-keymap-parent m (keymap-parent (terminal-local-value 'local-function-key-map nil))) + (set-keymap-parent (terminal-local-value 'local-function-key-map nil) m)))) ;;; arch-tag: 7ffb4444-6a23-43e1-b457-43cf4f673c0d ;;; lk201.el ends here |