/[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.275 by rms, Sun Nov 18 06:48:18 2001 UTC revision 1.276 by rms, Sun Nov 25 17:43:04 2001 UTC
# Line 1502  where FACE is a valid face specification Line 1502  where FACE is a valid face specification
1502                 ;; has selected another buffer.                 ;; has selected another buffer.
1503                 (string= (buffer-name) "*scratch*")                 (string= (buffer-name) "*scratch*")
1504                 ;; Don't display startup screen if init file                 ;; Don't display startup screen if init file
1505                   ;; has started some sort of server.
1506                   (process-list)
1507                   ;; Don't display startup screen if init file
1508                 ;; has inserted some text in *scratch*.                 ;; has inserted some text in *scratch*.
1509                 (= 0 (buffer-size)))                 (= 0 (buffer-size)))
1510        ;; Display a startup screen, after some preparations.        ;; Display a startup screen, after some preparations.
# Line 1542  where FACE is a valid face specification Line 1545  where FACE is a valid face specification
1545        ;; If user typed input during all that work,        ;; If user typed input during all that work,
1546        ;; abort the startup screen.  Otherwise, display it now.        ;; abort the startup screen.  Otherwise, display it now.
1547        (when (not (input-pending-p))        (when (not (input-pending-p))
1548          (with-temp-buffer          (with-current-buffer (get-buffer-create "GNU Emacs")
1549            (if (and (display-graphic-p)            (if (and (display-graphic-p)
1550                     (use-fancy-splash-screens-p))                     (use-fancy-splash-screens-p))
1551                (fancy-splash-screens)                (fancy-splash-screens)
1552              (let ((tab-width 8))              (let ((tab-width 8)
1553                      (mode-line-format (propertize "---- %b %-"
1554                                                    'face '(:weight bold))))
1555    
1556                ;; The convention for this piece of code is that                ;; The convention for this piece of code is that
1557                ;; each piece of output starts with one or two newlines                ;; each piece of output starts with one or two newlines
1558                ;; and does not end with any newlines.                ;; and does not end with any newlines.
# Line 1666  Type \\[describe-distribution] for infor Line 1672  Type \\[describe-distribution] for infor
1672                (goto-char (point-min))                (goto-char (point-min))
1673                (save-window-excursion                (save-window-excursion
1674                  (switch-to-buffer (current-buffer))                  (switch-to-buffer (current-buffer))
1675                  (sit-for 120)))))))))                  (sit-for 120)))))
1676            (kill-buffer "GNU Emacs")))))
1677    
1678    
1679  (defun command-line-normalize-file-name (file)  (defun command-line-normalize-file-name (file)

Legend:
Removed from v.1.275  
changed lines
  Added in v.1.276

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