branch: elpa/helm
commit 94aaa3e99c49ac40eddd8d3fff744b6f5a1e6113
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix helm-locate-lib-get-summary according to suggestions in (#2695)
---
helm-lib.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/helm-lib.el b/helm-lib.el
index a677fd6382..822fad29a0 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -2016,13 +2016,13 @@ Directories expansion is not supported."
(with-temp-buffer
(let (desc)
(cl-letf (((symbol-function 'message) 'ignore))
- (insert-file-contents file nil 0 80))
+ (insert-file-contents file nil 0 128))
(goto-char (point-min))
- (when (re-search-forward "^;;;\\(.*\\) ---? \\(.*\\)" (pos-eol) t)
+ (when (re-search-forward "^;;;?\\(.*\\) ---? \\(.*\\)" (pos-eol) t)
(setq desc (match-string-no-properties 2)))
(if (or (null desc) (string= "" desc))
"Not documented"
- (car (split-string desc " +-*-"))))))
+ (car (split-string desc "-\\*-" nil "[ \t\n\r-]+"))))))
(defun helm-local-directory-files (directory &rest args)
"Run `directory-files' without tramp file name handlers.
