[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 93b823b: * lisp/net/tramp.el (tramp-file-name-handl
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 93b823b: * lisp/net/tramp.el (tramp-file-name-handler): Use autoload-do-load |
Date: |
Tue, 25 Jun 2019 16:09:53 -0400 (EDT) |
branch: master
commit 93b823b6e4bb8d4d414a9b6a9d3d45d63cb32f70
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/net/tramp.el (tramp-file-name-handler): Use autoload-do-load
---
lisp/net/tramp.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0a5ccb6..4c9b67b 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2317,10 +2317,14 @@ Falls back to normal file name handler if no Tramp file
name handler exists."
;; in recursive loading. Therefore, we load
;; the Tramp packages locally.
(when (autoloadp sf)
+ ;; FIXME: Not clear why we need these bindings here.
+ ;; The explanation above is not convincing and
+ ;; the bug#9114 for which it was added doesn't
+ ;; clarify the core of the problem.
(let ((default-directory
(tramp-compat-temporary-file-directory))
file-name-handler-alist)
- (load (cadr sf) 'noerror 'nomessage)))
+ (autoload-do-load sf foreign)))
;; (tramp-message
;; v 4 "Running `%s'..." (cons operation args))
;; If `non-essential' is non-nil, Tramp shall
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 93b823b: * lisp/net/tramp.el (tramp-file-name-handler): Use autoload-do-load,
Stefan Monnier <=