* infohack.el: Don't fiddle with the `features' variable;

 fix directories relative to the ../lisp directory in `load-path'.

diff --git a/ChangeLog b/ChangeLog
index aed616f..324aedc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * texi/infohack.el: Don't fiddle with the `features' variable;
+       fix directories relative to the ../lisp directory in `load-path'.
+
 2003-07-28  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * lisp/gnus-namazu.el (gnus-namazu/group-prefixed-name): Return

diff --git a/texi/infohack.el b/texi/infohack.el
index 655c441..c9d06b1 100644 (file)
--- a/texi/infohack.el
+++ b/texi/infohack.el
@@ -25,10 +25,11 @@
 
 ;;; Code:
 
-(let ((default-directory (expand-file-name "../lisp/"))
-      (features (cons 'w3-forms (copy-sequence features))))
+(let ((default-directory (expand-file-name "../lisp/")))
   ;; Adjust `load-path' for APEL.
-  (load-file "dgnushack.el"))
+  (load-file "dgnushack.el")
+  ;; Replace "./" with "../lisp/" in `load-path'.
+  (setq load-path (mapcar 'expand-file-name load-path)))
 (load-file (expand-file-name "ptexinfmt.el" "./"))
 
 (defun infohack-remove-unsupported ()