[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/git-commit f55be50f14 5/5: magit-base.el: Whitespace cosme
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/git-commit f55be50f14 5/5: magit-base.el: Whitespace cosmetics |
Date: |
Tue, 14 Mar 2023 14:02:26 -0400 (EDT) |
branch: elpa/git-commit
commit f55be50f1416830df20d11565f4ed790821525ff
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
magit-base.el: Whitespace cosmetics
---
lisp/magit-base.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 5747b2c80d..ace31fcad3 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -483,9 +483,9 @@ and delay of your graphical environment or operating
system."
(defvar magit-completing-read--silent-default nil)
-(defun magit-completing-read (prompt collection &optional
- predicate require-match initial-input
- hist def fallback)
+(defun magit-completing-read ( prompt collection &optional
+ predicate require-match initial-input
+ hist def fallback)
"Read a choice in the minibuffer, or use the default choice.
This is the function that Magit commands use when they need the
@@ -590,9 +590,9 @@ acts similarly to `completing-read', except for the
following:
'magit-completing-read-multiple "Magit-Section 4.0.0")
(defun magit-completing-read-multiple
- (prompt table &optional predicate require-match initial-input
- hist def inherit-input-method
- no-split)
+ ( prompt table &optional predicate require-match initial-input
+ hist def inherit-input-method
+ no-split)
"Read multiple strings in the minibuffer, with completion.
Like `completing-read-multiple' but don't mess with order of
TABLE and take an additional argument NO-SPLIT, which causes
@@ -678,8 +678,8 @@ back to built-in `completing-read' for now." :error)
(setq defining-kbd-macro nil)
(force-mode-line-update))
-(defun magit-read-string (prompt &optional initial-input history default-value
- inherit-input-method no-whitespace)
+(defun magit-read-string ( prompt &optional initial-input history default-value
+ inherit-input-method no-whitespace)
"Read a string from the minibuffer, prompting with string PROMPT.
This is similar to `read-string', but
@@ -715,8 +715,8 @@ This is similar to `read-string', but
(user-error "Input contains whitespace"))
(t val))))
-(defun magit-read-string-ns (prompt &optional initial-input history
- default-value inherit-input-method)
+(defun magit-read-string-ns ( prompt &optional initial-input history
+ default-value inherit-input-method)
"Call `magit-read-string' with non-nil NO-WHITESPACE."
(magit-read-string prompt initial-input history default-value
inherit-input-method t))
@@ -747,8 +747,8 @@ ACTION is a member of option `magit-slow-confirm'."
'((safe-with-wip magit-wip-before-change-mode
discard reverse stage-all-changes unstage-all-changes)))
-(cl-defun magit-confirm (action &optional prompt prompt-n noabort
- (items nil sitems))
+(cl-defun magit-confirm ( action &optional prompt prompt-n noabort
+ (items nil sitems))
(declare (indent defun))
(setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items)))
(setq prompt (format (concat (or prompt (magit-confirm-make-prompt action))