Mercurial > emacs
comparison lisp/server.el @ 83131:24e9d5ea9a88
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sun, 23 May 2004 03:56:10 +0000 |
| parents | 20f9fa3c5131 |
| children | 0c9a34bef526 |
comparison
equal
deleted
inserted
replaced
| 83130:20f9fa3c5131 | 83131:24e9d5ea9a88 |
|---|---|
| 512 (setq frame (make-frame-on-tty tty type)) | 512 (setq frame (make-frame-on-tty tty type)) |
| 513 (modify-frame-parameters frame (list (cons 'client proc))) | 513 (modify-frame-parameters frame (list (cons 'client proc))) |
| 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))) |
| 520 | 522 |
| 521 ;; -position LINE: Go to the given line in the next file. | 523 ;; -position LINE: Go to the given line in the next file. |