(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:
parent
bdca334beb
commit
ecaf73343a
2 changed files with 6 additions and 14 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue