[elpa] externals/ssh-deploy 4f77b6c 118/173: Silenced code notices and fixes syntax for (display-warning)

[Stefan Monnier]

branch: externals/ssh-deploy
commit 4f77b6cb4e3b4182d0d3e690af38a3e902b6e150
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    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)