(force-mode-line-update))
(use-local-map splash-screen-keymap)
(setq tab-width 22)
- (message "%s" (startup-echo-area-message t))
(setq buffer-read-only t)
(goto-char (point-min))
(forward-line 3))))
'follow-link t)
(insert "\tBuying printed manuals from the FSF\n"))
-(defun startup-echo-area-message (&optional about-screen-message)
- (cond ((and (daemonp) (not about-screen-message))
+(defun startup-echo-area-message ()
+ (cond ((daemonp)
"Starting Emacs daemon.")
((eq (key-binding "\C-h\C-a") 'about-emacs)
"For information about GNU Emacs and the GNU system, type C-h C-a.")