comparison lisp/startup.el @ 80113:5b4e8ae6e892

(fancy-startup-screen, normal-splash-screen): Set default-directory to command-line-default-directory.

80112:c0a87fab3914

splash screen in another window."
  (let ((splash-buffer (get-buffer-create "*GNU Emacs*")))
    (with-current-buffer splash-buffer
      (let ((inhibit-read-only t))
	(erase-buffer)
	(make-local-variable 'startup-screen-inhibit-startup-screen)
	(if pure-space-overflow
	    (insert pure-space-overflow-message))
	(unless concise
	  (fancy-splash-head))

after Emacs starts.  If STARTUP is nil, display the About screen."
  (let ((prev-buffer (current-buffer)))
    (with-current-buffer (get-buffer-create "*About GNU Emacs*")
      (setq buffer-read-only nil)
      (erase-buffer)
      (set (make-local-variable 'tab-width) 8)
      (if (not startup)
	  (set (make-local-variable 'mode-line-format)
	       (propertize "---- %b %-" 'face 'mode-line-buffer-id)))

80113:5b4e8ae6e892

splash screen in another window."
  (let ((splash-buffer (get-buffer-create "*GNU Emacs*")))
    (with-current-buffer splash-buffer
      (let ((inhibit-read-only t))
	(erase-buffer)
	(setq default-directory command-line-default-directory)
	(make-local-variable 'startup-screen-inhibit-startup-screen)
	(if pure-space-overflow
	    (insert pure-space-overflow-message))
	(unless concise
	  (fancy-splash-head))

after Emacs starts.  If STARTUP is nil, display the About screen."
  (let ((prev-buffer (current-buffer)))
    (with-current-buffer (get-buffer-create "*About GNU Emacs*")
      (setq buffer-read-only nil)
      (erase-buffer)
      (setq default-directory command-line-default-directory)
      (set (make-local-variable 'tab-width) 8)
      (if (not startup)
	  (set (make-local-variable 'mode-line-format)
	       (propertize "---- %b %-" 'face 'mode-line-buffer-id)))