mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 19:30:38 -08:00
Code Issues Projects Releases Wiki Activity

Fix fatal error during startup (rep. by Friedrich Delgado Friedrichs)

Browse source 
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
This commit is contained in:
Karoly Lorentey 2004-05-18 19:58:00 +00:00
parent c23670f81e
commit 35dfa9b69e
5 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
README.multi-tty
View file

@ -182,6 +182,7 @@ to the project by testing, bug reports, and suggestions. Thanks!
Robert J. Chassell <bob at rattlesnake dot com> Robert J. Chassell <bob at rattlesnake dot com>
Romain Francoise <romain at orebokech dot com> Romain Francoise <romain at orebokech dot com>
Ami Fischman <ami at fischman dot org> Ami Fischman <ami at fischman dot org>
Friedrich Delgado Friedrichs <friedel at nomaden dot org>
Istvan Marko <mi-mtty ar kismala dot com> Istvan Marko <mi-mtty ar kismala dot com>
Dan Nicolaescu <dann at ics dot uci dot edu> Dan Nicolaescu <dann at ics dot uci dot edu>
Gergely Nagy <algernon at debian dot org> Gergely Nagy <algernon at debian dot org>

1
lisp/loadup.el
View file

@ -163,6 +163,7 @@
(load "vmsproc"))) (load "vmsproc")))
(load "abbrev") (load "abbrev")
(load "buff-menu") (load "buff-menu")
(load "server") ; server-getenv is used throughout the terminal initialization code
(if (eq system-type 'vax-vms) (if (eq system-type 'vax-vms)
(progn (progn
(load "vms-patch"))) (load "vms-patch")))

4
lisp/server.el
View file

@ -8,6 +8,7 @@
;; Keywords: processes ;; Keywords: processes
;; Changes by peck@sun.com and by rms. ;; Changes by peck@sun.com and by rms.
;; Overhaul by Karoly Lorentey <lorentey@elte.hu> for multi-tty support.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -872,7 +873,8 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
(global-set-key "\C-x#" 'server-edit) (global-set-key "\C-x#" 'server-edit)
(defsubst server-getenv (variable &optional frame) ;;;###autoload
(defun server-getenv (variable &optional frame)
"Get the value of VARIABLE in the client environment of frame FRAME. "Get the value of VARIABLE in the client environment of frame FRAME.
VARIABLE should be a string. Value is nil if VARIABLE is undefined in VARIABLE should be a string. Value is nil if VARIABLE is undefined in
the environment. Otherwise, value is a string. the environment. Otherwise, value is a string.

1
mac/makefile.MPW
View file

@ -1017,6 +1017,7 @@ LispSource =
{Lisp}international:codepage.elc ¶ {Lisp}international:codepage.elc ¶
{Lisp}abbrev.elc ¶ {Lisp}abbrev.elc ¶
{Lisp}buff-menu.elc ¶ {Lisp}buff-menu.elc ¶
{Lisp}server.elc ¶
{Lisp}byte-run.elc ¶ {Lisp}byte-run.elc ¶
{Lisp}cus-start.el ¶ {Lisp}cus-start.el ¶
{Lisp}custom.elc ¶ {Lisp}custom.elc ¶

2
src/Makefile.in
View file

@ -699,6 +699,7 @@ otherobj= $(termcapobj) lastfile.o $(mallocobj) $(allocaobj) $(widgetobj) $(LIBO
lisp= \ lisp= \
${lispsource}abbrev.elc \ ${lispsource}abbrev.elc \
${lispsource}buff-menu.elc \ ${lispsource}buff-menu.elc \
${lispsource}server.elc \
${lispsource}button.elc \ ${lispsource}button.elc \
${lispsource}emacs-lisp/byte-run.elc \ ${lispsource}emacs-lisp/byte-run.elc \
${lispsource}cus-face.elc \ ${lispsource}cus-face.elc \
@ -791,6 +792,7 @@ lisp= \
shortlisp= \ shortlisp= \
../lisp/abbrev.elc \ ../lisp/abbrev.elc \
../lisp/buff-menu.elc \ ../lisp/buff-menu.elc \
../lisp/server.elc \
../lisp/button.elc \ ../lisp/button.elc \
../lisp/emacs-lisp/byte-run.elc \ ../lisp/emacs-lisp/byte-run.elc \
../lisp/cus-face.elc \ ../lisp/cus-face.elc \