Vin Shelton <acs(a)xemacs.org> writes:
I get the following errors when I attempt to build the latest
packages
from CVS with a 21.1.9 mule XEmacs:
xemacs -no-autoloads -batch -l ../../package-compile.el -- -- compile.el
Loading /usr/local/xemacs-mule/lib/xemacs-21.1.9/lisp/auto-autoloads...
Compiling /usr/local/build/xemacs-packages-2000-02-13/libs/xemacs-base/compile.el...
While compiling compilation-build-compilation-error-regexp-alist in file
/usr/local/build/xemacs-packages-2000-02-13/libs/xemacs-base/compile.el:
** reference to free variable compilation-error-regexp-systems-list
** reference to free variable compilation-error-regexp-alist-alist
** assignment to free variable compilation-error-regexp-alist
While compiling compilation-buffer-p:
** defsubst compilation-buffer-p was used before it was defined
While compiling compilation-find-file:
** variable fi bound but not referenced
While compiling toplevel forms:
** reference to free variable formats
** assignment to free variable formats
** reference to free variable filename
** assignment to free variable filename
** reference to free variable dir
** reference to free variable marker
!! Invalid read syntax ((")"))
Done
compile.el has some garbage. The original patch looks fine.
Probably patch program got something wrong. For other
errors, I only tested libs directory but I think this will
eliminate those errors, too. I'll apply following patch in
a short time.
2000-02-16 Yoshiki Hayashi <yoshiki(a)xemacs.org>
* compile.el: Delete garbage.
Index: compile.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-packages/libs/xemacs-base/compile.el,v
retrieving revision 1.12
diff -u -r1.12 compile.el
--- compile.el 2000/02/12 21:05:48 1.12
+++ compile.el 2000/02/16 04:49:54
@@ -1649,46 +1649,6 @@
(and (file-exists-p name)
(find-file-noselect name)))))))))
-
- (or formats (setq formats '("%s")))
- (let ((dirs compilation-search-path)
- buffer thisdir fmts name)
- (if (file-name-absolute-p filename)
- ;; The file name is absolute. Use its explicit directory as
- ;; the first in the search path, and strip it from FILENAME.
- (setq filename (abbreviate-file-name (expand-file-name filename))
- dirs (cons (file-name-directory filename) dirs)
- filename (file-name-nondirectory filename)))
- ;; Now search the path.
- (while (and dirs (null buffer))
- (setq thisdir (or (car dirs) dir)
- fmts formats)
- ;; For each directory, try each format string.
- (while (and fmts (null buffer))
- (setq name (expand-file-name (format (car fmts) filename) thisdir)
- buffer (and (file-exists-p name)
- (find-file-noselect name))
- fmts (cdr fmts)))
- (setq dirs (cdr dirs)))
- (or buffer
- ;; The file doesn't exist.
- ;; Ask the user where to find it.
- ;; If he hits C-g, then the next time he does
- ;; next-error, he'll skip past it.
- (let* ((pop-up-windows t)
- (w (display-buffer (marker-buffer marker))))
- (set-window-point w marker)
- (set-window-start w marker)
- (let ((name (expand-file-name
- (read-file-name
- (format "Find this error in: (default %s) "
- filename)
- dir filename t))))
- (if (file-directory-p name)
- (setq name (expand-file-name filename name)))
- (and (file-exists-p name)
- (find-file-noselect name)))))))
-
;; Set compilation-error-list to nil, and unchain the markers that point to the
;; error messages and their text, so that they no longer slow down gap motion.
;; This would happen anyway at the next garbage collection, but it is better to
--
Yoshiki Hayashi