branch: elpa/geiser-kawa
commit 0ef5baaab4691b383659d24fb4751c325d8d150e
Author: spellcard199 <spellcard...@protonmail.com>
Commit: spellcard199 <spellcard...@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) ". "
