diff options
| author | Karoly Lorentey | 2004-05-23 03:56:10 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-05-23 03:56:10 +0000 |
| commit | 14de9163b46dbdaaf75e3caf617f69c1956d024b (patch) | |
| tree | 8d5102414965649964e47334dbc71816108fa648 /lisp/server.el | |
| parent | 44070fdf1af9b9fd6e5ada81759c9dc749a05ab7 (diff) | |
| download | emacs-14de9163b46dbdaaf75e3caf617f69c1956d024b.tar.gz emacs-14de9163b46dbdaaf75e3caf617f69c1956d024b.zip | |
Use the remote locale for terminal & keyboard coding system.
lisp/international/mule-cmds.el (set-locale-translation-file-name)
(get-locale-real-name, get-locale-coding-system)
(configure-display-for-locale): New functions.
(set-locale-environment): Factored contents into separate functions.
lisp/server.el (server-process-filter): Call
configure-display-for-locale after creating a new terminal frame.
lisp/startup.el (command-line): Call set-locale-translation-file-name.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-171
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index 433d9a7cd26..9758ac1a7cb 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -514,6 +514,8 @@ PROC is the server process. Format of STRING is \"PATH PATH PATH... \\n\"." | |||
| 514 | (select-frame frame) | 514 | (select-frame frame) |
| 515 | (server-client-set client 'frame frame) | 515 | (server-client-set client 'frame frame) |
| 516 | (server-client-set client 'tty (frame-tty-name frame)) | 516 | (server-client-set client 'tty (frame-tty-name frame)) |
| 517 | ;; Set up display for the remote locale. | ||
| 518 | (configure-display-for-locale) | ||
| 517 | ;; Reply with our pid. | 519 | ;; Reply with our pid. |
| 518 | (process-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) | 520 | (process-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) |
| 519 | (setq dontkill t))) | 521 | (setq dontkill t))) |