From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#2270: [PATCH] bug#2270, RE: 23.0.90; find-library:... (2) other-window version Date: Wed, 24 Oct 2012 10:41:59 -0700 Message-ID: References: <871vu5d7y9.fsf@cyd.mit.edu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="US-ASCII" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1351100591 14103 80.91.229.3 (24 Oct 2012 17:43:11 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 24 Oct 2012 17:43:11 +0000 (UTC) Cc: 2270@emacsbugs.donarmstrong.com, 2270@debbugs.gnu.org To: "'Chong Yidong'" Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Oct 24 19:43:19 2012 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 1TR4z7-0008GQ-OT for geb-bug-gnu-emacs@m.gmane.org; Wed, 24 Oct 2012 19:43:17 +0200 Original-Received: from localhost ([::1]:53880 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TR4z0-0005x9-4i for geb-bug-gnu-emacs@m.gmane.org; Wed, 24 Oct 2012 13:43:10 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:37012) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TR4yu-0005uE-J9 for bug-gnu-emacs@gnu.org; Wed, 24 Oct 2012 13:43:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TR4yt-00012j-9P for bug-gnu-emacs@gnu.org; Wed, 24 Oct 2012 13:43:04 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:49662) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TR4yt-00012d-6D for bug-gnu-emacs@gnu.org; Wed, 24 Oct 2012 13:43:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TR50n-00066B-PA for bug-gnu-emacs@gnu.org; Wed, 24 Oct 2012 13:45:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 24 Oct 2012 17:45:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 2270 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 2270-submit@debbugs.gnu.org id=B2270.135110065123337 (code B ref 2270); Wed, 24 Oct 2012 17:45:01 +0000 Original-Received: (at 2270) by debbugs.gnu.org; 24 Oct 2012 17:44:11 +0000 Original-Received: from localhost ([127.0.0.1]:59898 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TR4zy-00064L-7s for submit@debbugs.gnu.org; Wed, 24 Oct 2012 13:44:10 -0400 Original-Received: from rcsinet15.oracle.com ([148.87.113.117]:51141) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TR4zw-000644-0u; Wed, 24 Oct 2012 13:44:08 -0400 Original-Received: from acsinet21.oracle.com (acsinet21.oracle.com [141.146.126.237]) by rcsinet15.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id q9OHg1Lj024149 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Wed, 24 Oct 2012 17:42:03 GMT Original-Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by acsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id q9OHg0Pt026083 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 24 Oct 2012 17:42:01 GMT Original-Received: from abhmt111.oracle.com (abhmt111.oracle.com [141.146.116.63]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id q9OHg0DY016870; Wed, 24 Oct 2012 12:42:00 -0500 Original-Received: from dradamslap1 (/130.35.178.248) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Wed, 24 Oct 2012 10:42:00 -0700 X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <871vu5d7y9.fsf@cyd.mit.edu> Thread-Index: AcmL8C4u/aRHMyh+T4uqQq/8fpOECIhMOlig X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: acsinet21.oracle.com [141.146.126.237] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) 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:65987 Archived-At: > Sent: Tuesday, February 10, 2009 6:27 PM > > > 2. Please add this command (or equivalent), after adjusting its doc > > string also to explain what LIBRARY is: > > After the release, maybe. Clearly, that upcoming release was many moon ago. I repeat my suggestion to add command `find-library-other-window'. I also suggest that it be bound by default to `C-x 4 l'. I've used this command & key forever, and wouldn't be without it. (And I rarely have a need anymore for same-window `find-library'.) --- (defun find-library-other-window (library) "Find the Emacs-Lisp source of LIBRARY in another window." (interactive (progn (require 'find-func) (let* ((path (cons (or find-function-source-path load-path) (find-library-suffixes))) (def (if (eq (function-called-at-point) 'require) (save-excursion (backward-up-list) (forward-char) (backward-sexp -2) (thing-at-point 'symbol)) (thing-at-point 'symbol)))) (when def (setq def (and (locate-file-completion def path 'test) def))) (list (completing-read "Library name: " 'locate-file-completion path nil nil nil def))))) (let ((buf (find-file-noselect (find-library-name library)))) (pop-to-buffer buf 'other-window)))