diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-01-09 09:37:49 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-01-09 11:03:04 +0100 |
commit | 61ef910cf345ec82f0ffa9e70c1ca431988148bb (patch) | |
tree | e80b5c4069e6451cbd4c8c264cfdcf7b814a64cd /helm-locate.el | |
parent | b7aab627ea07908489bcf36b7005dd8ae25657e0 (diff) |
Fix redisplaying buffer in multiples sources.
* helm-files.el (helm-multi-files): helm-redisplay-buffer takes no arg.
* helm-locate.el (helm-locate-init): Same.
(helm-locate-source): Add the redisplay slot.
(helm-locate): helm-redisplay-buffer takes no arg.
* helm-source.el (helm-source): New slot redisplay.
* helm.el (helm-redisplay-buffer): Not all sources may be displayed after narrowing
so calculate first the sources actually displayed.
Fix setting locate basename in multifiles.
Fix also docstring of helm-redisplay-buffer and redisplay slot in helm-source.
* helm-files.el (helm-multi-files): Do it.
Diffstat (limited to 'helm-locate.el')
-rw-r--r-- | helm-locate.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/helm-locate.el b/helm-locate.el index 3f1d9bdc..f3c58ccd 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -309,7 +309,7 @@ See also `helm-locate'." ((string= event "finished\n") (when (and helm-locate-fuzzy-match (not (string-match-p "\\s-" helm-pattern))) - (helm-redisplay-buffer helm-locate-fuzzy-sort-fn)) + (helm-redisplay-buffer)) (with-helm-window (setq mode-line-format '(" " mode-line-buffer-identification " " @@ -331,7 +331,8 @@ See also `helm-locate'." (requires-pattern :initform 3) (history :initform 'helm-file-name-history) (persistent-action :initform 'helm-ff-kill-or-find-buffer-fname) - (candidate-number-limit :initform 9999))) + (candidate-number-limit :initform 9999) + (redisplay :initform (progn helm-locate-fuzzy-sort-fn)))) (defvar helm-source-locate (helm-make-source "Locate" 'helm-locate-source @@ -437,8 +438,7 @@ Where db_path is a filename matched by (when (and helm-locate-fuzzy-match (not (string-match-p "\\s-" helm-pattern))) - (helm-redisplay-buffer - helm-locate-fuzzy-sort-fn))))) + (helm-redisplay-buffer))))) (setq helm-ff-default-directory default-directory) (helm-locate-1 arg nil nil (thing-at-point 'filename))) |