Commits

Anonymous committed 1ddd50a

2002-05-04 Stephen J. Turnbull <stephen@xemacs.org>

* liece-make.el (config-liece-package-directory):
* liece-config.el (PACKAGEDIR):
Handle case when dirs is nil.

* Makefile.lisp (package): Preload advice.

  • Participants
  • Parent commits ad85a43

Comments (0)

Files changed (4)

File lisp/ChangeLog

+2002-05-04  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* liece-make.el (config-liece-package-directory):
+	* liece-config.el (PACKAGEDIR):
+	Handle case when dirs is nil.
+
+	* Makefile.lisp (package): Preload advice.
+
 2002-05-12  Daiki Ueno  <ueno@unixuser.org>
 
 	* gettext.el (gettext-default-locale): New variable.

File lisp/Makefile.lisp

 package:
 	$(XEMACS) $(FLAGS) -l ./liece-make.el -f autoload-liece \
 		$(PREFIX) $(LISPDIR)
-	$(XEMACS) $(FLAGS) -l ./liece-make.el -f compile-liece-package \
+	$(XEMACS) $(FLAGS) -l ./liece-make.el -l advice -f compile-liece-package \
 		$(PACKAGEDIR)
 
 install-package: package

File lisp/liece-config.el

 			  (if last-package-load-path
 			      last-packages)))
 	    dir)
-	(while (not (file-exists-p (setq dir (car dirs))))
+	(while (and dirs (not (file-exists-p (setq dir (car dirs)))))
 	  (setq dirs (cdr dirs)) )
 	dir )))
 

File lisp/liece-make.el

 			  (if last-package-load-path
 			      last-packages)))
 	    dir)
-	(while (not (file-exists-p
-		     (setq dir (car dirs))))
+	(while (and dirs (not (file-exists-p
+			       (setq dir (car dirs)))))
 	  (setq dirs (cdr dirs)))
 	(defvar PACKAGEDIR dir)
 	(princ (format "PACKAGEDIR=%s\n" PACKAGEDIR)))))