branch: elpa/helm
commit fe4ecf4187ade81fbf6c8284dd1cb7257cbed8b2
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Comment only
---
helm-lib.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/helm-lib.el b/helm-lib.el
index 05f03973b1..c36d7e8615 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -2024,7 +2024,10 @@ Directories expansion is not supported."
(goto-char (point-min))
(when (re-search-forward "^;;;?\\(.*\\) ---? \\(.*\\)" (pos-eol) t)
(setq desc (match-string-no-properties 2)))
- (if (or (null desc) (string= "" desc) (string-match "\\`-\\*-" desc))
+ (if (or (null desc) (string= "" desc)
+ ;; Fix issue#2716 with an header line like
+ ;; ";; foo --- -*-[...]" i.e. desc is not provided.
+ (string-match "\\`-\\*-" desc))
"Not documented"
(car (split-string desc "-\\*-" nil "[ \t\n\r-]+"))))))
