mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Fix typo in `server-handle-delete-frame'; fix startup echo area message.

Browse Source 
* 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
This commit is contained in:
Karoly Lorentey 2006-01-02 08:35:45 +00:00
parent 24f9525b78
commit aabf0cb9f0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/server.el
View File

@ -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