[nongnu] elpa/flx 24dd436463 100/182: Fix compilation errors.

[ELPA Syncer]

branch: elpa/flx
commit 24dd436463cf622668b826ffdeace36899783f32
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    Fix compilation errors.
---
 flx.el | 39 +++++++++++++++++++--------------------
 1 file changed, 19 insertions(+), 20 deletions(-)

diff --git a/flx.el b/flx.el
index ba96806b97..1de0131b57 100644
--- a/flx.el
+++ b/flx.el
@@ -56,26 +56,6 @@
   "Face used by flx for highlighting flx match characters."
   :group 'flx)
 
-
-(defun flx-get-hash-for-string (str heatmap-func)
-  "Return hash-table for string where keys are characters value
-  is a sorted list of indexes for character occurrences."
-  (let* ((res (make-hash-table :test 'eq :size 32))
-         (str-len (length str))
-         down-char)
-    (cl-loop for index from (1- str-len) downto 0
-             for char = (aref str index)
-          do (progn
-               ;; simulate `case-fold-search'
-               (if (flx-capital-p char)
-                   (progn
-                     (push index (gethash char res))
-                     (setq down-char (downcase char)))
-                 (setq down-char char))
-               (push index (gethash down-char res))))
-    (puthash 'heatmap (funcall heatmap-func str) res)
-    res))
-
 ;;; Do we need more word separators than ST?
 (defsubst flx-word-p (char)
   "Check if CHAR is a word character."
@@ -113,6 +93,25 @@ from BEG (inclusive) to end (not inclusive).
     (cl-incf beg))
   vec)
 
+(defun flx-get-hash-for-string (str heatmap-func)
+  "Return hash-table for string where keys are characters value
+  is a sorted list of indexes for character occurrences."
+  (let* ((res (make-hash-table :test 'eq :size 32))
+         (str-len (length str))
+         down-char)
+    (cl-loop for index from (1- str-len) downto 0
+             for char = (aref str index)
+          do (progn
+               ;; simulate `case-fold-search'
+               (if (flx-capital-p char)
+                   (progn
+                     (push index (gethash char res))
+                     (setq down-char (downcase char)))
+                 (setq down-char char))
+               (push index (gethash down-char res))))
+    (puthash 'heatmap (funcall heatmap-func str) res)
+    res))
+
 ;; So we store one fixnum per character.  Is this too memory inefficient?
 (defun flx-get-heatmap-str (str &optional group-separator)
   "Generate heat map vector of string.