[nongnu] elpa/helm d077d2876e 2/3: Fix *locate-library with auto-save file in LOAD-PATH (bug#2626)

[ELPA Syncer]

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

    Fix *locate-library with auto-save file in LOAD-PATH (bug#2626)
---
 helm-elisp.el | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 0f660f03a8..70a9bd8ebd 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -939,18 +939,23 @@ a prefix arg."
                        for bn = (helm-basename c 2)
                        for sep = (helm-make-separator bn lgst)
                        for path = (or (assoc-default bn 
helm--locate-library-cache)
-                                      (let ((p (find-library-name bn)))
-                                        (push (cons bn p) 
helm--locate-library-cache)
-                                        p))
-                       for doc = (and (or completions-detailed 
helm-completions-detailed)
+                                      ;; An auto-save file in LOAD-PATH 
(bug#2626).
+                                      (unless (string-match "\\`\\.#" bn)
+                                        (let ((p (find-library-name bn)))
+                                          (push (cons bn p) 
helm--locate-library-cache)
+                                          p)))
+                       for doc = (and path
+                                      (or completions-detailed 
helm-completions-detailed)
                                       (or (gethash bn 
helm--locate-library-doc-cache)
                                           (puthash bn 
(helm-locate-lib-get-summary path)
                                                    
helm--locate-library-doc-cache)))
-                       for disp = (if (or completions-detailed 
helm-completions-detailed)
-                                      (helm-aand (propertize doc 'face 
'font-lock-warning-face)
-                                                 (propertize " " 'display 
(concat sep it))
-                                                 (concat bn it))
-                                    bn)
+                       for disp = (and path
+                                       (if (or completions-detailed 
helm-completions-detailed)
+                                           (helm-aand (propertize doc 'face 
'font-lock-warning-face)
+                                                      (propertize " " 'display 
(concat sep it))
+                                                      (concat bn it))
+                                         bn))
+                       when (and disp path)
                        collect (cons disp path)
                        when reporter do (progress-reporter-update reporter 
count)
                        finally do (setq done t)))