;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc.
;; Author: Unknown
;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc.
;; Author: Unknown
(string-equal arg "-a") ; Append to DOC file
(string-equal arg "-d")) ; Set working directory
(if (string-equal arg "-o")
(string-equal arg "-a") ; Append to DOC file
(string-equal arg "-d")) ; Set working directory
(if (string-equal arg "-o")
((string-equal arg "-i") ; Set site files to scan
(setq site-file-list (car (cdr command-line-args))))
(t (setq done t)))
((string-equal arg "-i") ; Set site files to scan
(setq site-file-list (car (cdr command-line-args))))
(t (setq done t)))