diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-10-10 19:01:15 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-10-10 19:01:15 +0200 |
commit | 966025bad2cfcf38914591d3fca23e7f6e46d584 (patch) | |
tree | 7f750b82028edb1eeb42b51cc46203368f486e46 /helm-sys.el | |
parent | ef8dc4894c0ff5c3afb4e91a29c21913cea0f003 (diff) |
Remove deletion of OW before helm call in helm-top
* helm-sys.el (helm-top): Do it.
Diffstat (limited to 'helm-sys.el')
-rw-r--r-- | helm-sys.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/helm-sys.el b/helm-sys.el index 6c107852..cfe015ec 100644 --- a/helm-sys.el +++ b/helm-sys.el @@ -427,15 +427,13 @@ Show actions only on line starting by a PID." "Preconfigured `helm' for top command." (interactive) (add-hook 'helm-after-update-hook 'helm-top--skip-top-line) - (save-window-excursion - (unless helm-alive-p (delete-other-windows)) - (unwind-protect - (helm :sources 'helm-source-top - :buffer "*helm top*" :full-frame t - :candidate-number-limit 9999 - :preselect "^\\s-*[0-9]+" - :truncate-lines helm-show-action-window-other-window) - (remove-hook 'helm-after-update-hook 'helm-top--skip-top-line)))) + (unwind-protect + (helm :sources 'helm-source-top + :buffer "*helm top*" :full-frame t + :candidate-number-limit 9999 + :preselect "^\\s-*[0-9]+" + :truncate-lines helm-show-action-window-other-window) + (remove-hook 'helm-after-update-hook 'helm-top--skip-top-line))) ;;;###autoload (defun helm-list-emacs-process () |