From: Stefan Monnier Date: Sat, 1 Sep 2007 02:17:30 +0000 (+0000) Subject: (server-process-filter): Don't display the splash screen. X-Git-Tag: emacs-pretest-23.0.90~11156 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecaf73343a56a8e46c88db245778e122a0696eb7;p=emacs.git (server-process-filter): Don't display the splash screen. It's annoying enough on the initial screen and becomes positively obnoxious here. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1f9f7d6258a..3895f9510ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-09-01 Stefan Monnier + + * 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 * emacs-lisp/avl-tree.el: Use defstruct rather than macros. diff --git a/lisp/server.el b/lisp/server.el index 7e761d3991a..be271051095 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -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