[nongnu] elpa/helm 1586b2d6b9 3/4: Fix regexps in helm-occur

[ELPA Syncer]

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

    Fix regexps in helm-occur
---
 helm-occur.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-occur.el b/helm-occur.el
index 68b790404f..21be1212f7 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -42,7 +42,7 @@ Don't set it to any value, it will have no effect.")
 (defvar helm-occur--buffer-list nil)
 (defvar helm-occur--buffer-tick nil)
 (defvar helm-occur-history nil)
-(defvar helm-occur--search-buffer-regexp 
"\\`\\([0-9]*\\)\\s-\\{1\\}\\(.*\\)\\'"
+(defvar helm-occur--search-buffer-regexp "\\`\\([0-9]*\\)\\s-\\(.*\\)\\'"
   "The regexp matching candidates in helm-occur candidate buffer.")
 (defvar helm-occur-mode--last-pattern nil)
 (defvar helm-occur--initial-pos 0)
@@ -348,7 +348,7 @@ When GSHORTHANDS is nil use PATTERN unmodified."
                 :diacritics helm-occur-ignore-diacritics
                 :search (lambda (pattern)
                           (when (string-match "\\`\\^\\([^ ]*\\)" pattern)
-                            (setq pattern (concat "^[0-9]* \\{1\\}" 
(match-string 1 pattern))))
+                            (setq pattern (concat "^[0-9]*\\s-" (match-string 
1 pattern))))
                           (condition-case _err
                               (re-search-forward pattern nil t)
                             (invalid-regexp nil)))