diff options
| author | Karoly Lorentey | 2004-05-18 19:58:00 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-05-18 19:58:00 +0000 |
| commit | 35dfa9b69ea92e3383a5dd325e54fa05e469cc1c (patch) | |
| tree | 0e12c3df740fde7758a8dd646f7028c3949fe53e /lisp | |
| parent | c23670f81e059ebe645c88575f4ddfa67f26bf6b (diff) | |
| download | emacs-35dfa9b69ea92e3383a5dd325e54fa05e469cc1c.tar.gz emacs-35dfa9b69ea92e3383a5dd325e54fa05e469cc1c.zip | |
Fix fatal error during startup (rep. by Friedrich Delgado Friedrichs)
lisp/loadup.el: Unconditionally preload server.
lisp/server.el: Change server-getenv to a simple defun.
src/Makefile.in (lisp, shortlisp): Added server.elc.
mac/makefile.MPW (LispSource): Ditto.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-164
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/loadup.el | 1 | ||||
| -rw-r--r-- | lisp/server.el | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 36b9904f4f1..bb00fe8fbbb 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -163,6 +163,7 @@ | |||
| 163 | (load "vmsproc"))) | 163 | (load "vmsproc"))) |
| 164 | (load "abbrev") | 164 | (load "abbrev") |
| 165 | (load "buff-menu") | 165 | (load "buff-menu") |
| 166 | (load "server") ; server-getenv is used throughout the terminal initialization code | ||
| 166 | (if (eq system-type 'vax-vms) | 167 | (if (eq system-type 'vax-vms) |
| 167 | (progn | 168 | (progn |
| 168 | (load "vms-patch"))) | 169 | (load "vms-patch"))) |
diff --git a/lisp/server.el b/lisp/server.el index 57d4b7600b8..7156b7322e3 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -8,6 +8,7 @@ | |||
| 8 | ;; Keywords: processes | 8 | ;; Keywords: processes |
| 9 | 9 | ||
| 10 | ;; Changes by peck@sun.com and by rms. | 10 | ;; Changes by peck@sun.com and by rms. |
| 11 | ;; Overhaul by Karoly Lorentey <lorentey@elte.hu> for multi-tty support. | ||
| 11 | 12 | ||
| 12 | ;; This file is part of GNU Emacs. | 13 | ;; This file is part of GNU Emacs. |
| 13 | 14 | ||
| @@ -872,7 +873,8 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it." | |||
| 872 | 873 | ||
| 873 | (global-set-key "\C-x#" 'server-edit) | 874 | (global-set-key "\C-x#" 'server-edit) |
| 874 | 875 | ||
| 875 | (defsubst server-getenv (variable &optional frame) | 876 | ;;;###autoload |
| 877 | (defun server-getenv (variable &optional frame) | ||
| 876 | "Get the value of VARIABLE in the client environment of frame FRAME. | 878 | "Get the value of VARIABLE in the client environment of frame FRAME. |
| 877 | VARIABLE should be a string. Value is nil if VARIABLE is undefined in | 879 | VARIABLE should be a string. Value is nil if VARIABLE is undefined in |
| 878 | the environment. Otherwise, value is a string. | 880 | the environment. Otherwise, value is a string. |