[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/git-commit 7270895db9 2/3: No longer use -->
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/git-commit 7270895db9 2/3: No longer use --> |
Date: |
Sat, 30 Apr 2022 05:58:21 -0400 (EDT) |
branch: elpa/git-commit
commit 7270895db9f3ad8ae7f6f5cc88ba672b04879442
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
No longer use -->
We now use `thread-first' and `thread-last', but there is no macro
corresponding to Dash's `-->' available in Emacs. Let's just not
use any of Dash's threading macros and instead uglify this single
location where we still did.
---
lisp/magit-git.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 9266141778..8da334f79c 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -700,9 +700,9 @@ See info node `(magit)Debugging Tools' for more
information."
(defun magit-config-get-from-cached-list (key)
(gethash
;; `git config --list' downcases first and last components of the key.
- (--> key
- (replace-regexp-in-string "\\`[^.]+" #'downcase it t t)
- (replace-regexp-in-string "[^.]+\\'" #'downcase it t t))
+ (let* ((key (replace-regexp-in-string "\\`[^.]+" #'downcase key t t))
+ (key (replace-regexp-in-string "[^.]+\\'" #'downcase key t t)))
+ key)
(magit--with-refresh-cache (cons (magit-toplevel) 'config)
(let ((configs (make-hash-table :test #'equal)))
(dolist (conf (magit-git-items "config" "--list" "-z"))