From xemacs-m  Fri Aug  8 05:21:09 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 FAA07463
	for <xemacs-beta@xemacs.org>; Fri, 8 Aug 1997 05:21:08 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id DAA21605;
	Fri, 8 Aug 1997 03:21:23 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] prim/help.el: allow gzipped .el files if `jka-compr' has been provided.
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_Fri_Aug__8_03:21:23_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 08 Aug 1997 03:21:23 -0700
Message-ID: <87zpqtj7q4.fsf@bittersweet.inetarena.com>
Lines: 43
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta16) - "Budapest"

--Multipart_Fri_Aug__8_03:21:23_1997-1
Content-Type: text/plain; charset=US-ASCII


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

	* prim/help.el: (find-function-noselect) Allow gzipped .el files
 	if `jka-compr' has been provided.


--Multipart_Fri_Aug__8_03:21:23_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: lisp/prim/help.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/prim/help.el,v
retrieving revision 1.1.1.2.2.2
diff -u -r1.1.1.2.2.2 help.el
--- help.el	1997/08/08 10:06:14	1.1.1.2.2.2
+++ help.el	1997/08/08 10:06:24
@@ -1352,6 +1352,11 @@
 					path
 				      find-function-source-path)))
 	  (calling-buffer (current-buffer)))
+      (if (and (not filename) (featurep 'jka-compr))
+	  (setq filename (locate-library (concat package ".gz") t
+					 (if path
+					     path
+					   find-function-source-path))))
       (if (not filename)
 	  (error "The package \"%s\" is not in the path." package))
       (set-buffer (find-file-noselect filename))


--Multipart_Fri_Aug__8_03:21:23_1997-1
Content-Type: text/plain; charset=US-ASCII

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

--Multipart_Fri_Aug__8_03:21:23_1997-1--

