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/internal.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/internal.el')
| -rw-r--r-- | lisp/term/internal.el | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index 87a78d2e9a2..c5a515f14cd 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -28,20 +28,21 @@ ;; --------------------------------------------------------------------------- ;; keyboard setup -- that's simple! (set-input-mode nil nil 0) -(define-key function-key-map [backspace] "\177") ; Normal behaviour for BS -(define-key function-key-map [delete] "\C-d") ; ... and Delete -(define-key function-key-map [tab] [?\t]) -(define-key function-key-map [linefeed] [?\n]) -(define-key function-key-map [clear] [11]) -(define-key function-key-map [return] [13]) -(define-key function-key-map [escape] [?\e]) -(define-key function-key-map [M-backspace] [?\M-\d]) -(define-key function-key-map [M-delete] [?\M-d]) -(define-key function-key-map [M-tab] [?\M-\t]) -(define-key function-key-map [M-linefeed] [?\M-\n]) -(define-key function-key-map [M-clear] [?\M-\013]) -(define-key function-key-map [M-return] [?\M-\015]) -(define-key function-key-map [M-escape] [?\M-\e]) +(let (m (terminal-local-value 'function-key-map nil)) + (define-key m [backspace] "\177") ; Normal behaviour for BS + (define-key m [delete] "\C-d") ; ... and Delete + (define-key m [tab] [?\t]) + (define-key m [linefeed] [?\n]) + (define-key m [clear] [11]) + (define-key m [return] [13]) + (define-key m [escape] [?\e]) + (define-key m [M-backspace] [?\M-\d]) + (define-key m [M-delete] [?\M-d]) + (define-key m [M-tab] [?\M-\t]) + (define-key m [M-linefeed] [?\M-\n]) + (define-key m [M-clear] [?\M-\013]) + (define-key m [M-return] [?\M-\015]) + (define-key m [M-escape] [?\M-\e])) (put 'backspace 'ascii-character 127) (put 'delete 'ascii-character 127) (put 'tab 'ascii-character ?\t) |