Mercurial > emacs

changeset 83446:8eba1344ed4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 02 Jan 2006 08:35:45 +0000
parents 1b1b0cb2e2a8
children a78c6255d3be
files lisp/server.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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