[nongnu] elpa/bash-completion 0af9a70ff9 130/313: Merge pull request #16 from tarsius/master

[ELPA Syncer]

branch: elpa/bash-completion
commit 0af9a70ff9f3951ac2a797c0e0b9a5adef1b16f3
Merge: 1659c7ca38 c5f2b2756f
Author: Stephane Zermatten <szermatt@gmx.net>
Commit: GitHub <noreply@github.com>

    Merge pull request #16 from tarsius/master
    
    Fix various issues reported by the byte-compiler
---
 bash-completion-test.el | 1 -
 bash-completion.el      | 3 ++-
 sz-testutils.el         | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bash-completion-test.el b/bash-completion-test.el
index 11c32f7928..b400fd36d7 100644
--- a/bash-completion-test.el
+++ b/bash-completion-test.el
@@ -31,7 +31,6 @@
 ;;; Code:
 (require 'ert)
 (require 'sz-testutils)
-(require 'cl)
 (require 'bash-completion)
 
 (defun bash-completion-test-send (buffer-content)
diff --git a/bash-completion.el b/bash-completion.el
index 49bbaf75d0..93bd540150 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -299,7 +299,8 @@ nil if no completions available."
                ;; configuration for comint-dynamic-simple-complete.
                ;; Bash adds a space suffix automatically.
                (comint-completion-addsuffix nil))
-           (comint-dynamic-simple-complete stub completions))))))
+           (with-no-warnings
+             (comint-dynamic-simple-complete stub completions)))))))
 
 (defun bash-completion-dynamic-complete-0 ()
   "Returns completion information for bash command at point.
diff --git a/sz-testutils.el b/sz-testutils.el
index fbc2b84bd6..dc2cad6cc2 100644
--- a/sz-testutils.el
+++ b/sz-testutils.el
@@ -108,7 +108,7 @@ is: '(\"Here >>\" cursor \"<<.\")"
 (eval-when-compile
   ;; This code will not appear in the compiled (.elc) file
   (put 'sz-testutils-regress 'regression-suite t)
-  (setq sz-testutils-regress
+  (defvar sz-testutils-regress
    '("sz-testutils-regress"
      ;; Each test in the suite is of the form:
      ;;   ([description] probe grader)
@@ -167,4 +167,4 @@ is: '(\"Here >>\" cursor \"<<.\")"
   (if (featurep 'regress)
       (regress sz-testutils-regress)))
 
-(provide 'sz-testutils)
\ No newline at end of file
+(provide 'sz-testutils)