[nongnu] elpa/helm 9d6cf3fbc4 03/11: Make locate-library caches private

[ELPA Syncer]

branch: elpa/helm
commit 9d6cf3fbc49d15438a23475523aa0e39d7e297b1
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Make locate-library caches private
---
 helm-elisp.el | 12 ++++++------
 helm-mode.el  |  8 ++++----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index a9c0377050..2b9ec6a7ce 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -902,8 +902,8 @@ a string, i.e. the `symbol-name' of any existing symbol."
 ;;; Locate elisp library
 ;;
 ;;
-(defvar helm-locate-library-cache nil)
-(defvar helm-locate-library-doc-cache (make-hash-table :test 'equal))
+(defvar helm--locate-library-cache nil)
+(defvar helm--locate-library-doc-cache (make-hash-table :test 'equal))
 (defun helm-locate-library-scan-list ()
   (cl-loop for dir in load-path
            with load-suffixes = (find-library-suffixes)
@@ -928,13 +928,13 @@ a string, i.e. the `symbol-name' of any existing symbol."
                                                 (length c)))
                                          ? )
                               for bn = (helm-basename (helm-basename c t) t)
-                              for path = (or (assoc-default bn 
helm-locate-library-cache)
+                              for path = (or (assoc-default bn 
helm--locate-library-cache)
                                              (let ((p (find-library-name bn)))
-                                               (push (cons bn p) 
helm-locate-library-cache)
+                                               (push (cons bn p) 
helm--locate-library-cache)
                                                p))
-                              for doc = (or (gethash bn 
helm-locate-library-doc-cache)
+                              for doc = (or (gethash bn 
helm--locate-library-doc-cache)
                                             (puthash bn 
(helm-locate-lib-get-summary path)
-                                                     
helm-locate-library-doc-cache))
+                                                     
helm--locate-library-doc-cache))
                               for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
                                                     (propertize " " 'display 
(concat sep it))
                                                     (concat bn it))
diff --git a/helm-mode.el b/helm-mode.el
index c1d1c8eeaf..1ce8498e11 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1281,13 +1281,13 @@ is used."
     (let* ((sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
                                     (length comp)))
                              ? ))
-           (path (or (assoc-default comp helm-locate-library-cache)
+           (path (or (assoc-default comp helm--locate-library-cache)
                      (let ((p (find-library-name comp)))
-                       (push (cons comp p) helm-locate-library-cache)
+                       (push (cons comp p) helm--locate-library-cache)
                        p)))
-           (doc (or (gethash comp helm-locate-library-doc-cache)
+           (doc (or (gethash comp helm--locate-library-doc-cache)
                     (puthash comp (helm-locate-lib-get-summary path)
-                             helm-locate-library-doc-cache))))
+                             helm--locate-library-doc-cache))))
       (list comp
             ""
             (helm-aand (propertize doc 'face 'font-lock-warning-face)