diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-04 20:34:50 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-05 13:07:15 +0200 |
commit | 897ffdd7359c3bab8fc3ad3ece9ead853675e3b9 (patch) | |
tree | a8012486691307db0bce1975cdbcad4accc65bc7 /helm-sys.el | |
parent | 7d1b2917a341dddf2a2c7daded33dfbeda6eb9d7 (diff) |
Avoid repetitives calls to helm-get-current-source.
* helm.el (helm-get-selection): New optional arg SOURCE.
* helm.el (helm-select-action): Do it.
* helm.el (helm-force-update): Do it.
(helm-execute-selection-action-1): Do it.
* helm.el (helm-get-actions-from-current-source): Do it.
* helm.el (helm-file-completion-source-p): Takes now one more optional arg.
* helm.el (helm-mark-all): Do it.
* helm-files.el (helm-find-files-up-one-level):Do it.
* helm-files.el (helm-ff-move-to-first-real-candidate):Do it.
(helm-ff-update-when-only-one-matched): Do it.
(helm-ff-before-action-hook-fn): Do it.
(helm-files-save-file-name-history): Do it.
* helm-buffers.el (helm-buffers-mark-similar-buffers-1):Do it.
* helm-sys.el (helm-top--skip-top-line): Do it.
* helm.el (helm-confirm-and-exit-minibuffer): Do it.
(helm-make-visible-mark): Do it.
(helm-marked-candidates): Do it.
(helm-follow-execute-persistent-action-maybe): Do it.
* helm.el (helm-select-action): Do it.
(helm-preselect): Do it.
(helm-select-nth-action): Do it.
(helm-execute-persistent-action):Do it.
Diffstat (limited to 'helm-sys.el')
-rw-r--r-- | helm-sys.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/helm-sys.el b/helm-sys.el index 985bc996..3230a0ca 100644 --- a/helm-sys.el +++ b/helm-sys.el @@ -204,10 +204,11 @@ Return empty string for non--valid candidates." (cons helm-top--line lst)))) (defun helm-top--skip-top-line () - (let ((src-name (assoc-default 'name (helm-get-current-source)))) + (let* ((src (helm-get-current-source)) + (src-name (assoc-default 'name src))) (helm-aif (and (stringp src-name) (string= src-name "Top") - (helm-get-selection nil t)) + (helm-get-selection nil t src)) (when (string-match-p "^ *PID" it) (helm-next-line))))) |