branch: externals/ssh-deploy
commit 4f77b6cb4e3b4182d0d3e690af38a3e902b6e150
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Silenced code notices and fixes syntax for (display-warning)
---
ssh-deploy.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index 2edf967..91d2fea 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -756,13 +756,17 @@
(old-ssh-deploy-remote-sql-server ssh-deploy-remote-sql-server)
(old-ssh-deploy-remote-sql-user ssh-deploy-remote-sql-user)
(default-directory remote-path))
+ (defvar sql-database)
(set (make-local-variable 'sql-database)
old-ssh-deploy-remote-sql-database)
+ (defvar sql-password)
(set (make-local-variable 'sql-password)
old-ssh-deploy-remote-sql-password)
+ (defvar sql-server)
(set (make-local-variable 'sql-server) old-ssh-deploy-remote-sql-server)
+ (defvar sql-user)
(set (make-local-variable 'sql-user) old-ssh-deploy-remote-sql-user)
(cond ((string= sql-type "mysql") (sql-mysql))
((string= sql-type "postgres") (sql-postgres))
- (t (display-warning (format "SQL type %s not supported" type))))))
+ (t (display-warning "ssh-deploy" (format "SQL type %s not supported"
type) :warning)))))
;;;### autoload
(defun ssh-deploy-browse-remote (path-local &optional root-local root-remote
exclude-list)
