Mark bog-prepare-bib-file as an internal function

2 files changed, 9 insertions, 9 deletions

diff --git a/bog-tests.el b/bog-tests.el
index 022275e..d5e3882 100644
--- a/bog-tests.el
+++ b/bog-tests.el
@@ -226,9 +226,9 @@
 
 ;;; BibTeX functions
 
-;; `bog-prepare-bib-file'
+;; `bog--prepare-bib-file'
 
-(ert-deftest bog-prepare-bib-file ()
+(ert-deftest bog--prepare-bib-file ()
   (bog-tests--with-temp-dir
     (let ((temp-file (make-temp-file
                       (expand-file-name "bog-testing-" default-directory)
@@ -243,14 +243,14 @@
                 "\n}")
         (save-buffer))
       (kill-buffer (get-file-buffer temp-file))
-      (bog-prepare-bib-file temp-file)
+      (bog--prepare-bib-file temp-file)
       (should-not (file-exists-p temp-file))
       (let* ((new-file (concat citekey ".bib"))
              (new-buffer (get-file-buffer new-file)))
         (should-not new-buffer)
         (delete-file new-file)))))
 
-(ert-deftest bog-prepare-bib-file-was-open ()
+(ert-deftest bog--prepare-bib-file-was-open ()
   (bog-tests--with-temp-dir
     (let ((temp-file (make-temp-file
                       (expand-file-name "bog-testing-" default-directory)
@@ -264,7 +264,7 @@
                 "year = 2009,\n"
                 "\n}")
         (save-buffer))
-      (bog-prepare-bib-file temp-file)
+      (bog--prepare-bib-file temp-file)
       (should-not (file-exists-p temp-file))
       (let* ((new-file (concat citekey ".bib"))
              (new-buffer (get-file-buffer new-file)))
diff --git a/bog.el b/bog.el
index 110d946..becee39 100644
--- a/bog.el
+++ b/bog.el
@@ -485,8 +485,8 @@ opened if locating a citekey from context fails."
   "Clean and rename BibTeX files in `bog-stage-directory'.
 
 New BibTeX files are searched for in `bog-stage-directory', and
-`bog-prepare-bib-file' will be run one each file before it is
-moved to `bog-bib-directory'/<citekey>.bib.
+`bibtex-clean-entry' will be run one each file before it is moved
+to `bog-bib-directory'/<citekey>.bib.
 
 This function is only useful if you use the non-standard setup of
 one entry per BibTeX file."
@@ -495,9 +495,9 @@ one entry per BibTeX file."
          (file-expand-wildcards
           (concat (file-name-as-directory bog-stage-directory) "*.bib"))))
     (--each staged
-      (bog-prepare-bib-file it t bog-bib-directory))))
+      (bog--prepare-bib-file it t bog-bib-directory))))
 
-(defun bog-prepare-bib-file (file &optional new-key new-directory)
+(defun bog--prepare-bib-file (file &optional new-key new-directory)
   (let (bib-file)
     (with-temp-buffer
       (bibtex-mode)