From xemacs-m  Mon Sep 22 09:15:45 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 JAA02820
	for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 09:15:43 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.7/8.8.7/Debian/GNU) id HAA07164;
	Mon, 22 Sep 1997 07:15:57 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `info.el' (Info-default-directory-list)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Sep_22_07:15:54_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 22 Sep 1997 07:15:54 -0700
Message-ID: <874t7d1lk5.fsf@bittersweet.inetarena.com>
Lines: 45
X-Mailer: Gnus v5.5/XEmacs 20.3(beta23) - "Sarajevo"

--Multipart_Mon_Sep_22_07:15:54_1997-1
Content-Type: text/plain; charset=US-ASCII

1997-09-22  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/info.el (Info-default-directory-list): Set up a default.


--Multipart_Mon_Sep_22_07:15:54_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: lisp/packages/info.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/packages/info.el,v
retrieving revision 1.1.1.3
diff -u -r1.1.1.3 info.el
--- info.el	1997/09/21 13:53:58	1.1.1.3
+++ info.el	1997/09/22 14:14:44
@@ -370,7 +370,15 @@
   :type 'boolean
   :group 'info)
 
-(defcustom Info-default-directory-list nil
+(defcustom Info-default-directory-list
+    (let ((trylist
+	   (append 
+	    (list (concat (find-emacs-root-internal "/") "info"))
+	    '("/usr/info" "/usr/local/info")
+	    (mapcar #'(lambda (p) (concat p "/info")) package-path))))
+      (loop for p in trylist
+	    when (file-exists-p (file-name-as-directory p))
+	    collect p))
   "*List of default directories to search for Info documentation
 files.  This value is used as the default for `Info-directory-list'.
 It is set in startup.el.  The first directory in this list must

--Multipart_Mon_Sep_22_07:15:54_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1+hamm  Linux pre-2.0.31-9+select+QNX  AMD K5 PR-133

--Multipart_Mon_Sep_22_07:15:54_1997-1--

