comparison lisp/loadup.el @ 9442:973eafd9f349

Write the subdirs.el file.

9441:ab020bbb761f

      (garbage-collect)))
(if (fboundp 'atan)	; preload some constants and 
    (progn		; floating pt. functions if 
      (garbage-collect)	; we have float support.
      (load "float-sup")))
(garbage-collect)
(load "vc-hooks")

;; We specify .el in case someone compiled version.el by mistake.
(load "version.el")

;If you want additional libraries to be preloaded and their

9442:973eafd9f349

      (garbage-collect)))
(if (fboundp 'atan)	; preload some constants and 
    (progn		; floating pt. functions if 
      (garbage-collect)	; we have float support.
      (load "float-sup")))

(garbage-collect)
(load "vc-hooks")

;; Write a file subdirs.el into the Lisp directory
;; containing the names of the subdirs of that directory
;; which we should check for Lisp files.
(message "Writing subdirs.el...")
(let ((files (directory-files "../lisp/" nil nil t))
      (buffer-undo-list t)
      new)
  (while files
    (if (and (not (member (car files) '("." ".." "term" "RCS")))
	     (not (string-match "\\.elc?$" (car files)))
	     (file-directory-p (expand-file-name (car files) "../lisp/")))
	(setq new (cons (car files) new)))
    (setq files (cdr files)))
  (insert ";; In load-path, after this directory should come\n")
  (insert ";; certain of its subdirectories.  Here we specify them.\n")
  (prin1 (list 'normal-top-level-add-to-load-path
	       (list 'quote new)) (current-buffer))
  (write-region (point-min) (point-max)
		(expand-file-name "subdirs.el" "../lisp/"))
  (erase-buffer))

;; We specify .el in case someone compiled version.el by mistake.
(load "version.el")

;If you want additional libraries to be preloaded and their