From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Alex Kosorukoff Newsgroups: gmane.emacs.bugs Subject: bug#17467: 24.3; locate-library returning spurious path Date: Sun, 11 May 2014 11:55:18 -0700 Message-ID: References: <8361lcuu1f.fsf@gnu.org> <8338ggus2g.fsf@gnu.org> <831tw0uqyp.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=089e013cc0246932a904f9246087 X-Trace: ger.gmane.org 1399834584 2709 80.91.229.3 (11 May 2014 18:56:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 11 May 2014 18:56:24 +0000 (UTC) Cc: 17467 <17467@debbugs.gnu.org> To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun May 11 20:56:17 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WjYv2-00049N-HQ for geb-bug-gnu-emacs@m.gmane.org; Sun, 11 May 2014 20:56:16 +0200 Original-Received: from localhost ([::1]:34007 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjYv2-00042e-74 for geb-bug-gnu-emacs@m.gmane.org; Sun, 11 May 2014 14:56:16 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33147) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjYuu-00040y-Le for bug-gnu-emacs@gnu.org; Sun, 11 May 2014 14:56:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WjYuo-0008LL-Rt for bug-gnu-emacs@gnu.org; Sun, 11 May 2014 14:56:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:42225) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WjYuo-0008LH-P4 for bug-gnu-emacs@gnu.org; Sun, 11 May 2014 14:56:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WjYuo-0003wW-9m for bug-gnu-emacs@gnu.org; Sun, 11 May 2014 14:56:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Alex Kosorukoff Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 11 May 2014 18:56:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17467-submit@debbugs.gnu.org id=B17467.139983454915101 (code B ref 17467); Sun, 11 May 2014 18:56:02 +0000 Original-Received: (at 17467) by debbugs.gnu.org; 11 May 2014 18:55:49 +0000 Original-Received: from localhost ([127.0.0.1]:59576 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WjYua-0003vU-Ht for submit@debbugs.gnu.org; Sun, 11 May 2014 14:55:49 -0400 Original-Received: from mail-ob0-f175.google.com ([209.85.214.175]:61631) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WjYuW-0003vB-JO for 17467@debbugs.gnu.org; Sun, 11 May 2014 14:55:46 -0400 Original-Received: by mail-ob0-f175.google.com with SMTP id wo20so7158651obc.6 for <17467@debbugs.gnu.org>; Sun, 11 May 2014 11:55:38 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:sender:in-reply-to:references:from:date:message-id :subject:to:cc:content-type; bh=e99LJ1l15aTjyf2g5vz59uoWxoSQH34Mvdf/+7TbX4g=; b=c57nCcVwlFAgRmdTpJL8LDicdg4iE2aM9mBMZXCiqYKq8Gn5XTIS6FfTGXFMoQbfQe zv7mVht0HDk08+LUNQH204reVf+gFFm01sxtEKG3d5DfPv6c0Ci6TKnV8GMcPlxzfpvp tR93mEOYM3vXagPT/I1vTHtVWjG2aasTtcxsGrmv3P07pQm9Go3EP0sBJNNGpVKD6/Ku U5m37qKUh+/lmoh3MDgjWeX+RCZcQrZ6SBK6ECvMCq8KT2v69YxhtZ5fD/BjkT0wR+wR C+UjIZgKIPDdjJMG7XNXd0/hOzVq9QcVJWvq/Bnlybd7f7oJ155l1vsVpfWYXdLX9k/9 uIDA== X-Received: by 10.60.15.38 with SMTP id u6mr28393708oec.26.1399834538486; Sun, 11 May 2014 11:55:38 -0700 (PDT) Original-Received: by 10.182.240.131 with HTTP; Sun, 11 May 2014 11:55:18 -0700 (PDT) In-Reply-To: <831tw0uqyp.fsf@gnu.org> X-Google-Sender-Auth: nvGXDL9KG_3t6BsadAKHQnhwe1o X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:88924 Archived-At: --089e013cc0246932a904f9246087 Content-Type: text/plain; charset=UTF-8 Yes, this makes sense. Here is a patch that the issues you mentioned. (locate-library "tramp.el.gz") (locate-library "tramp.el") (locate-library "tramp") all are working as expected # Bazaar merge directive format 2 (Bazaar 0.90) # revision_id: alex@3form.com-20140511184813-t6p0r8ac4em9kuyf # target_branch: :parent # testament_sha1: 66b596e6da58c1cb71dedd7fa9ba2fcf20e2964c # timestamp: 2014-05-11 11:48:22 -0700 # base_revision_id: monnier@iro.umontreal.ca-20140511034953-\ # 1mzcrftziwhrw9hl # # Begin patch === modified file 'lisp/subr.el' --- lisp/subr.el 2014-04-09 01:48:07 +0000 +++ lisp/subr.el 2014-05-11 18:48:13 +0000 @@ -1857,10 +1857,13 @@ load-path (get-load-suffixes))) nil nil t)) - (let ((file (locate-file library - (or path load-path) - (append (unless nosuffix (get-load-suffixes)) - load-file-rep-suffixes)))) + (let ((file + (locate-file library + (or path load-path) + (unless (or nosuffix (string-suffix-p ".el.gz" library)) + (if (string-suffix-p ".el" library) + load-file-rep-suffixes + (get-load-suffixes)))))) (if interactive-call (if file (message "Library is file %s" (abbreviate-file-name file)) # Begin bundle IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWYwVAfIAAv3/gDIwFUBQY//3 cwgAAL////BQBZY8tZs1llc7udAaowkqTTQZAM0gBoxAaaAAAJKajTEap+ijaR6I0AA0AAACRTQk 2iTTyJiTTR6j0jJoNAyYgHMAAAAAAAAAABUogmgJgmJiGmpkm0j1MIaAyTLbLDZxNRGLHnrLAyW9 r/aHw7fgG/B1bYJK8emKqTIKmSSJCycvA8sP7hSOWceg7jgMYw8fyi0yw11PqgkQRnWDExNp4bj8 RqO+pIz8yQ2Fww34eP+zJEGZqnl4bjuROkkiD4Ps7JHW+xjfE2vX85EqNzn/x57Z2nVtP9DoxN6P Dx6uqxRre9Oq+7Y/xotaU8c1dRpQ6+5KWepxa8+ita+XW4lFLHOLnZNgjZOOdrqoLX0kJBMRZUNh SPeX3UE4RGEyH9RCEE88XW3iMhYSKhgywGRWVrOSpZC37Qy9RhZCYmLzLgVCpqg1zy5r55azmFoF 9mLE1MZFiWq2u1nfQ0/XIm9OebVuTe48Jgal/BGZspfft7pfRpNz1qmChGCYGXkuXN2wpuNGMkp5 sDLMNpfcDpmwpCrjabGLxRHsWsmWnMvxIVR8k2VMoi7Vd0d4gYjGK1bd4IxiQpzAzHBfUTypURs6 AyNExSsr5mphmGZbkw0tYmDK1XsZbIcc7PlcbcJpzYI0nKtLUaGj2Ymdxb+C4CkZk+YRlaGQ6Zlr lvpPcUMal5eLIhgDg2rIFXMLm1X0maHF1M9uiOYk5GA8CNBQkbKUl3OoQxewiAoDhV31WkywYsmX tqFRr5EahVsWkK641lETqtGlOo9OqcEmaQoc1DQnY/y9E913ZerM80YJVYzrGVS9eqLlUovUtMUl +JRpbHzODoye/fSlaLFHk+zW9UOJ7mVhSiGx+UoNJiaSaD5cIDPgh65gbJdO02V4bYqLt4mjQ2yV N7gptiiqlf6eHa7WDQjzzosjlN8bKBHAQ/RERDRV9VYo5xQD6PwtQjOBAS0nWYG3G0pR/YEUSfc1 kwhj7CTKQ2GiuILRIo3AqVyGQuxwaY7dCqiMrIimZDyQt7KlhiNdhXwhaIkZVi0docU1mcuhkZ9x KB7TiW1Kw5FC5Lr9wYbjidMEz8fnmTez3Vezk8RfdjclHhu/lYcE2HvSkl3dwczZ3vYsU2uZTmyC pGCWvoxbFZxnDbiWK3R0F0VCmwaytPBnFWzFgJUHGY1GknHUEbBFk9XGUWvWGR5+nNydadRj5T5z SnowbUU3afKKana/CUVL2vob4WG74SaMjF3Na1sH1PgNL0cJofdSTEu0o80cZsdsmpxk7pO8pDIM io8ZPZ31VyN/3Y0OPNR8lnc8X3uvYVaHQNaGlKqxkd7SclywzFyp1l9wyLlklikzNRgWl7YmZFhi qlE45zGmiSvR+fEjEPBrF82OsnFmkj2sT8NrVpYmr2TM27xjE6wFxhtqWFuEUb7RYB7BMIShLUFE ZcHNnN0x+WDJCbytnYuXWukzWKFC1sUKSJLFaW3eWAZVe1p6CZcKqW44HeMqWXK1L8WfaquSxY+R 2LJVoYHitMnNlMJMaKKVWVTsc50S9NdIfFFr4mDau6p8kyptF8zTp3pnTC1eoUQpFEvkXI/dHRPP Vt6zGnryeP4u5IpwoSEYKgPk On Sun, May 11, 2014 at 11:10 AM, Eli Zaretskii wrote: > > From: Alex Kosorukoff > > Date: Sun, 11 May 2014 10:53:34 -0700 > > Cc: 17467@debbugs.gnu.org > > > > did you mean the following > > > > (locate-library "tramp.el") returning the path to tramp.el.gz? > > Yes. But also (locate-library "tramp.el") being able to find > tramp.el. > --089e013cc0246932a904f9246087 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Yes, this makes sense. Here is a patch that the issues you= mentioned.

