From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: "Basil L. Contovounesios" Newsgroups: gmane.emacs.bugs Subject: bug#41879: 28.0.50; [Patch]: Add project-switch-to-buffer in project.el Date: Tue, 16 Jun 2020 21:37:26 +0100 Message-ID: <87y2omn3w9.fsf@tcd.ie> References: <87bllk2pfc.fsf@thornhill.no> <87o8pj8sy2.fsf@thornhill.no> <87d05zr13x.fsf@warpmail.net> <87lfkn8q0a.fsf@thornhill.no> <87mu53i9xf.fsf@tcd.ie> <87o8pjkuld.fsf@thornhill.no> <87366vun16.fsf@tcd.ie> <87imfrkl5o.fsf@thornhill.no> <87h7varhz6.fsf@tcd.ie> <87lfkmn8h8.fsf@thornhill.no> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="116310"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Cc: 41879@debbugs.gnu.org To: Theodor Thornhill Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Jun 16 22:38:12 2020 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jlILU-000UAp-Hy for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 16 Jun 2020 22:38:12 +0200 Original-Received: from localhost ([::1]:44826 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jlILT-00074N-9h for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 16 Jun 2020 16:38:11 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59314) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jlILK-00074B-5J for bug-gnu-emacs@gnu.org; Tue, 16 Jun 2020 16:38:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:38166) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jlILJ-0000Ll-RR for bug-gnu-emacs@gnu.org; Tue, 16 Jun 2020 16:38:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jlILJ-0002yU-OM for bug-gnu-emacs@gnu.org; Tue, 16 Jun 2020 16:38:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Basil L. Contovounesios" Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 16 Jun 2020 20:38:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 41879 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 41879-submit@debbugs.gnu.org id=B41879.159233985511400 (code B ref 41879); Tue, 16 Jun 2020 20:38:01 +0000 Original-Received: (at 41879) by debbugs.gnu.org; 16 Jun 2020 20:37:35 +0000 Original-Received: from localhost ([127.0.0.1]:49712 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jlIKt-0002xo-3N for submit@debbugs.gnu.org; Tue, 16 Jun 2020 16:37:35 -0400 Original-Received: from mail-wr1-f42.google.com ([209.85.221.42]:39122) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jlIKr-0002xc-Kg for 41879@debbugs.gnu.org; Tue, 16 Jun 2020 16:37:34 -0400 Original-Received: by mail-wr1-f42.google.com with SMTP id t18so32273wru.6 for <41879@debbugs.gnu.org>; Tue, 16 Jun 2020 13:37:33 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=tcd-ie.20150623.gappssmtp.com; s=20150623; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=Lwc2hkmQzjKW7dd2wiRXchpd+MPYRdlmmCmHKKrnMEk=; b=HsnAWIg1ytHYt2JcgvGQoNIRtH3xV8dZ5g3Ze4SerfgxB+j+TEOspGqe1qPs7J4OBb wjn5zsZX9Q4uf7xZ9bW3xrHNWzOKZ5I7Bz8Zs712/Ht7u6WyYYuYwZfii9iKwNSu+D0c u0M7m/peR7K8pqXJ7454nZ4dx41CKQVkcuNXfGqLB/9YGTb7kIvGr/h5ZpcVZWs3rnCx U//j5vApPguASWmtsqYjkOwriMlGO3XEN9fsiRVr8Frdorwicsi+ggsxbUlTpMOC679h 7rPuI/4Y397cD9o7FiL9QCZ9Gtw5e1czl2WQ7kQgVR50aL8zibVDpfZOrhhIhIvrWSms IK4A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=Lwc2hkmQzjKW7dd2wiRXchpd+MPYRdlmmCmHKKrnMEk=; b=dUjq2iKFH251kcZL4iiZoFgAACsYiK+zgHsMAdkF2BR7tg6IMGMORdv4H+/umtuh3w QzPORM0LFEUjY1qsZpLHKggw0bTkBKXG+SjYZZTWIfiq7634o00+JNVw2f0okCITQkMq 21qf6siVCAei5lBA9CAOz3/bN74EFaGd412aWF7kzJyMfH/qqODK4hycM4uML7SlCoQw MLvSKZaTlfH7Uvm5yB01J+reZNFSa3S94QGjYkCea8Lov4ks/4a1+Tw7dvuAeTwEdV/L 7jahD3MWEZrcP/wlvD7L31A7mocM1Vm88Bly3HN5eQ07B7c1wwhCXAVIfzbu/o0zbAWw LYZQ== X-Gm-Message-State: AOAM530A7g62PSAYnNOea1QwHr/fCzfxzUHt3bJVgvcsPpOW3AV3Sm/8 ulOAC9+YDOK+Yg58Xfbygsg4HA== X-Google-Smtp-Source: ABdhPJx5PNr2YtnVRmtxnjL7kJHa9J64MvWgQfmj+VmENbxhQ4n79asgdNDGyfFhmoj5mW6LG4j7nQ== X-Received: by 2002:adf:e3c1:: with SMTP id k1mr4482246wrm.33.1592339847779; Tue, 16 Jun 2020 13:37:27 -0700 (PDT) Original-Received: from localhost ([2a02:8084:20e2:c380:92bd:1bfd:38fc:fae2]) by smtp.gmail.com with ESMTPSA id c6sm5789995wma.15.2020.06.16.13.37.26 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 16 Jun 2020 13:37:27 -0700 (PDT) In-Reply-To: <87lfkmn8h8.fsf@thornhill.no> (Theodor Thornhill's message of "Tue, 16 Jun 2020 18:58:33 +0000") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:182045 Archived-At: Theodor Thornhill writes: > Thanks for your keen eye :) Thanks for all your useful contributions! >> I'd write something like this: >> >> ;; BUFFER is an entry (BUF-NAME . BUF-OBJ) of Vbuffer_alist. >> > > Got it. I stole your comment - I hope that is OK? Of course. In decreasing order of preference: improved > stolen > ignored. ;) > diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el > index f3df44fa7b..52e8ef4ff9 100644 > --- a/lisp/progmodes/project.el > +++ b/lisp/progmodes/project.el > @@ -744,6 +744,19 @@ project-compile > (default-directory (project-root pr))) > (compile command comint))) > > +;;;###autoload > +(defun project-switch-to-buffer () > + "Switch to a buffer in the current project." > + (interactive) > + (let ((root (project-root (project-current t)))) > + (switch-to-buffer > + (read-buffer > + "Switch to buffer: " nil t > + (lambda (buffer) > + ;; BUFFER is an entry (BUF-NAME . BUF-OBJ) of Vbuffer_alist. > + (when-let ((file (buffer-file-name (cdr buffer)))) > + (file-in-directory-p file root))))))) LGTM, thanks. -- Basil