[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/magit b0021f6360 05/14: magit-read-branch-or-commit: Add E
From: |
Jonas Bernoulli |
Subject: |
[nongnu] elpa/magit b0021f6360 05/14: magit-read-branch-or-commit: Add EXCLUDE argument |
Date: |
Tue, 1 Oct 2024 17:26:46 -0400 (EDT) |
branch: elpa/magit
commit b0021f636040318f3d4a0b0f7691aa5b072de279
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
magit-read-branch-or-commit: Add EXCLUDE argument
---
lisp/magit-git.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 9973e0848f..1cfc274d63 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2620,13 +2620,16 @@ and this option only controls what face is used.")
secondary-default
(magit-get-current-branch))))
-(defun magit-read-branch-or-commit (prompt &optional secondary-default)
- (let ((minibuffer-default-add-function (magit--minibuf-default-add-commit)))
- (or (magit-completing-read prompt (magit-list-refnames nil t)
+(defun magit-read-branch-or-commit (prompt &optional secondary-default exclude)
+ (let ((current (magit-get-current-branch))
+ (atpoint (magit-branch-or-commit-at-point))
+ (minibuffer-default-add-function (magit--minibuf-default-add-commit)))
+ (or (magit-completing-read prompt
+ (delete exclude (magit-list-refnames nil t))
nil nil nil 'magit-revision-history
- (or (magit-branch-or-commit-at-point)
+ (or (and (not (equal atpoint exclude)) atpoint)
secondary-default
- (magit-get-current-branch)))
+ (and (not (equal current exclude))
current)))
(user-error "Nothing selected"))))
(defun magit-read-range-or-commit (prompt &optional secondary-default)
- [nongnu] elpa/magit updated (ec031e946d -> 93e86ceca7), Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit bf738da2de 02/14: manual: Fix a minor typo, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 0aa2fceef8 03/14: Fix changelog, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit d8a6dbfe7f 01/14: Update changelog, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit d83ad5555e 04/14: Fix typo in comment, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 9fc2a6b9ab 07/14: Update changelog, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 7bbfc772d1 08/14: magit-read-branch-or-commit: Fallback to commit at point as default, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 155b5364ca 06/14: magit-branch-reset: Use magit-read-branch-or-commit, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 6d0075f523 09/14: magit--minibuf-default-add-commit: Handle nil function, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit b0021f6360 05/14: magit-read-branch-or-commit: Add EXCLUDE argument,
Jonas Bernoulli <=
- [nongnu] elpa/magit 93e86ceca7 14/14: Release version 4.1.1, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit b0e6d02e61 13/14: magit-blame--update-heading-overlay: Reset all face properties, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit b172fa0c33 10/14: magit--minibuf-default-add-commit: Call using minibuffer-with-setup-hook, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 1625d76712 11/14: magit--add-face-text-property: Better support string as OBJECT, Jonas Bernoulli, 2024/10/01
- [nongnu] elpa/magit 5395798301 12/14: magit-blame--format-string-1: Fix case when FACE is a list, Jonas Bernoulli, 2024/10/01