branch: elpa/helm
commit c58ef324cadefbd423ec2b7bb91af793daf6d159
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix regexps starting with ^ and containing an escaped space
in helm-occur. Without this change escaped spaces are stripped from
pattern.
---
helm-occur.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/helm-occur.el b/helm-occur.el
index 9717093ab5..be2e6419b7 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -352,7 +352,7 @@ When GSHORTHANDS is nil use PATTERN unmodified."
(match-string 2 candidate)))
:diacritics helm-occur-ignore-diacritics
:search (lambda (pattern)
- (when (string-match "\\`\\^\\([^ ]*\\)" pattern)
+ (when (string-match "\\`\\^\\(.*\\)" pattern)
(setq pattern (concat "^[0-9]*\\s-" (match-string
1 pattern))))
(condition-case _err
(re-search-forward pattern nil t)
