[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy 0111640 108/133: Removed unnecessary async a
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy 0111640 108/133: Removed unnecessary async autoloads |
Date: |
Sat, 27 Mar 2021 14:48:54 -0400 (EDT) |
branch: externals/ssh-deploy
commit 01116404442d53832c92844dc5e3ae3dc57c5872
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>
Removed unnecessary async autoloads
---
ssh-deploy.el | 41 +++++++++++++----------------------------
1 file changed, 13 insertions(+), 28 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index b9181b8..eb86b9f 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -327,28 +327,12 @@
(ssh-deploy-root-remote root-remote)
(ssh-deploy-revision-folder revision-folder)
(ssh-deploy-exclude-list exclude-list))
+
+ ;; Pass ange-ftp setting to asynchronous process
(when ftp-netrc
- ;; Pass ange-ftp setting to asynchronous process
- (defvar ange-ftp-netrc-filename ftp-netrc))
-
- (autoload 'ediff-same-file-contents "ediff-util")
- (autoload 'string-remove-prefix "subr-x")
-
- (autoload 'ssh-deploy-download "ssh-deploy")
- (autoload 'ssh-deploy-download-handler "ssh-deploy")
- (autoload 'ssh-deploy-upload "ssh-deploy")
- (autoload 'ssh-deploy-upload-handler "ssh-deploy")
- (autoload 'ssh-deploy-rename "ssh-deploy")
- (autoload 'ssh-deploy-rename-handler "ssh-deploy")
- (autoload 'ssh-deploy-delete "ssh-deploy")
- (autoload 'ssh-deploy-delete-both "ssh-deploy")
- (autoload 'ssh-deploy-delete-handler "ssh-deploy")
- (autoload 'ssh-deploy-diff "ssh-deploy")
- (autoload 'ssh-deploy-diff-handler "ssh-deploy")
- (autoload 'ssh-deploy--diff-directories-data "ssh-deploy")
- (autoload 'ssh-deploy--diff-directories-present
"ssh-deploy")
- (autoload 'ssh-deploy--remote-changes-data "ssh-deploy")
- (autoload 'ssh-deploy--remote-changes-post-executor
"ssh-deploy")
+ (defvar ange-ftp-netrc-filename)
+ (setq ange-ftp-netrc-filename ftp-netrc))
+
(funcall start)))
finish))))
(display-warning 'ssh-deploy "async-start functions are not
available!"))))
@@ -577,12 +561,12 @@
(not (null (string-match element
relative-path))))
(setq included nil)))
+ ;; Add relative path file a list
(when included
- (progn
- (puthash relative-path file-a files-a-relative-hash)
- (if (equal files-a-relative-list nil)
- (setq files-a-relative-list (list relative-path))
- (push relative-path files-a-relative-list)))))))
+ (puthash relative-path file-a files-a-relative-hash)
+ (if (equal files-a-relative-list nil)
+ (setq files-a-relative-list (list relative-path))
+ (push relative-path files-a-relative-list))))))
files-a)
;; Collected included files in directory b with relative paths
@@ -599,6 +583,7 @@
(not (null (string-match element
relative-path))))
(setq included nil)))
+ ;; Add relative path file a list
(when included
(puthash relative-path file-b files-b-relative-hash)
(if (equal files-b-relative-list nil)
@@ -1165,13 +1150,13 @@
(file-exists-p buffer-file-name))
(let* ((path-local (file-truename buffer-file-name))
(root-local (file-truename ssh-deploy-root-local))
- (path-remote (file-truename (expand-file-name
(ssh-deploy--get-relative-path root-local path-local) ssh-deploy-root-remote))))
+ (path-remote (expand-file-name (ssh-deploy--get-relative-path
root-local path-local) ssh-deploy-root-remote)))
(ssh-deploy-diff path-local path-remote root-local ssh-deploy-debug
ssh-deploy-exclude-list ssh-deploy-async ssh-deploy-async-with-threads
ssh-deploy-on-explicit-save ssh-deploy-revision-folder
ssh-deploy-automatically-detect-remote-changes))
(when (and (ssh-deploy--is-not-empty-string-p default-directory)
(file-exists-p default-directory))
(let* ((path-local (file-truename default-directory))
(root-local (file-truename ssh-deploy-root-local))
- (path-remote (file-truename (expand-file-name
(ssh-deploy--get-relative-path root-local path-local) ssh-deploy-root-remote))))
+ (path-remote (expand-file-name (ssh-deploy--get-relative-path
root-local path-local) ssh-deploy-root-remote)))
(ssh-deploy-diff path-local path-remote root-local ssh-deploy-debug
ssh-deploy-exclude-list ssh-deploy-async ssh-deploy-async-with-threads
ssh-deploy-on-explicit-save ssh-deploy-revision-folder
ssh-deploy-automatically-detect-remote-changes))))))
;;;###autoload
- [elpa] externals/ssh-deploy 31cb94d 060/133: Added compile command to makefile and added a .gitignore file, (continued)
- [elpa] externals/ssh-deploy 31cb94d 060/133: Added compile command to makefile and added a .gitignore file, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d03bd70 068/133: Added unit-test for uploads, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 95e823a 074/133: Fixed issue with byte-compilation warning in new unit tests, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy f233e2e 075/133: Removed checks for ediff-same-file-contents function since it's built-in in Emacs, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 336833f 076/133: Got (autoload) working inside asynchronous process, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy db73e5b 083/133: Started in new function for detecting remote changes that should be testable by unit tests, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 3a6c3ac 084/133: More work on making detect remote changes unit-testable, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 7d578da 088/133: Passing unit test for asynchronous change detection, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 20a87ab 099/133: Added async.el to travis test, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 761eb11 098/133: Updated Travis to use emacs version snapshot, 25.1 and 26.1 via EVM, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 0111640 108/133: Removed unnecessary async autoloads,
Stefan Monnier <=
- [elpa] externals/ssh-deploy ea734f5 104/133: Added note, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 49ae447 097/133: Fixed Travis build status logo, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy a5aa5f6 093/133: Run only async test with threads if threads are available, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy b8f976a 116/133: Passing verbose flag to diff files function, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy e1507fe 119/133: Create FUNDING.yml, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 37a15c6 118/133: fix: ".git" matching, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d0f7294 121/133: When remote differs only with local-revision, update local-revision [#61], Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy e133963 125/133: Default exclude value for DirectoryVariables now matches only .dir-locals.el, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 168c66d 114/133: Updated .gitignore to ignore test-generated files, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 93a0e18 128/133: Resolved hydra declaration if hydra is not installed, Stefan Monnier, 2021/03/27