server-start can kill the wrong process

[Kalle Olavi Niemitalo]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Start Emacs with "emacs --no-init-file --no-site-file".
Run M-x shell RET.
Run M-x server-start RET.
The shell dies; it shouldn't.

This happens because of the following form in server-start:

  ;; kill it dead!
  (condition-case () (delete-process server-process) (error nil))

If there is no server process yet, (delete-process nil) gets
called, which then kills the process of the current buffer.

In GNU Emacs 21.3.50.15 (i386-pc-linux-gnu)
 of 2003-07-09 on Astalo
configured using `configure '--prefix=/home/kalle' 
'--exec-prefix=/home/kalle/i386-pc-linux-gnu' '--host=i386-pc-linux-gnu' 
'--build=i386-pc-linux-gnu' '--enable-maintainer-mode' '--with-xpm' 
'--with-jpeg' '--with-tiff' '--with-gif' '--with-png' '--with-gtk' 'CFLAGS=-O2 
-g -Wall -W' 'CPPFLAGS=-I/home/kalle/include' 
'LDFLAGS=-L/home/kalle/i386-pc-linux-gnu/lib' 'build_alias=i386-pc-linux-gnu' 
'host_alias=i386-pc-linux-gnu''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: address@hidden
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Recent input:
M-x d e b i C-g M-x s h e l l <return> C-e s M-x s 
e r v e r SPC s t a r t <return> C-h f s e r v e r 
- s t a r t <return> C-x o C-e M-b <return> C-x 1 <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> M-f M-f M-f M-f M-f C-h v <return> 
M-b M-b C-h f <return> M-x r e p o r t SPC e m <tab> 
<return>

Recent messages:
Loading regexp-opt...done
Loading font-lock (compiled; note, source file is newer)...done
Loading server...done
Loading help-fns...done
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Loading pp...done
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Loading emacsbug...
Source file `/home/kalle/share/emacs/21.3.50/lisp/mail/sendmail.el' newer than 
byte-compiled file
Loading emacsbug...done