[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/mheerdegen-preview 1f85214 32/35: WIP: Small fix in el-se
From: |
Michael Heerdegen |
Subject: |
[elpa] scratch/mheerdegen-preview 1f85214 32/35: WIP: Small fix in el-search--changed-files-in-repo |
Date: |
Mon, 29 Oct 2018 22:24:09 -0400 (EDT) |
branch: scratch/mheerdegen-preview
commit 1f852142ce2fc58f9a46576180b5153baf07b0c6
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
WIP: Small fix in el-search--changed-files-in-repo
Make semantics analogue to 'el-search--file-changed-p'.
---
packages/el-search/el-search-x.el | 24 ++++++++++++++++--------
1 file changed, 16 insertions(+), 8 deletions(-)
diff --git a/packages/el-search/el-search-x.el
b/packages/el-search/el-search-x.el
index 5b84cb9..e7fa959 100644
--- a/packages/el-search/el-search-x.el
+++ b/packages/el-search/el-search-x.el
@@ -244,14 +244,22 @@ The default value is nil."
"Return a list of files that changed relative to COMMIT.
COMMIT defaults to HEAD."
(cl-callf or commit "HEAD")
- (let ((default-directory repo-root-dir))
- (mapcar #'expand-file-name
- (split-string
- (let ((current-message (current-message)))
- (with-temp-message (concat current-message " [Running Git...]")
- (shell-command-to-string
- (format "git diff -z --name-only %s --"
(shell-quote-argument commit)))))
- "\0" t))))
+ (let ((default-directory repo-root-dir)
+ (message-log-max nil)
+ (current-message (current-message)))
+ (with-temp-message (concat current-message " [Running Git...]")
+ (mapcar #'expand-file-name
+ (cl-nintersection
+ (split-string
+ (shell-command-to-string
+ (format "git diff -z --name-only %s --" (shell-quote-argument
commit)))
+ "\0" t)
+ (split-string
+ (shell-command-to-string
+ (format "git diff -z --name-only
4b825dc642cb6eb9a060e54bf8d69288fbee4904 %s --"
+ (shell-quote-argument commit)))
+ "\0" t)
+ :test #'equal)))))
(defvar vc-git-diff-switches)
(defun el-search--file-changed-p (file revision)
- [elpa] scratch/mheerdegen-preview feede7d 23/35: WIP: [el-search] Fine tune separator for splicing replace, (continued)
- [elpa] scratch/mheerdegen-preview feede7d 23/35: WIP: [el-search] Fine tune separator for splicing replace, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 82abecf 16/35: WIP: Additions to "Mb hints", Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview df2132a 21/35: WIP: Improvements for change and changed, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 2ec7a9e 22/35: WIP: More colorful match count, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 91f5bd3 18/35: WIP [el-search] Fix C-j with numeric arg in error case, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 237c2c6 33/35: WIP: [el-search] Enhance doc of el-search-occur-mode, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 99782c3 19/35: WIP [el-search] Fix search setup when occur flag bound, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview acc2594 24/35: WIP: Improvise eldoc support for search pattern prompt, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview f1dde5c 28/35: WIP: Include leading comments in occur defun context, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview e557155 31/35: WIP: Small fix in 'el-search--reset-wrap-flag', Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 1f85214 32/35: WIP: Small fix in el-search--changed-files-in-repo,
Michael Heerdegen <=
- [elpa] scratch/mheerdegen-preview 869266f 15/35: WIP [el-search] Minibuffer hints when entering pattern, Fix case when search pattern fails for some sexps, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 7c82465 30/35: WIP: Fix C-A and C-J after finished single-buffer search, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview b43f7bb 07/35: WIP: Add el-search-hi-lock.el, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview c8d9698 26/35: WIP: [el-search] Some minor tweaks, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview e706a2a 27/35: WIP: Don't initially fold occur buffer, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview c9e8efc 10/35: WIP: qr: Make shown replacement editable and ediffable; r twice restores match; stop for problematic comments, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview 6ed849a 34/35: WIP: [el-search] Don't kill modified buffers, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview c9085b6 29/35: WIP: Add alarm-clock.el, Michael Heerdegen, 2018/10/29
- [elpa] scratch/mheerdegen-preview cdfaec4 35/35: WIP: [el-search] Change default of el-search-use-prefix-key-transient-map to t, Michael Heerdegen, 2018/10/29