From xemacs-m  Tue Aug 19 07:36:50 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id HAA12367
	for <xemacs-beta@xemacs.org>; Tue, 19 Aug 1997 07:36:48 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id FAA13597;
	Tue, 19 Aug 1997 05:36:42 -0700
Date: Tue, 19 Aug 1997 05:36:42 -0700
Message-Id: <199708191236.FAA13597@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: xemacs-beta@xemacs.org
Subject: [patch] info fix, stringp nil: prim/packages.el

 The patch I sent earlier changing some regex's in `info.el' only mask 
the real problem, which I believe is fixed by the patch attached
below.

 The problem was created when I made it so that the top directory
entered in the customize-variable buffer for `Info-default-
directory-list' would be the one used for the "dir".  That list has to
get reversed after the last initialization is made to it during
startup, so that things will work right in a default configuration.

 The question remains: Do I also need to reverse the default list in
`startup.el', or is reversing it only once after the last addition to
it the right thing, like I think it is?  Is anyone using the `--info'
option to configure?  Can you tell me what that's for and what affect
it has?  Will that cause an XEmacs install to place XEmacs' info's
there?  Or just add a directory to the search list?


1997-08-19  Karl M. Hegbloom  <karlheg@inetarena.com>

	* prim/packages.el (packages-find-packages-1): reverse
 	`Info-default-directory-list' so that the main Info "dir" will be
 	first on the list.

Index: lisp/prim/packages.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/prim/packages.el,v
retrieving revision 1.1.1.4
diff -u -r1.1.1.4 packages.el
--- packages.el	1997/08/17 08:48:12	1.1.1.4
+++ packages.el	1997/08/19 12:19:12
@@ -175,7 +175,8 @@
   ;; Info files
   (if (and (null path-only) (file-directory-p (concat package "/info")))
       (setq Info-default-directory-list
-	    (cons (concat package "/info/") Info-default-directory-list)))
+	    (cons (concat package "/info/") Info-default-directory-list)
+	    Info-default-directory-list (reverse Info-default-directory-list)))
   ;; Data files
   (if (and (null path-only) (file-directory-p (concat package "/etc")))
       (setq data-directory-list

-- 
mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1  Linux 2.0.30+parport AMD K5 PR-133

