[nongnu] elpa/geiser-stklos 47cbf16 26/30: Fixing docstrings and style issues

[Philip Kaludercic]

branch: elpa/geiser-stklos
commit 47cbf16da0fdf3b3a7cca51b71a0c50d05c5556f
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Jeronimo Pellegrini <j_p@aleph0.info>

    Fixing docstrings and style issues
    
    Thanks to Chris Rayner
---
 geiser-stklos.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/geiser-stklos.el b/geiser-stklos.el
index 9486689..d822b60 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -107,7 +107,7 @@ This function uses `geiser-stklos-init-file' if it exists."
 ;; in its name, things break...
 (defconst geiser-stklos--prompt-regexp
   "[^>]*> "
-  "A string containing a regexp that wil llikely match STklos' prompt")
+  "A string containing a regexp that wil likely match STklos' prompt.")
 
 
 ;;; Evaluation support:
@@ -120,7 +120,7 @@ Argument PROC is the procedure to be called.
 Optional argument ARGS are the arguments to the procedure."
   (cl-case proc
     ((eval compile)
-     (let ((form (mapconcat 'identity (cdr args) " "))
+     (let ((form (mapconcat #'identity (cdr args) " "))
            (module (cond ((string-equal "'()" (car args))
                           "'()")
                          ((and (car args))
@@ -133,7 +133,7 @@ Optional argument ARGS are the arguments to the procedure."
     ((no-values)
      "((in-module GEISER geiser:no-values))")
     (t
-     (let ((form (mapconcat 'identity args " ")))
+     (let ((form (mapconcat #'identity args " ")))
        (format "(geiser:%s %s)" proc form)))))
 
 ;;; Modules
@@ -153,9 +153,9 @@ if a closing match is not found."
                  start-point))
         (opening '( ?\[ ?\( ))
         (closing '( ?\] ?\) )))
-    (when (not (member (char-after start)
-                       opening))
-      (error "find-close-par: not ( or ["))
+    (unless (member (char-after start)
+                    opening)
+      (error "`find-close-par`: not ( or ["))
     (let ((stack (list (char-after start)))
           (p (+ 1 start)))
       (while (not (or (= p (point-max))
@@ -196,7 +196,7 @@ if a closing match is not found."
         ((stringp module)
          (condition-case e
              (car (geiser-syntax--read-from-string module))
-           (progn (message (format "error -> %s" e))
+           (progn (message "error -> %s" e)
                   (error   :f))))
         (t :f)))
 
@@ -230,8 +230,8 @@ if a closing match is not found."
 
 ;;; Error display
 
-(defun geiser-stklos--display-error (module key msg)
-  "Display an error, given current MODULE, key KEY and message MSG."
+(defun geiser-stklos--display-error (_module key msg)
+  "Display an error, given key KEY and message MSG."
   (newline)
   (when (stringp msg)
     (save-excursion (insert msg))
@@ -284,8 +284,8 @@ Argument BINARY is a string containing the binary name."
 
 
 ;; Function ran at startup
-(defun geiser-stklos--startup (remote)
-  "Hook for startup.  The argument REMOTE is ignored."
+(defun geiser-stklos--startup (_remote)
+  "Hook for startup.  The argument is ignored."
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)))