/[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.380 by jhd, Wed Oct 12 14:22:36 2005 UTC revision 1.381 by rms, Fri Oct 21 17:20:45 2005 UTC
# Line 641  or `CVS', and any subdirectory that cont Line 641  or `CVS', and any subdirectory that cont
641    
642    (set-locale-environment nil)    (set-locale-environment nil)
643    
644      ;; Convert preloaded file names to absolute.
645      (setq load-history
646            (mapcar (lambda (elt)
647                      (if (and (stringp (car elt))
648                               (not (file-name-absolute-p (car elt))))
649                          (cons (locate-file (car elt) load-path
650                                             load-suffixes)
651                                (cdr elt))
652                        elt))
653                    load-history))
654    
655    ;; Convert the arguments to Emacs internal representation.    ;; Convert the arguments to Emacs internal representation.
656    (let ((args (cdr command-line-args)))    (let ((args (cdr command-line-args)))
657      (while args      (while args

Legend:
Removed from v.1.380  
changed lines
  Added in v.1.381

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