Mercurial > hg > xemacs-beta

comparison lisp/prim/make-docfile.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 2d532a89d707
children e121b013d1f0
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
154 ;; (print (prin1-to-string (append options processed))) 154 ;; (print (prin1-to-string (append options processed)))
155 155
156 (setq exec-path (list (concat default-directory "../lib-src"))) 156 (setq exec-path (list (concat default-directory "../lib-src")))
157 157
158 ;; (locate-file-clear-hashing nil) 158 ;; (locate-file-clear-hashing nil)
159 (apply 'call-process-internal 159 (if (eq system-type 'berkeley-unix)
160 ;; (concat default-directory "../lib-src/make-docfile") 160 ;; Suboptimal, but we have a unresolved bug somewhere in the
161 "make-docfile" 161 ;; low-level process code
162 nil 162 (call-process-internal
163 t 163 "/bin/csh"
164 nil 164 nil
165 (append options processed)) 165 t
166 nil
167 "-fc"
168 (mapconcat
169 'identity
170 (append
171 (list (concat default-directory "../lib-src/make-docfile"))
172 options processed)
173 " "))
174 (apply 'call-process-internal
175 ;; (concat default-directory "../lib-src/make-docfile")
176 "make-docfile"
177 nil
178 t
179 nil
180 (append options processed)))
166 181
167 (princ "Spawning make-docfile ...done\n") 182 (princ "Spawning make-docfile ...done\n")
168 ;; (write-region-internal (point-min) (point-max) "/tmp/DOC") 183 ;; (write-region-internal (point-min) (point-max) "/tmp/DOC")
169 ) 184 )
170 (princ "DOC file is up to date\n")) 185 (princ "DOC file is up to date\n"))