Mercurial > emacs
diff lisp/server.el @ 83446:8eba1344ed4f
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 | 00c55c52afd8 |
| children | a78c6255d3be |
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