emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ssh-deploy 4ff27e9 049/133: Minor modifications after s


From: Stefan Monnier
Subject: [elpa] externals/ssh-deploy 4ff27e9 049/133: Minor modifications after suggestions from flycheck-package
Date: Sat, 27 Mar 2021 14:48:41 -0400 (EDT)

branch: externals/ssh-deploy
commit 4ff27e9ae07c74b3167e722587d942c8c32db039
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Minor modifications after suggestions from flycheck-package
---
 ssh-deploy-diff-mode.el | 10 ----------
 ssh-deploy-test.el      | 14 ++------------
 ssh-deploy.el           | 39 ++++++++++++++++++++-------------------
 3 files changed, 22 insertions(+), 41 deletions(-)

diff --git a/ssh-deploy-diff-mode.el b/ssh-deploy-diff-mode.el
index c6db269..9c46594 100644
--- a/ssh-deploy-diff-mode.el
+++ b/ssh-deploy-diff-mode.el
@@ -2,16 +2,6 @@
 
 ;; Copyright (C) 2017-2018  Free Software Foundation, Inc.
 
-;; Author: Christian Johansson <christian@cvj.se>
-;; Maintainer: Christian Johansson <christian@cvj.se>
-;; Created: 1 Feb 2018
-;; Modified: 28 Nov 2018
-;; Version: 2.0
-;; Keywords: tools, convenience
-;; URL: https://github.com/cjohansson/emacs-ssh-deploy
-
-;; Package-Requires: ((emacs "24"))
-
 ;; This file is not part of GNU Emacs.
 
 ;; This program is free software; you can redistribute it and/or
diff --git a/ssh-deploy-test.el b/ssh-deploy-test.el
index 043673a..8c5af83 100644
--- a/ssh-deploy-test.el
+++ b/ssh-deploy-test.el
@@ -2,16 +2,6 @@
 
 ;; Copyright (C) 2017-2018  Free Software Foundation, Inc.
 
-;; Author: Christian Johansson <christian@cvj.se>
-;; Maintainer: Christian Johansson <christian@cvj.se>
-;; Created: 5 Jul 2016
-;; Modified: 28 Nov 2018
-;; Version: 3.0
-;; Keywords: tools, convenience
-;; URL: https://github.com/cjohansson/emacs-ssh-deploy
-
-;; Package-Requires: ((emacs "24"))
-
 ;; This file is not part of GNU Emacs.
 
 ;; This program is free software; you can redistribute it and/or
@@ -65,14 +55,14 @@
   (should (equal nil (ssh-deploy--is-not-empty-string nil)))
   )
 
-(defun ssh-deploy-tests ()
+(defun ssh-deploy-test ()
   "Run test for plug-in."
   (ssh-deploy-test--get-revision-path)
   (ssh-deploy-test--file-is-in-path)
   (ssh-deploy-test--is-not-empty-string)
   )
 
-(ssh-deploy-tests)
+(ssh-deploy-test)
 
 
 (provide 'ssh-deploy-test)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index 10a676a..ad16c23 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -5,12 +5,12 @@
 ;; Author: Christian Johansson <christian@cvj.se>
 ;; Maintainer: Christian Johansson <christian@cvj.se>
 ;; Created: 5 Jul 2016
-;; Modified: 28 Nov 2018
-;; Version: 3.0
+;; Modified: 5 Dec 2018
+;; Version: 3.0.1
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-ssh-deploy
 
-;; Package-Requires: ((emacs "24"))
+;; Package-Requires: ((emacs "25"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -1362,6 +1362,7 @@
 (define-minor-mode ssh-deploy-line-mode
   "Show SSH Deploy status in mode line"
   :global t
+  :require 'ssh-deploy
   :group 'ssh-deploy
   (add-to-list 'global-mode-string 'ssh-deploy--mode-line-status-text t))
 
@@ -1401,22 +1402,22 @@
     _o_: Open current file on remote         _m_: Open sql-mysql on remote
     _s_: Run deploy script
     "
-    ("f" ssh-deploy-upload-handler-forced)
-    ("u" ssh-deploy-upload-handler)
-    ("d" ssh-deploy-download-handler)
-    ("D" ssh-deploy-delete-handler)
-    ("x" ssh-deploy-diff-handler)
-    ("t" ssh-deploy-remote-terminal-eshell-base-handler)
-    ("T" ssh-deploy-remote-terminal-eshell-handler)
-    ("h" ssh-deploy-remote-terminal-shell-base-handler)
-    ("H" ssh-deploy-remote-terminal-shell-handler)
-    ("e" ssh-deploy-remote-changes-handler)
-    ("R" ssh-deploy-rename-handler)
-    ("b" ssh-deploy-browse-remote-base-handler)
-    ("B" ssh-deploy-browse-remote-handler)
-    ("o" ssh-deploy-open-remote-file-handler)
-    ("m" ssh-deploy-remote-sql-mysql-handler)
-    ("s" ssh-deploy-run-deploy-script-handler)))
+    ("f" #'ssh-deploy-upload-handler-forced)
+    ("u" #'ssh-deploy-upload-handler)
+    ("d" #'ssh-deploy-download-handler)
+    ("D" #'ssh-deploy-delete-handler)
+    ("x" #'ssh-deploy-diff-handler)
+    ("t" #'ssh-deploy-remote-terminal-eshell-base-handler)
+    ("T" #'ssh-deploy-remote-terminal-eshell-handler)
+    ("h" #'ssh-deploy-remote-terminal-shell-base-handler)
+    ("H" #'ssh-deploy-remote-terminal-shell-handler)
+    ("e" #'ssh-deploy-remote-changes-handler)
+    ("R" #'ssh-deploy-rename-handler)
+    ("b" #'ssh-deploy-browse-remote-base-handler)
+    ("B" #'ssh-deploy-browse-remote-handler)
+    ("o" #'ssh-deploy-open-remote-file-handler)
+    ("m" #'ssh-deploy-remote-sql-mysql-handler)
+    ("s" #'ssh-deploy-run-deploy-script-handler)))
 
 (defvar ssh-deploy-prefix-map
   (let ((map (make-sparse-keymap)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]