branch: elpa/helm
commit 8ca403268c2411b084970d3c4a23e986192eafa6
Author: Ta Quang Trung <taquangtrun...@gmail.com>
Commit: Ta Quang Trung <taquangtrun...@gmail.com>
simpler patch by Thierry Volpiatto
---
helm-lib.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/helm-lib.el b/helm-lib.el
index d95022e43b..6fb58294c5 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -2024,11 +2024,9 @@ Directories expansion is not supported."
(goto-char (point-min))
(when (re-search-forward "^;;;?\\(.*\\) ---? \\(.*\\)" (pos-eol) t)
(setq desc (match-string-no-properties 2)))
- (if-let ((_ (and desc (length> desc 0)))
- (summary (car (split-string desc "-\\*-" nil)))
- (_ (length> summary 0)))
- (string-trim summary "[ \t\n\r-]+" "[ \t\n\r-]+")
- "Not documented"))))
+ (if (or (null desc) (string= "" desc) (string-match "\\`-*-" desc))
+ "Not documented"
+ (car (split-string desc "-\\*-" nil "[ \t\n\r-]+"))))))
(defun helm-local-directory-files (directory &rest args)
"Run `directory-files' without tramp file name handlers.
