From aabf0cb9f0f4dff1f57554ae2862fc280ce2f3a6 Mon Sep 17 00:00:00 2001 From: Karoly Lorentey Date: Mon, 2 Jan 2006 08:35:45 +0000 Subject: [PATCH] Fix typo in `server-handle-delete-frame'; fix startup echo area message. * lisp/server.el (server-handle-delete-frame): Fix typo. * server.el (server-process-filter): Call `display-startup-echo-area-message' before `display-splash-screen'. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-486 --- lisp/server.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index 40806a1b6c3..b9cca58ead4 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -323,7 +323,7 @@ message." proc ;; See if this is the last frame for this client. (< 1 (let ((frame-num 0)) - (dolist ((f (frame-list))) + (dolist (f (frame-list)) (when (eq proc (frame-parameter f 'client)) (setq frame-num (1+ frame-num)))) frame-num))) @@ -755,9 +755,9 @@ The following commands are accepted by the client: (with-selected-frame frame (switch-to-buffer (or (car buffers) (get-buffer-create "*scratch*"))) + (display-startup-echo-area-message)) (unless inhibit-splash-screen - (display-splash-screen)) - (display-startup-echo-area-message))) + (display-splash-screen))) ;; Delete the client if necessary. (cond -- 2.11.4.GIT