# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1136190945 0
# Node ID 8eba1344ed4fa1a5bf320d2ccd7f08d8da68e86d
# Parent  1b1b0cb2e2a83bdd2cacbe9d258b6c35f58b63db
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

diff -r 1b1b0cb2e2a8 -r 8eba1344ed4f lisp/server.el
--- a/lisp/server.el	Mon Jan 02 07:54:50 2006 +0000
+++ b/lisp/server.el	Mon Jan 02 08:35:45 2006 +0000
@@ -323,7 +323,7 @@
 	       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 @@
 		(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