diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-07-06 00:42:58 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-07-06 00:42:58 +0000 |
| commit | 626ea340bcdbe7ea4ea17b67ead430f2037ac69c (patch) | |
| tree | a0b2dece1a9e1ddd0b92e67f202298d349a52f86 | |
| parent | 4400e7648cda74494f313ba220bfe1b8537f17b3 (diff) | |
| download | emacs-626ea340bcdbe7ea4ea17b67ead430f2037ac69c.tar.gz emacs-626ea340bcdbe7ea4ea17b67ead430f2037ac69c.tar.bz2 emacs-626ea340bcdbe7ea4ea17b67ead430f2037ac69c.zip | |
Small enhancements.
* lisp/international/mule-cmds.el (set-locale-environment): Use
server-getenv, not getenv.
* lisp/server.el (server-handle-delete-frame): Add note on possible race
condition.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-374
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 | ||||
| -rw-r--r-- | lisp/server.el | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 3ff436723ca..a24d45e9c30 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2402,7 +2402,7 @@ See also `locale-charset-language-names', `locale-language-names', (let ((vars '("LC_ALL" "LC_CTYPE" "LANG"))) (while (and vars (= 0 (length locale))) ; nil or empty string - (setq locale (getenv (pop vars)))))) + (setq locale (server-getenv (pop vars)))))) (unless (or locale (not (fboundp 'mac-get-preference))) (setq locale (mac-get-preference "AppleLocale")) @@ -2512,7 +2512,7 @@ See also `locale-charset-language-names', `locale-language-names', ;; Mac OS X's Terminal.app by default uses utf-8 regardless of ;; the locale. (when (and (null window-system) - (equal (getenv "TERM_PROGRAM") "Apple_Terminal")) + (equal (server-getenv "TERM_PROGRAM") "Apple_Terminal")) (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8))) @@ -2530,7 +2530,7 @@ See also `locale-charset-language-names', `locale-language-names', (setq ps-paper-type 'a4))) (let ((vars '("LC_ALL" "LC_PAPER" "LANG"))) (while (and vars (= 0 (length locale))) - (setq locale (getenv (pop vars))))) + (setq locale (server-getenv (pop vars))))) (when locale ;; As of glibc 2.2.5, these are the only US Letter locales, ;; and the rest are A4. diff --git a/lisp/server.el b/lisp/server.el index 6da8527f4e5..91a74d6408d 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -326,6 +326,10 @@ message." (frame-list)) frame-num)))) (server-log (format "server-handle-delete-frame, frame %s" frame) proc) + ;; XXX Deleting the process causes emacsclient to exit + ;; immediately, which might happen before Emacs closes the + ;; display. I think we need a `delete-frame-after-functions' + ;; hook here. (server-delete-client proc 'noframe)))) ; Let delete-frame delete the frame later. (defun server-handle-suspend-tty (display) |