Show
Ignore:
Timestamp:
05/13/06 11:31:18 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/startup.el

    r4073 r4079  
    821821                                   init-file-user) 
    822822                           :error) 
    823         (if (file-directory-p (expand-file-name (concat "~" init-file-user))) 
     823        (if (file-directory-p (expand-file-name 
     824                               ;; We don't support ~USER on MS-Windows except 
     825                               ;; for the current user, and always load .emacs 
     826                               ;; from the current user's home directory (see 
     827                               ;; below).  So always check "~", even if invoked 
     828                               ;; with "-u USER", or if $USER or $LOGNAME are 
     829                               ;; set to something different. 
     830                               (if (eq system-type 'windows-nt) 
     831                                   "~" 
     832                                 (concat "~" init-file-user)))) 
    824833            nil 
    825834          (display-warning 'initialization 
    …… 
    12991308    (erase-buffer) 
    13001309    (if pure-space-overflow 
    1301         (insert "Warning Warning  Pure space overflow   Warning Warning\n")) 
     1310        (insert "\ 
     1311Warning Warning!!!  Pure space overflow    !!!Warning Warning 
     1312\(See the node Pure Storage in the Lisp manual for details.)\n")) 
    13021313    (fancy-splash-head) 
    13031314    (apply #'fancy-splash-insert text) 
    …… 
    13561367                    buffer-undo-list t 
    13571368                    mode-line-format (propertize "---- %b %-" 
    1358                                                  'face '(:weight bold)) 
     1369                                                 'face 'mode-line-buffer-id) 
    13591370                    fancy-splash-stop-time (+ (float-time) 
    13601371                                              fancy-splash-max-time) 
    …… 
    14051416          (set (make-local-variable 'tab-width) 8) 
    14061417          (set (make-local-variable 'mode-line-format) 
    1407                (propertize "---- %b %-" 'face '(:weight bold))) 
     1418               (propertize "---- %b %-" 'face 'mode-line-buffer-id)) 
    14081419 
    14091420          (if pure-space-overflow 
    1410               (insert "Warning Warning  Pure space overflow   Warning Warning\n")) 
     1421              (insert "\ 
     1422Warning Warning!!!  Pure space overflow    !!!Warning Warning 
     1423\(See the node Pure Storage in the Lisp manual for details.)\n")) 
    14111424 
    14121425          ;; The convention for this piece of code is that 
    …… 
    16211634    (display-warning 
    16221635     'initialization 
    1623      "Building Emacs overflowed pure space.  See \"(elisp)Building Emacs\" for more information." 
    1624      ;; FIXME: Tell the user what kind of problems are possible and how to fix 
    1625      ;; the overflow. 
     1636     "Building Emacs overflowed pure space.  (See the node Pure Storage in the Lisp manual for details.)" 
    16261637     :warning)) 
    16271638