branch: elpa/helm
commit 6860d7fa94ffc76b61f04982c9cff6ba53407a3f
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Allow toggling helm-top-poll-mode with prefix arg
---
NEWS.org | 10 ++++++++++
helm-help.el | 9 +++++++++
helm-sys.el | 8 +++++---
3 files changed, 24 insertions(+), 3 deletions(-)
diff --git a/NEWS.org b/NEWS.org
index 8e874f7c56..1cfe5295a4 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,16 @@
#+STARTUP:showall
* NEWS
+** Version 3.9.9-pre
+
+*** Allow toggling auto update in helm-top with a prefix arg
+*** Do not use `dired-create-destination-dirs` mechanism for directory creation
+as it is not working in some cases (e.g. symlinks).
+*** Fix persistent action in helm mark-ring when follow mode is on
+*** Fix Imenu preselection when point is on a name with special chars
+*** Provide a new progress bar for rsync with a svg widget
+Needs svg-lib package but it is not mandatory.
+
** Version 3.9.8
*** New helm-finder command
diff --git a/helm-help.el b/helm-help.el
index 8123ad4db3..61890b90ea 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -2286,6 +2286,15 @@ See [[Moving in `helm-buffer'][Moving in `helm-buffer']].
(defvar helm-top-help-message
"* Helm Top
+** Tips
+
+*** Auto update
+
+You can enable auto updating in `helm-top' by turning on
+`helm-top-poll-mode' either interactively or in your init file
+with (helm-top-poll-mode 1).
+Calling `helm-top' with a prefix arg also toggle auto updating.
+
** Commands
\\<helm-top-map>
|Keys|Description
diff --git a/helm-sys.el b/helm-sys.el
index b7dc35702d..a65f8eecbc 100644
--- a/helm-sys.el
+++ b/helm-sys.el
@@ -440,9 +440,11 @@ Show actions only on line starting by a PID."
;;;###autoload
-(defun helm-top ()
- "Preconfigured `helm' for top command."
- (interactive)
+(defun helm-top (&optional arg)
+ "Preconfigured `helm' for top command.
+When prefix arg ARG is non nil toggle auto updating mode `helm-top-poll-mode'."
+ (interactive "P")
+ (when arg (helm-top-poll-mode 'toggle))
(add-hook 'helm-after-update-hook 'helm-top--skip-top-line)
(unwind-protect
(helm :sources 'helm-source-top
