Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 5a2589c672dc
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; make-docfile.el --- Cache docstrings in external file 1 ;;; make-docfile.el --- Cache docstrings in external file
2 2
3 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Unknown 5 ;; Author: Unknown
6 ;; Maintainer: Steven L Baur <steve@altair.xemacs.org> 6 ;; Maintainer: Steven L Baur <steve@xemacs.org>
7 ;; Keywords: internal 7 ;; Keywords: internal
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
49 (let ((arg (car command-line-args))) 49 (let ((arg (car command-line-args)))
50 (cond ((or (string-equal arg "-o") ; Specify DOC file name 50 (cond ((or (string-equal arg "-o") ; Specify DOC file name
51 (string-equal arg "-a") ; Append to DOC file 51 (string-equal arg "-a") ; Append to DOC file
52 (string-equal arg "-d")) ; Set working directory 52 (string-equal arg "-d")) ; Set working directory
53 (if (string-equal arg "-o") 53 (if (string-equal arg "-o")
54 (setq docfile (car (cdr command-line-args)))) 54 (setq docfile (expand-file-name (car (cdr command-line-args)))))
55 (setq options (cons arg options)) 55 (setq options (cons arg options))
56 (setq options (cons (car (cdr command-line-args)) options))) 56 (setq options (cons (expand-file-name (car (cdr command-line-args))) options)))
57 ((string-equal arg "-i") ; Set site files to scan 57 ((string-equal arg "-i") ; Set site files to scan
58 (setq site-file-list (car (cdr command-line-args)))) 58 (setq site-file-list (car (cdr command-line-args))))
59 (t (setq done t))) 59 (t (setq done t)))
60 (if (null done) 60 (if (null done)
61 (setq command-line-args (cdr (cdr command-line-args))))))) 61 (setq command-line-args (cdr (cdr command-line-args)))))))
89 (setq 89 (setq
90 load-path 90 load-path
91 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH")))) 91 (nconc load-path (split-path (getenv "EMACSBOOTSTRAPLOADPATH"))))
92 92
93 (let (preloaded-file-list) 93 (let (preloaded-file-list)
94 (load (concat default-directory "../lisp/dumped-lisp.el")) 94 (load (expand-file-name "../lisp/dumped-lisp.el"))
95 95
96 (let ((package-preloaded-file-list 96 (let ((package-preloaded-file-list
97 (packages-collect-package-dumped-lisps late-package-load-path))) 97 (packages-collect-package-dumped-lisps late-package-load-path)))
98 98
99 (setq preloaded-file-list 99 (setq preloaded-file-list