[nongnu] elpa/geiser-stklos 3210fd8 20/30: Fix small remaining packaging bugs

[Philip Kaludercic]

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

    Fix small remaining packaging bugs
    
    * use triple dash (---) instead of double in first line.
    * use package name as prefix is all functions
---
 geiser-stklos-test.el | 4 ++--
 geiser-stklos.el      | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/geiser-stklos-test.el b/geiser-stklos-test.el
index f18dded..bfb435d 100644
--- a/geiser-stklos-test.el
+++ b/geiser-stklos-test.el
@@ -15,14 +15,14 @@
   (with-temp-buffer
     (insert "(let* ((let 'let) (let* let)) let)")
     (goto-char 7)
-    (find-close-par)))
+    (geiser-stklos--find-close-par)))
 
 (ert-deftest find-close-par-2 ()
   18
   (with-temp-buffer
     (insert "(let* ((let 'let) (let* let)) let)")
     (goto-char 10)
-    (find-close-par 8)))
+    (geiser-stklos--find-close-par 8)))
 
 
 ;; this one could have many more variants
diff --git a/geiser-stklos.el b/geiser-stklos.el
index 84440ee..3083121 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -1,4 +1,4 @@
-;;; geiser-stklos.el -- STklos Scheme implementation of the geiser protocols 
-*- lexical-binding: t; -*-
+;;; geiser-stklos.el --- STklos Scheme implementation of the geiser protocols 
-*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2020-2021 Jerônimo Pellegrini
 
@@ -142,7 +142,7 @@ This function uses `geiser-stklos-init-file' if it exists."
 ;; ( or [, find its closing match and return its
 ;; position, or the end of buffer position if a
 ;; closing match is not found.
-(defun find-close-par (&optional start-point)
+(defun geiser-stklos--find-close-par (&optional start-point)
   (interactive)
   (let ((start (if (null start-point)
                    (point)
@@ -181,7 +181,7 @@ This function uses `geiser-stklos-init-file' if it exists."
              (let ((module-begin (re-search-backward geiser-stklos--module-re 
nil t)))
                (if module-begin
                    ;; and we're not AFTER it was closed:
-                   (let ((module-end (find-close-par module-begin)))
+                   (let ((module-end (geiser-stklos--find-close-par 
module-begin)))
                      (if (< here module-end)
                          (geiser-stklos--get-module 
(match-string-no-properties 1))
                        :f))