Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 304:c6de09ad3017 r21-0b50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b50
author cvs
date Mon, 13 Aug 2007 10:41:12 +0200
parents 558f606b08ae
children d1b52dcaa789
comparison
equal deleted inserted replaced
303:d02ffe1d75ed 304:c6de09ad3017
73 (setq docfile-out-of-date t)) 73 (setq docfile-out-of-date t))
74 (setq processed (cons arg processed))))) 74 (setq processed (cons arg processed)))))
75 (setq command-line-args (cdr command-line-args))) 75 (setq command-line-args (cdr command-line-args)))
76 76
77 ;; Then process the list of Lisp files. 77 ;; Then process the list of Lisp files.
78 (define-function 'defalias 'define-function) 78 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))
79 79
80 (setq load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))) 80 (load "very-early-lisp" nil t)
81 81
82 ;; Then process the autoloads 82 ;; Then process the autoloads
83 (setq autoload-file-name "auto-autoloads.elc") 83 (setq autoload-file-name "auto-autoloads.elc")
84 (setq source-directory (concat default-directory "../lisp")) 84 (setq source-directory (concat default-directory "../lisp"))
85 ;; (print (concat "Source directory: " source-directory)) 85 ;; (print (concat "Source directory: " source-directory))