diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-12-17 14:47:30 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-12-17 14:47:30 +0100 |
commit | ed3cc067376b6c89a102b45fd77fee6f2cc2d436 (patch) | |
tree | 86d70f18b41cda597c26c137915bf1410ec482f5 /helm-locate.el | |
parent | 01a68107bf5a0886da4adbd7dc2be995edebc200 (diff) |
Don't add a space at end of pattern (#2252)
* helm-locate.el (helm-locate-init): Do it.
Diffstat (limited to 'helm-locate.el')
-rw-r--r-- | helm-locate.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/helm-locate.el b/helm-locate.el index ecba5cd5..0642c911 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -294,12 +294,14 @@ See also `helm-locate'." (t (if helm-locate-case-fold-search ignore-case-flag case-sensitive-flag))) - (concat - ;; The pattern itself. - (shell-quote-argument (car args)) " " - ;; Possible locate args added - ;; after pattern, don't quote them. - (mapconcat 'identity (cdr args) " ")))) + (helm-aif (cdr args) + (concat + ;; The pattern itself. + (shell-quote-argument (car args)) " " + ;; Possible locate args added + ;; after pattern, don't quote them. + (mapconcat 'identity it " ")) + (shell-quote-argument (car args))))) (default-directory (if (file-directory-p default-directory) default-directory "/"))) (helm-log "Starting helm-locate process") |