branch: externals/embark
commit 89c7610fa7988b6c93029f87afa4ba6b7768bf81
Merge: c740790579 6c6d912f8a
Author: Omar Antolín Camarena <omar.anto...@gmail.com>
Commit: GitHub <nore...@github.com>
Merge pull request #766 from minad/prevent-tramp-slowdown
Prevent Tramp slowdown in Eldoc functions
---
embark.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index f7d4db7444..c01051b2b5 100644
--- a/embark.el
+++ b/embark.el
@@ -1123,7 +1123,8 @@ If CYCLE is non-nil bind `embark-cycle'."
This function uses the eldoc REPORT callback and is meant to be
added to `eldoc-documentation-functions'."
(when-let (((not (minibufferp)))
- (target (car (embark--targets))))
+ (target (let (file-name-handler-alist) ;; Prevent Tramp slowdown.
+ (car (embark--targets)))))
(funcall report
(format "Embark on %s ‘%s’"
(plist-get target :type)
@@ -1135,7 +1136,8 @@ added to `eldoc-documentation-functions'."
This function uses the eldoc REPORT callback and is meant to be
added to `eldoc-documentation-functions'."
(when-let (((not (minibufferp)))
- (targets (embark--targets)))
+ (targets (let (file-name-handler-alist) ;; Prevent Tramp slowdown.
+ (embark--targets))))
(funcall report
(format "Embark target types: %s"
(mapconcat
