aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaroly Lorentey2005-12-30 06:38:50 +0000
committerKaroly Lorentey2005-12-30 06:38:50 +0000
commitfe74bf608e580606fba358b8e226c3c989d16e33 (patch)
treee582da7e78e284e42f284cfc756e9e643916138a
parentd290c5544069cc5c0f565d63ffe370ee355f630d (diff)
downloademacs-fe74bf608e580606fba358b8e226c3c989d16e33.tar.gz
emacs-fe74bf608e580606fba358b8e226c3c989d16e33.zip
Don't display the splash screen when no frame was created. (Fixes tty resume.)
* lisp/server.el (server-process-filter): Don't display the splash screen when no frame was created. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-479
-rw-r--r--lisp/server.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/server.el b/lisp/server.el
index 68c267047fc..a6271c6d00a 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -752,12 +752,13 @@ The following commands are accepted by the client:
752 (setq buffers (server-visit-files files client nowait)) 752 (setq buffers (server-visit-files files client nowait))
753 (run-hooks 'post-command-hook)) 753 (run-hooks 'post-command-hook))
754 754
755 (with-selected-frame frame 755 (when frame
756 (switch-to-buffer (or (car buffers) 756 (with-selected-frame frame
757 (get-buffer-create "*scratch*"))) 757 (switch-to-buffer (or (car buffers)
758 (unless inhibit-splash-screen 758 (get-buffer-create "*scratch*")))
759 (display-splash-screen)) 759 (unless inhibit-splash-screen
760 (display-startup-echo-area-message)) 760 (display-splash-screen))
761 (display-startup-echo-area-message)))
761 762
762 ;; Delete the client if necessary. 763 ;; Delete the client if necessary.
763 (cond 764 (cond