From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?UTF-8?Q?=C5=A0t=C4=9Bp=C3=A1n_?= =?UTF-8?Q?N=C4=9Bmec?= Newsgroups: gmane.emacs.bugs Subject: bug#6716: 23.2; Setting `find-function-source-path' has no effect. Date: Sat, 24 Jul 2010 13:56:41 +0200 Message-ID: <874ofpqeiu.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1279973258 27259 80.91.229.12 (24 Jul 2010 12:07:38 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 24 Jul 2010 12:07:38 +0000 (UTC) To: 6716@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jul 24 14:07:36 2010 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OcdVw-0003ix-Cp for geb-bug-gnu-emacs@m.gmane.org; Sat, 24 Jul 2010 14:07:36 +0200 Original-Received: from localhost ([127.0.0.1]:43401 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OcdVv-0002aG-Lg for geb-bug-gnu-emacs@m.gmane.org; Sat, 24 Jul 2010 08:07:35 -0400 Original-Received: from [140.186.70.92] (port=39245 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OcdVq-0002aA-DL for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 08:07:31 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OcdVo-0005xD-Qs for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 08:07:30 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:60530) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OcdVo-0005x7-PV for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 08:07:28 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1OcdMg-0005fD-FO; Sat, 24 Jul 2010 07:58:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: =?UTF-8?Q?=C5=A0t=C4=9Bp=C3=A1n_?= =?UTF-8?Q?N=C4=9Bmec?= Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 24 Jul 2010 11:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 6716 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.127997268021763 (code B ref -1); Sat, 24 Jul 2010 11:58:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 24 Jul 2010 11:58:00 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OcdMd-0005ey-Jx for submit@debbugs.gnu.org; Sat, 24 Jul 2010 07:57:59 -0400 Original-Received: from mail.gnu.org ([199.232.76.166] helo=mx10.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OcdMb-0005ep-UU for submit@debbugs.gnu.org; Sat, 24 Jul 2010 07:57:58 -0400 Original-Received: from lists.gnu.org ([199.232.76.165]:53148) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1OcdMb-0003z6-Rf for submit@debbugs.gnu.org; Sat, 24 Jul 2010 07:57:57 -0400 Original-Received: from [140.186.70.92] (port=39571 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OcdMa-00007g-MM for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 07:57:57 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OcdMZ-0004Or-LI for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 07:57:56 -0400 Original-Received: from mail-pz0-f41.google.com ([209.85.210.41]:38208) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OcdMZ-0004Ol-Dt for bug-gnu-emacs@gnu.org; Sat, 24 Jul 2010 07:57:55 -0400 Original-Received: by pzk33 with SMTP id 33so987023pzk.0 for ; Sat, 24 Jul 2010 04:57:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:from:to:subject:date :message-id:mime-version:content-type:content-transfer-encoding; bh=2K0wDMdv1zd82csrCzy8Yw+ew5DBmdNWSEiUFw4vHKk=; b=XyGpNgsUca2wCG5YcW/7ENyRhWtGjiz6dyN/JLDYRjbBE+HNWKYMu7uwIRbU5xlcVf NuZyGK6a/xG/78DMPQ4Z8WlrWUL8uq1vKtRc7I39rScihhN2bMI2PGfJM4pMemQMd/7l lQ29E6P654VyOdxxhXwZqr4xkjb2SaitR8EGY= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=from:to:subject:date:message-id:mime-version:content-type :content-transfer-encoding; b=tEtt6Tf+ybvr4/cuTp6ke2TZMDC024+hzgE17syldcV7eWI6bGDuVdkrecgZbu4ZpG cYr2A22Hdc4zXl2GiFYRkf+bTfjKXs+4m7QWtf9/98xjmFHBYg6EAY/lBtlaJMr9Ku6K hfDKuIIpxP/56yuB24e0P4aUy4d3rlvif/cEQ= Original-Received: by 10.114.111.15 with SMTP id j15mr7476339wac.187.1279972674161; Sat, 24 Jul 2010 04:57:54 -0700 (PDT) Original-Received: from localhost ([88.103.132.186]) by mx.google.com with ESMTPS id d39sm2339989wam.4.2010.07.24.04.57.51 (version=TLSv1/SSLv3 cipher=RC4-MD5); Sat, 24 Jul 2010 04:57:53 -0700 (PDT) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Sat, 24 Jul 2010 07:58:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:38865 Archived-At: Because `find-library-name' receives as its LIBRARY argument the full path, but doesn't strip the directory part, setting `find-function-source-path' has no effect on symbol finding -- Emacs still tries the path guessed according to load path (which is not correct in case you have the Elisp sources in directory different from the compiled files). This simple change seems to fix it for me: diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 216d91b..f704c63 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -150,10 +150,10 @@ (defun find-library-name (library) (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) (setq library (replace-match "" t t library))) (or=20 - (locate-file library + (locate-file (file-name-nondirectory library) (or find-function-source-path load-path) (find-library-suffixes)) - (locate-file library + (locate-file (file-name-nondirectory library) (or find-function-source-path load-path) load-file-rep-suffixes) (error "Can't find library %s" library))) Regards, =C5=A0t=C4=9Bp=C3=A1n