(server-process-filter): Don't display the splash screen.

It's annoying enough on the initial screen and becomes positively
obnoxious here.
This commit is contained in:
Stefan Monnier 2007-09-01 02:17:30 +00:00
parent bdca334beb
commit ecaf73343a
2 changed files with 6 additions and 14 deletions

View file

@ -1,3 +1,9 @@
2007-09-01 Stefan Monnier <monnier@iro.umontreal.ca>
* server.el (server-process-filter): Don't display the splash screen.
It's annoying enough on the initial screen and becomes positively
obnoxious here.
2007-08-31 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/avl-tree.el: Use defstruct rather than macros.

View file

@ -904,20 +904,6 @@ The following commands are accepted by the client:
(setq buffers (server-visit-files files client nowait))
(run-hooks 'post-command-hook))
(when frame
(with-selected-frame frame
(display-startup-echo-area-message)
(unless inhibit-splash-screen
(condition-case err
;; This looks scary because `fancy-splash-screens'
;; will call `recursive-edit' from a process filter.
;; However, that should be safe to do now.
(display-splash-screen t)
;; `recursive-edit' will throw an error if Emacs is
;; already doing a recursive edit elsewhere. Catch it
;; here so that we can finish normally.
(error nil)))))
;; Delete the client if necessary.
(cond
(nowait