(locate-library "tramp.el.gz"= )
(locate-library "tramp.el")
(locate-library= "tramp")

all are working as expected

<= div>
# Bazaar merge directive format 2 (Bazaar 0.90)
# revisi= on_id: alex@3form.com-20140511184813-t6p0r8ac4em9kuyf
# target_br= anch: :parent
# testament_sha1: 66b596e6da58c1cb71dedd7fa9ba2fcf20e2964c
#= timestamp: 2014-05-11 11:48:22 -0700
# base_revision_id: monnier= @iro.umontreal.ca-20140511034953-\
# =C2=A0 1mzcrftziwhrw9hl
#=C2=A0
# Begin patch
=3D=3D=3D modified file '= ;lisp/subr.el'
--- lisp/subr.el =C2=A0 =C2=A0 =C2=A0 =C2=A020= 14-04-09 01:48:07 +0000
+++ lisp/subr.el =C2=A0 =C2=A0 =C2=A0 =C2= =A02014-05-11 18:48:13 +0000
@@ -1857,10 +1857,13 @@
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 load-= path (get-load-suffixes)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0nil nil
=C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0t))
- = =C2=A0(let ((file (locate-file library
- =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(or path = load-path)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0(append (unless nosuffix (get-load-suffixes))
=
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0load-file-rep-suffixes)= )))
+ =C2=A0(let ((file
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 (= locate-file library
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0(or path load-path)
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(unless (or nosuffix (string-s= uffix-p ".el.gz" library))
+ =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(if (string-suff= ix-p ".el" library)
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0load-file-rep-suffixes
+ =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0(get-load-suffixes))))))
=C2=A0 =C2=A0 =C2=A0(if intera= ctive-call
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (if file
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (message "Library is file %s" = (abbreviate-file-name file))

# Begin bundle
IyBCYXphYXIgcmV2aXNpb24gYnVuZG= xlIHY0CiMKQlpoOTFBWSZTWYwVAfIAAv3/gDIwFUBQY//3
cwgAAL////BQBZY8tZ= s1llc7udAaowkqTTQZAM0gBoxAaaAAAJKajTEap+ijaR6I0AA0AAACRTQk
2iTTyJ= iTTR6j0jJoNAyYgHMAAAAAAAAAABUogmgJgmJiGmpkm0j1MIaAyTLbLDZxNRGLHnrLAyW9
r/aHw7fgG/B1bYJK8emKqTIKmSSJCycvA8sP7hSOWceg7jgMYw8fyi0yw11PqgkQRnWDEx= Np4bj8
RqO+pIz8yQ2Fww34eP+zJEGZqnl4bjuROkkiD4Ps7JHW+xjfE2vX85EqNz= n/x57Z2nVtP9DoxN6P
Dx6uqxRre9Oq+7Y/xotaU8c1dRpQ6+5KWepxa8+ita+XW4= lFLHOLnZNgjZOOdrqoLX0kJBMRZUNh
SPeX3UE4RGEyH9RCEE88XW3iMhYSKhgywGRWVrOSpZC37Qy9RhZCYmLzLgVCpqg1zy5r55= azmFoF
9mLE1MZFiWq2u1nfQ0/XIm9OebVuTe48Jgal/BGZspfft7pfRpNz1qmChG= CYGXkuXN2wpuNGMkp5
sDLMNpfcDpmwpCrjabGLxRHsWsmWnMvxIVR8k2VMoi7Vd0= d4gYjGK1bd4IxiQpzAzHBfUTypURs6
AyNExSsr5mphmGZbkw0tYmDK1XsZbIcc7PlcbcJpzYI0nKtLUaGj2Ymdxb+C4CkZk+YRla= GQ6Zlr
lvpPcUMal5eLIhgDg2rIFXMLm1X0maHF1M9uiOYk5GA8CNBQkbKUl3OoQx= ewiAoDhV31WkywYsmX
tqFRr5EahVsWkK641lETqtGlOo9OqcEmaQoc1DQnY/y9E9= 13ZerM80YJVYzrGVS9eqLlUovUtMUl
+JRpbHzODoye/fSlaLFHk+zW9UOJ7mVhSiGx+UoNJiaSaD5cIDPgh65gbJdO02V4bYqLt4= mjQ2yV
N7gptiiqlf6eHa7WDQjzzosjlN8bKBHAQ/RERDRV9VYo5xQD6PwtQjOBAS= 0nWYG3G0pR/YEUSfc1
kwhj7CTKQ2GiuILRIo3AqVyGQuxwaY7dCqiMrIimZDyQt7= KlhiNdhXwhaIkZVi0docU1mcuhkZ9x
KB7TiW1Kw5FC5Lr9wYbjidMEz8fnmTez3Vezk8RfdjclHhu/lYcE2HvSkl3dwczZ3vYsU2= uZTmyC
pGCWvoxbFZxnDbiWK3R0F0VCmwaytPBnFWzFgJUHGY1GknHUEbBFk9XGUW= vWGR5+nNydadRj5T5z
SnowbUU3afKKana/CUVL2vob4WG74SaMjF3Na1sH1PgNL0= cJofdSTEu0o80cZsdsmpxk7pO8pDIM
io8ZPZ31VyN/3Y0OPNR8lnc8X3uvYVaHQNaGlKqxkd7SclywzFyp1l9wyLlklikzNRgWl7= YmZFhi
qlE45zGmiSvR+fEjEPBrF82OsnFmkj2sT8NrVpYmr2TM27xjE6wFxhtqWF= uEUb7RYB7BMIShLUFE
ZcHNnN0x+WDJCbytnYuXWukzWKFC1sUKSJLFaW3eWAZVe1= p6CZcKqW44HeMqWXK1L8WfaquSxY+R
2LJVoYHitMnNlMJMaKKVWVTsc50S9NdIfFFr4mDau6p8kyptF8zTp3pnTC1eoUQpFEvkXI= /dHRPP
Vt6zGnryeP4u5IpwoSEYKgPk

<= /div>


On Sun, = May 11, 2014 at 11:10 AM, Eli Zaretskii <eliz@gnu.org> wrote:
> From: Alex Kosorukoff <alex@3form.com>
> Date: Sun, 11 May 2014 10:53:34 -0700
> Cc: 17467@debbugs.gnu.org=
>
> did you mean the following
>
> (locate-library "tramp.el") returning the path to tramp.el.g= z?

Yes. =C2=A0But also (locate-library "tramp.el") being able = to find
tramp.el.

--089e013cc0246932a904f9246087--