diff options
-rw-r--r-- | helm-buffers.el | 8 | ||||
-rw-r--r-- | helm-grep.el | 4 | ||||
-rw-r--r-- | helm-id-utils.el | 2 | ||||
-rw-r--r-- | helm-locate.el | 2 | ||||
-rw-r--r-- | helm-utils.el | 2 | ||||
-rw-r--r-- | helm.el | 4 |
6 files changed, 11 insertions, 11 deletions
diff --git a/helm-buffers.el b/helm-buffers.el index 8630e227..dc62b593 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -503,7 +503,7 @@ i.e same color." (let* ((cand (replace-regexp-in-string "^\\s-\\{1\\}" "" candidate)) (buf (get-buffer cand)) (regexp (cl-loop with pattern = helm-pattern - for p in (split-string pattern) + for p in (helm-mm-split-pattern pattern) when (string-match "\\`\\*" p) return p))) (if regexp @@ -515,7 +515,7 @@ i.e same color." (defun helm-buffers--match-from-pat (candidate) (let ((regexp-list (cl-loop with pattern = helm-pattern - for p in (split-string pattern) + for p in (helm-mm-split-pattern pattern) unless (string-match "\\`\\(\\*\\|/\\|@\\)" p) collect p))) @@ -528,7 +528,7 @@ i.e same color." (let* ((cand (replace-regexp-in-string "^\\s-\\{1\\}" "" candidate)) (buf (get-buffer cand)) (regexp (cl-loop with pattern = helm-pattern - for p in (split-string pattern) + for p in (helm-mm-split-pattern pattern) when (string-match "\\`@\\(.*\\)" p) return (match-string 1 p)))) (if (and buf regexp) @@ -545,7 +545,7 @@ i.e same color." (buf (get-buffer cand)) (buf-fname (buffer-file-name buf)) (regexps (cl-loop with pattern = helm-pattern - for p in (split-string pattern) + for p in (helm-mm-split-pattern pattern) when (string-match "\\`/" p) collect p))) (if regexps diff --git a/helm-grep.el b/helm-grep.el index b5699100..ed741706 100644 --- a/helm-grep.el +++ b/helm-grep.el @@ -455,7 +455,7 @@ It is intended to use as a let-bound variable, DON'T set this globaly.") "i"))) (helm-grep-default-command (concat helm-grep-default-command " %m")) ; `%m' like multi. - (patterns (split-string helm-pattern)) + (patterns (helm-mm-split-pattern helm-pattern)) (pipe-switches (mapconcat 'identity helm-grep-pipe-cmd-switches " ")) (pipes (helm-aif (cdr patterns) @@ -1373,7 +1373,7 @@ Ripgrep (rg) types are also supported if this backend is used." "Prepare AG command line to search PATTERN in DIRECTORY. When TYPE is specified it is one of what returns `helm-grep-ag-get-types' if available with current AG version." - (let* ((patterns (split-string pattern)) + (let* ((patterns (helm-mm-split-pattern pattern)) (pipe-switches (mapconcat 'identity helm-grep-ag-pipe-cmd-switches " ")) (pipe-cmd (pcase (helm-grep--ag-command) ((and com (or "ag" "pt")) diff --git a/helm-id-utils.el b/helm-id-utils.el index d850f8b7..9c26e8f6 100644 --- a/helm-id-utils.el +++ b/helm-id-utils.el @@ -39,7 +39,7 @@ MacPorts to install id-utils, it should be `gid32'." :type 'string) (defun helm-gid-candidates-process () - (let* ((patterns (split-string helm-pattern)) + (let* ((patterns (helm-mm-split-pattern helm-pattern)) (default-com (format "%s -r %s" helm-gid-program (shell-quote-argument (car patterns)))) (cmd (helm-aif (cdr patterns) diff --git a/helm-locate.el b/helm-locate.el index 81f464f5..c8ff9cf8 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -282,7 +282,7 @@ See also `helm-locate'." (case-sensitive-flag (if locate-is-es "-i" "")) (ignore-case-flag (if (or locate-is-es (not real-locate)) "" "-i")) - (args (split-string helm-pattern " ")) + (args (helm-mm-split-pattern helm-pattern)) (cmd (format helm-locate-command (cl-case helm-locate-case-fold-search (smart (let ((case-fold-search nil)) diff --git a/helm-utils.el b/helm-utils.el index 6a2b8bd9..1a8360a5 100644 --- a/helm-utils.el +++ b/helm-utils.el @@ -404,7 +404,7 @@ that is sorting is done against real value of candidate." (reg1 (concat "\\_<" qpattern "\\_>")) (reg2 (concat "\\_<" qpattern)) (reg3 helm-pattern) - (split (split-string helm-pattern)) + (split (helm-mm-split-pattern helm-pattern)) (str1 (if (consp s1) (cdr s1) s1)) (str2 (if (consp s2) (cdr s2) s2)) (score (lambda (str r1 r2 r3 lst) @@ -3222,7 +3222,7 @@ to the matching method in use." (cl-loop with multi-match = (string-match-p " " helm-pattern) with patterns = (if multi-match (mapcar #'helm--maybe-get-migemo-pattern - (split-string helm-pattern)) + (helm-mm-split-pattern helm-pattern)) (split-string helm-pattern "" t)) for p in patterns ;; Multi matches (regexps patterns). @@ -4879,7 +4879,7 @@ and stored in the match-part property." (matchfn (if helm-migemo-mode 'helm-mm-migemo-string-match 'string-match))) (if (string-match " " pattern) - (cl-loop for i in (split-string pattern) always + (cl-loop for i in (helm-mm-split-pattern pattern) always (if (string-match "\\`!" i) (not (funcall matchfn (substring i 1) part)) (funcall matchfn i part))) |