aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKaroly Lorentey2004-05-18 19:58:00 +0000
committerKaroly Lorentey2004-05-18 19:58:00 +0000
commit35dfa9b69ea92e3383a5dd325e54fa05e469cc1c (patch)
tree0e12c3df740fde7758a8dd646f7028c3949fe53e /lisp
parentc23670f81e059ebe645c88575f4ddfa67f26bf6b (diff)
downloademacs-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.el1
-rw-r--r--lisp/server.el4
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.
877VARIABLE should be a string. Value is nil if VARIABLE is undefined in 879VARIABLE should be a string. Value is nil if VARIABLE is undefined in
878the environment. Otherwise, value is a string. 880the environment. Otherwise, value is a string.