From: Juri Linkov <juri@linkov.net>
To: Dmitry Gutov <dgutov@yandex.ru>
Cc: 41821@debbugs.gnu.org
Subject: bug#41821: 28.0.50; read-directory-name in vc commands should provide defaults from projects
Date: Fri, 19 Jun 2020 02:28:17 +0300 [thread overview]
Message-ID: <87mu50j5cu.fsf@mail.linkov.net> (raw)
In-Reply-To: <7164426e-8c37-8839-64da-563cfa829b53@yandex.ru> (Dmitry Gutov's message of "Fri, 12 Jun 2020 16:43:48 +0300")
[-- Attachment #1: Type: text/plain, Size: 383 bytes --]
>> For example, typing 'C-x v L' (vc-print-root-log) outside of a project
>> displays the minibuffer with the prompt "Directory for VC revision log: ".
>> It should provide a list of the default values from the project list
>> saved in ~/.emacs.d/projects
>
> Note that one would have to verify that each directory in the list is
> a part of a VC repository.
Maybe something like:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: project-vc-list.patch --]
[-- Type: text/x-diff, Size: 1136 bytes --]
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7a41df614b..fcba4136b0 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -897,6 +897,12 @@ project-prompt-project-dir
(read-directory-name "Select directory: " default-directory nil t)
pr-dir)))
+;;;###autoload
+(defun project-vc-list ()
+ "Return a list of VC-based projects."
+ (project--ensure-read-project-list)
+ (seq-filter #'project-try-vc (mapcar #'car project--list)))
+
\f
;;; Project switching
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 08b1a85c9b..a640067de1 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2559,7 +2559,8 @@ vc-print-root-log
rootdir)
(if backend
(setq rootdir (vc-call-backend backend 'root default-directory))
- (setq rootdir (read-directory-name "Directory for VC revision log: "))
+ (setq rootdir (read-directory-name "Directory for VC revision log: " nil
+ (project-vc-list)))
(setq backend (vc-responsible-backend rootdir))
(unless backend
(error "Directory is not version controlled")))
next prev parent reply other threads:[~2020-06-18 23:28 UTC|newest]
Thread overview: 61+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-06-11 23:03 bug#41821: 28.0.50; read-directory-name in vc commands should provide defaults from projects Juri Linkov
2020-06-12 13:43 ` Dmitry Gutov
2020-06-18 23:28 ` Juri Linkov [this message]
2020-06-20 1:35 ` Dmitry Gutov
2020-06-20 23:51 ` Juri Linkov
2020-06-21 0:12 ` Dmitry Gutov
2020-06-21 22:49 ` Juri Linkov
2020-06-22 0:08 ` Dmitry Gutov
2020-06-22 23:45 ` Juri Linkov
2020-06-23 0:37 ` Dmitry Gutov
2020-06-23 23:59 ` Juri Linkov
2020-06-24 14:39 ` Eli Zaretskii
2020-06-24 14:52 ` Basil L. Contovounesios
2020-06-24 15:16 ` Eli Zaretskii
2020-06-24 15:10 ` Dmitry Gutov
2020-06-24 15:18 ` Eli Zaretskii
2020-06-24 15:42 ` Eli Zaretskii
2020-06-24 18:13 ` Dmitry Gutov
2020-06-24 18:29 ` Eli Zaretskii
2020-06-24 18:44 ` Dmitry Gutov
2020-06-24 23:25 ` Juri Linkov
2020-06-25 11:19 ` Dmitry Gutov
2020-06-25 13:20 ` Eli Zaretskii
2020-06-25 13:50 ` Dmitry Gutov
2020-06-25 16:31 ` Eli Zaretskii
2020-06-25 16:45 ` Dmitry Gutov
2020-06-25 17:09 ` Eli Zaretskii
2020-06-25 17:19 ` Dmitry Gutov
2020-06-25 17:45 ` Eli Zaretskii
2020-06-25 17:50 ` Dmitry Gutov
2020-06-25 18:03 ` Eli Zaretskii
2020-06-25 18:13 ` Dmitry Gutov
2020-06-25 18:29 ` Eli Zaretskii
2020-06-27 23:51 ` Juri Linkov
2020-06-28 14:33 ` Eli Zaretskii
2020-06-28 21:55 ` Juri Linkov
2020-06-28 21:51 ` Juri Linkov
2020-06-28 22:37 ` Dmitry Gutov
2020-06-29 22:58 ` Juri Linkov
2020-06-30 12:36 ` Dmitry Gutov
2020-06-30 20:50 ` Juri Linkov
2020-06-30 21:59 ` Dmitry Gutov
2020-07-01 14:42 ` Eli Zaretskii
2020-07-01 20:24 ` Dmitry Gutov
2020-07-02 13:36 ` Eli Zaretskii
2020-07-02 14:43 ` Dmitry Gutov
2020-07-02 17:41 ` Eli Zaretskii
2020-07-02 19:37 ` Dmitry Gutov
2020-07-03 5:55 ` Eli Zaretskii
2020-07-03 10:23 ` Dmitry Gutov
2020-07-03 11:48 ` Eli Zaretskii
2020-07-03 13:13 ` Dmitry Gutov
2020-07-01 22:10 ` Juri Linkov
2020-07-02 14:39 ` Dmitry Gutov
2020-06-24 23:22 ` Juri Linkov
2020-06-24 18:29 ` Dmitry Gutov
2020-06-27 23:44 ` Juri Linkov
2020-06-28 0:19 ` Dmitry Gutov
2020-06-28 21:49 ` Juri Linkov
2020-06-28 22:42 ` Dmitry Gutov
[not found] <<87r1ulxk48.fsf@mail.linkov.net>
[not found] ` <<ed4d76c6-3ef2-cf0b-5f8b-3b3bd61bdee5@yandex.ru>
[not found] ` <<87366ohw5z.fsf@mail.linkov.net>
[not found] ` <<c9db50b6-fa5a-aa0b-076b-0fbcbcdec7b4@yandex.ru>
[not found] ` <<878sge7jls.fsf@mail.linkov.net>
[not found] ` <<7e136435-7123-fa42-e4a8-66b82e6595da@yandex.ru>
[not found] ` <<87pn9pxris.fsf@mail.linkov.net>
[not found] ` <<83d05ottnw.fsf@gnu.org>
[not found] ` <<0b42f540-f779-446b-4411-8dae3a50d09d@yandex.ru>
[not found] ` <<837dvwtrv1.fsf@gnu.org>
[not found] ` <<835zbgtqps.fsf@gnu.org>
[not found] ` <<625de669-0715-1467-0bd1-84328b4bee5f@yandex.ru>
[not found] ` <<83wo3ws4g8.fsf@gnu.org>
[not found] ` <<f9cd868b-ca2f-bb8e-9b48-af37cc215855@yandex.ru>
[not found] ` <<83tuyzs2np.fsf@gnu.org>
[not found] ` <<87h7uuj1v3.fsf@mail.linkov.net>
[not found] ` <<d93d0f5a-7067-de6a-c2f5-c263864c479e@yandex.ru>
[not found] ` <<87h7utjx75.fsf@mail.linkov.net>
[not found] ` <<3f9e85ba-66a9-abd0-61bf-800ea8bb4ee3@yandex.ru>
[not found] ` <<87eepw5nlt.fsf@mail.linkov.net>
[not found] ` <<faccdab8-153d-b31c-4be6-81bb924a200b@yandex.ru>
[not found] ` <<83v9j7xpoj.fsf@gnu.org>
[not found] ` <<990a9046-c4e6-efb2-01dd-60198994127b@yandex.ru>
[not found] ` <<831rluxcll.fsf@gnu.org>
[not found] ` <<c75015c8-9291-6a70-df7a-a02c112b5973@yandex.ru>
[not found] ` <<83r1ttx196.fsf@gnu.org>
[not found] ` <<9c09977f-18c2-facd-c1e2-e7fe488ee92c@yandex.ru>
[not found] ` <<83eeptw3a9.fsf@gnu.org>
2020-07-03 16:05 ` Drew Adams
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87mu50j5cu.fsf@mail.linkov.net \
--to=juri@linkov.net \
--cc=41821@debbugs.gnu.org \
--cc=dgutov@yandex.ru \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).