branch: elpa/magit
commit 5643b9c4c3011390ab3526245df6e6f72ace6501
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-custom-initialize-after-init: Another kludge for Straight bug
Gaaah!
Re #5476.
Closes #5480.
---
lisp/magit-autorevert.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/magit-autorevert.el b/lisp/magit-autorevert.el
index 861e0511b33..35403bdc431 100644
--- a/lisp/magit-autorevert.el
+++ b/lisp/magit-autorevert.el
@@ -119,15 +119,14 @@ seconds of user inactivity. That is not desirable."
(add-hook 'after-init-hook f)))
((not load-file-name)
(custom-initialize-set symbol value))
- ((let ((thisfile load-file-name))
- (letrec ((f (apply-partially
- (lambda (symbol value file)
- (when (equal file thisfile)
- (ignore-errors
- (remove-hook 'after-load-functions f))
- (custom-initialize-set symbol value)))
- symbol value)))
- (add-hook 'after-load-functions f)))))))
+ ((letrec ((f (apply-partially
+ (lambda (thisfile symbol value file)
+ (when (equal file thisfile)
+ (ignore-errors
+ (remove-hook 'after-load-functions f))
+ (custom-initialize-set symbol value)))
+ load-file-name symbol value)))
+ (add-hook 'after-load-functions f))))))
(defun magit-turn-on-auto-revert-mode-if-desired (&optional file)
(cond (file
