/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.278 by eliz, Mon Nov 26 19:40:54 2001 UTC revision 1.279 by rms, Mon Nov 26 20:15:26 2001 UTC
# Line 1546  where FACE is a valid face specification Line 1546  where FACE is a valid face specification
1546        ;; If user typed input during all that work,        ;; If user typed input during all that work,
1547        ;; abort the startup screen.  Otherwise, display it now.        ;; abort the startup screen.  Otherwise, display it now.
1548        (when (not (input-pending-p))        (when (not (input-pending-p))
1549          (with-current-buffer (get-buffer-create "GNU Emacs")          (if (and (display-graphic-p)
1550            (if (and (display-graphic-p)                   (use-fancy-splash-screens-p))
1551                     (use-fancy-splash-screens-p))              (fancy-splash-screens)
1552                (fancy-splash-screens)            (with-current-buffer (get-buffer-create "GNU Emacs")
1553              (let ((tab-width 8)              (let ((tab-width 8)
1554                    (mode-line-format (propertize "---- %b %-"                    (mode-line-format (propertize "---- %b %-"
1555                                                  'face '(:weight bold))))                                                  'face '(:weight bold))))
# Line 1673  Type \\[describe-distribution] for infor Line 1673  Type \\[describe-distribution] for infor
1673                (goto-char (point-min))                (goto-char (point-min))
1674                (save-window-excursion                (save-window-excursion
1675                  (switch-to-buffer (current-buffer))                  (switch-to-buffer (current-buffer))
1676                  (sit-for 120)))))                  (sit-for 120))))
1677          (kill-buffer "GNU Emacs")))))            (kill-buffer "GNU Emacs"))))))
1678    
1679    
1680  (defun command-line-normalize-file-name (file)  (defun command-line-normalize-file-name (file)

Legend:
Removed from v.1.278  
changed lines
  Added in v.1.279

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26