Mercurial > hg > xemacs-beta

comparison lisp/prim/make-docfile.el @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children 489f57a838ef
comparison
equal deleted inserted replaced
186:24ac94803b48 187:b405438285a2
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 (define-function 'defalias 'define-function)
79 (let ((temp-path (expand-file-name ".." (car load-path)))) 79 (let ((temp-path (expand-file-name ".." (car load-path))))
80 (setq load-path (nconc (directory-files temp-path t "^[^-.]" 80 (setq load-path (nconc (mapcar
81 nil 'dirs-only) 81 #'(lambda (i) (concat i "/"))
82 (directory-files temp-path t "^[^-.]"
83 nil 'dirs-only))
82 (cons temp-path load-path)))) 84 (cons temp-path load-path))))
83 85
84 ;; Then process the autoloads 86 ;; Then process the autoloads
85 (setq autoload-file-name "auto-autoloads.elc") 87 (setq autoload-file-name "auto-autoloads.elc")
86 (setq source-directory (concat default-directory "../lisp")) 88 (setq source-directory (concat default-directory "../lisp"))
157 ;; (print (prin1-to-string (append options processed))) 159 ;; (print (prin1-to-string (append options processed)))
158 160
159 (setq exec-path (list (concat default-directory "../lib-src"))) 161 (setq exec-path (list (concat default-directory "../lib-src")))
160 162
161 ;; (locate-file-clear-hashing nil) 163 ;; (locate-file-clear-hashing nil)
162 (if (eq system-type 'berkeley-unix) 164 (if (memq system-type '(berkeley-unix next-mach))
163 ;; Suboptimal, but we have a unresolved bug somewhere in the 165 ;; Suboptimal, but we have a unresolved bug somewhere in the
164 ;; low-level process code 166 ;; low-level process code
165 (call-process-internal 167 (call-process-internal
166 "/bin/csh" 168 "/bin/csh"
167 nil 169 nil