[elpa] externals/altcaps fb62e8327c 2/3: Make altcaps-transform public

[ELPA Syncer]

branch: externals/altcaps
commit fb62e8327c9a0e2a262eda7c295c008efd3001b6
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make altcaps-transform public
    
    This gives users confidence that the function will remain in place and
    can be relied upon.  Any changes to its behaviour will be documented.
---
 altcaps.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/altcaps.el b/altcaps.el
index daf4450787..854ffeff35 100644
--- a/altcaps.el
+++ b/altcaps.el
@@ -127,7 +127,7 @@ that disambiguates characters.)"
                              (const :tag "Upper case" upcase)))
   :group 'altcaps)
 
-(defun altcaps--transform (string)
+(defun altcaps-transform (string)
   "Make STRING use alternating letter casing."
   (let ((s (vconcat (downcase string)))
         casing
@@ -154,7 +154,7 @@ With optional START, use it as a buffer position whence to 
make
 the replacement."
   (when start (goto-char start))
   (when (search-forward string nil t)
-    (replace-match (altcaps--transform string) t)))
+    (replace-match (altcaps-transform string) t)))
 
 ;;;###autoload
 (defun altcaps-word (&optional num)