[PATCH] 24.3; locate-library returning spurious paths

[Alex Kosorukoff]

Hello:

locate-library incorrectly generates a set of suffixes to extend the

base library name (".elc" ".elc.gz" ".el" ".el.gz" "" ".gz"), while it

should be just (".elc" ".elc.gz" ".el" ".el.gz") when nosuffix is

nil. This leads to spurious paths found, like name.gz. I found

this issue because (locate-library "tramp") was returning

"/home/alex/.emacs.d/trump" not "../lisp/net/trum.elc". The workaround

is (locate-file "tramp" load-path (get-load-suffixes))

Here is a patch to fix this

# Bazaar merge directive format 2 (Bazaar 0.90)

# revision_id: address@hidden

# target_branch: bzr://bzr.sv.gnu.org/emacs/trunk/

# testament_sha1: 026e246535785206c6c31c4e089f60eba3143716

# timestamp: 2014-05-10 23:00:03 -0700

# base_revision_id: address@hidden

#   1mzcrftziwhrw9hl

# 

# Begin patch

=== modified file 'lisp/subr.el'

--- lisp/subr.el        2014-04-09 01:48:07 +0000

+++ lisp/subr.el        2014-05-11 05:58:46 +0000

@@ -1859,8 +1859,7 @@

                     t))

   (let ((file (locate-file library

                           (or path load-path)

-                          (append (unless nosuffix (get-load-suffixes))

-                                  load-file-rep-suffixes))))

+                          (unless nosuffix (get-load-suffixes)))))

     (if interactive-call

        (if file

            (message "Library is file %s" (abbreviate-file-name file))

# Begin bundle

IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWTQ4wWQAAXPfgCAwUGP/93MI

AAC////wUANaTdvdvZsdg8GKJMjTZUbR6TCE9MmkZqGjT1AGUiZpPJqn4KYmpmhHlMm1PUMhk9BJ

ECAQ0KexCepGjI9Q0APUGSo8Gpkg0NAAAAAAEpNUxNNHqekZGj1AeoAAACcIFuHKbfWK3DGNfGwC

uQ8oPwtu/tHw8uDMx69l+o0apMTKl009Pb9xiflkw5kIO+Znt24BiBga70HfYrlOkZdgMga5Hg2W

VL6tO2ujO8CYmo3AUO0OpiBS4GCagjB1pBbHQQF4KJo+pLFUHVFGVsyPya8V/k45wwdRitaUQcTD

OupAy/JNSm5dK6+KskI5r1HoXaeYZjA7KzG3g4NjUCsW6pbGgVoM6AQoqEkXHSi17gLM4sBJKJpG

EC0XDOH0qkS9lSN7mSgL2FwIVE6MBnKRTXymLfO5Uc0YxJ3wJINKjnJW8pi0B6xCbFJPaZkWqKkS

y6swaVUFEpK6S2DCeNYNtF9ASuuqdzkFizQ0pbQc9sEgsSW0rlpmkLZ55Cx40GYTwTbLtkYq0zgW

jd1rDCL23XvC2F7Tm4pOmm0SgRyLx1YjDfyhMmq/tzxJ5AXyaUEl3Y10zoiOtrRaAwBseEOd6lOA

kAiNQQ7rc99FIODCJbBFF8Bf/g1Si4p35GD8z7g7gIDCOujQ7EDa7IHytatCSVbjdNC8P34qyC5c

Jp4r0rtMx7vA0FTjRU7eLZts7ucPGrfUzymHvuAfiIzNt0HXKvWiwyZ/JWd2B4vKMIbKQNVXVqnp

FMoDQBnMUKDRPwZrMQzDedzxafO3pIdziWi6cq4jLhxsVgEeB9y821zgrY+xT8/4pgEfEUFghgA6

FM7dYHwDUE8MCN+sK8bhICPLtIXn4UxgwJgmUMpuMirZ/qkunzflrHrdqLakzKnO8zlAKwk54qcg

rlAINZgFREJ7VuRAKOmWV4VrAfXzyAoHTECZ7QytEfGC779s6sfYzJyNXCNFxS81xSoDlwRRPK0x

VXWtI3hXC+Uo9E9rG2UncuMmrsBprWqNFMOn3aVeyV2NTv2MIPfQ6RszsKgrAeDrDNdVNbmXoKP0

AhubwMxoAaYnjiMjoY5EJQIXANB6g16MxeFpK/xdyRThQkDQ4wWQ