Show
Ignore:
Timestamp:
05/27/06 10:35:24 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/startup.el

    r4079 r4091  
    645645  ;; Convert preloaded file names to absolute. 
    646646  (let ((lisp-dir 
    647          (file-name-directory 
    648           (locate-file "simple" load-path 
    649                        (get-load-suffixes))))) 
     647         (file-truename 
     648          (file-name-directory 
     649           (locate-file "simple" load-path 
     650                        (get-load-suffixes)))))) 
    650651 
    651652    (setq load-history 
    …… 
    654655                             (not (file-name-absolute-p (car elt)))) 
    655656                        (cons (concat lisp-dir 
    656                                       (car elt) 
    657                                       (if (string-match "[.]el$" (car elt)) 
    658                                           "" ".elc")) 
     657                                      (car elt)) 
    659658                              (cdr elt)) 
    660659                      elt))