diff options
| author | Karoly Lorentey | 2005-12-30 06:38:50 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-12-30 06:38:50 +0000 |
| commit | fe74bf608e580606fba358b8e226c3c989d16e33 (patch) | |
| tree | e582da7e78e284e42f284cfc756e9e643916138a | |
| parent | d290c5544069cc5c0f565d63ffe370ee355f630d (diff) | |
| download | emacs-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.el | 13 |
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 |