[nongnu] elpa/geiser-kawa 0ef5baa 106/119: melpa/melpa#6858 - Fix issues found by "Suggestions/experimental static checks"

[Philip Kaludercic]

branch: elpa/geiser-kawa
commit 0ef5baaab4691b383659d24fb4751c325d8d150e
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    melpa/melpa#6858 - Fix issues found by "Suggestions/experimental static 
checks"
---
 elisp/geiser-kawa-devutil-complete.el | 2 +-
 elisp/geiser-kawa-ext-help.el         | 6 +++---
 elisp/geiser-kawa-util.el             | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/elisp/geiser-kawa-devutil-complete.el 
b/elisp/geiser-kawa-devutil-complete.el
index 4812476..5126444 100644
--- a/elisp/geiser-kawa-devutil-complete.el
+++ b/elisp/geiser-kawa-devutil-complete.el
@@ -136,7 +136,7 @@ members of package as returned by kawa-geiser."
           ((equal completion-type "SYMBOLS_PLUS_PACKAGEMEMBERS")
            
(geiser-kawa-devutil-complete--user-choice-symbols-plus-packagemembers
             compl-data))
-          ((equal completion-type nil)
+          ((null completion-type)
           (message "No completions found.")
           "")
           (t (error (format "[Unexpected `completion-type' value] 
completion-type: %s"
diff --git a/elisp/geiser-kawa-ext-help.el b/elisp/geiser-kawa-ext-help.el
index 46f4dfb..0205fa4 100644
--- a/elisp/geiser-kawa-ext-help.el
+++ b/elisp/geiser-kawa-ext-help.el
@@ -93,7 +93,7 @@ the manual are more responsive.")
           (backward-char 3) ;; Move point over link
           (eww-browse-url (car (eww-links-at-point))) ;; Follow link
           (recenter-top-bottom 'top))
-      (message (format "No match for `%s' found in Kawa's epub manual." 
needle)))))
+      (message "No match for `%s' found in Kawa's epub manual." needle))))
 
 
 ;; Support for manual in .info format
@@ -115,8 +115,8 @@ the manual are more responsive.")
           (recenter-top-bottom 'top))
       (progn
         (quit-window)
-        (message (format "No match for `%s' found in Kawa's info manual."
-                         needle))))))
+        (message "No match for `%s' found in Kawa's info manual."
+                 needle)))))
 
 ;;;; Dispatch to epub or info manual function based on
 ;;;; `geiser-kawa-manual-path's file extension.
diff --git a/elisp/geiser-kawa-util.el b/elisp/geiser-kawa-util.el
index 1f619fe..3daf38e 100644
--- a/elisp/geiser-kawa-util.el
+++ b/elisp/geiser-kawa-util.el
@@ -33,8 +33,8 @@ procedure in Kawa.  It can be either a `list' or a `string'."
   ;;   ...
   (let ((valid-types '(string cons))
         (sexp-or-str-type (type-of sexp-or-str)))
-    (when (not (member sexp-or-str-type
-                       valid-types))
+    (unless (member sexp-or-str-type
+                    valid-types)
       (error
        (concat "Wrong type argument: Type of `sexp-or-str' is "
                (format "`%S'" sexp-or-str-type) ". "