[nongnu] elpa/helm 83ddff7a00 4/4: Improve helm-locate-library-scan-list

[ELPA Syncer]

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

    Improve helm-locate-library-scan-list
    
    Prevent duplicates with get-load-suffixes, even if regexp-opt remove them.
---
 helm-elisp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 796baab4e6..6b6688b5d9 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -906,10 +906,9 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (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)
            when (file-directory-p dir)
            nconc (directory-files
-                  dir nil (concat (regexp-opt (get-load-suffixes)) "\\'"))))
+                  dir nil (concat (regexp-opt (find-library-suffixes)) 
"\\'"))))
 
 ;;;###autoload
 (defun helm-locate-library (&optional arg)