[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2d19de6: [el-search] Small fix in el-search--changed-files
From: |
Michael Heerdegen |
Subject: |
[elpa] master 2d19de6: [el-search] Small fix in el-search--changed-files-in-repo |
Date: |
Sun, 17 Feb 2019 15:37:44 -0500 (EST) |
branch: master
commit 2d19de6e95a7fe3a28f05b8868bdbaf31fd1531d
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
[el-search] Small fix in el-search--changed-files-in-repo
* packages/el-search/el-search-x.el
(el-search--changed-files-in-repo): Try to make semantics analogue to
that of '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 2b6791f..5a4b755 100644
--- a/packages/el-search/el-search-x.el
+++ b/packages/el-search/el-search-x.el
@@ -226,14 +226,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 " [Calling VCS...]")
- (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 " [Calling VCS...]")
+ (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 2d19de6: [el-search] Small fix in el-search--changed-files-in-repo,
Michael Heerdegen <=