Prevent follow-mode when moving between sections

in imenu.

NOTE: `helm-imenu-next-or-previous-section` uses now a new macro,
expect some user errors at Melpa install.

* helm-lib.el (helm-without-follow): New macro.
* helm-imenu.el (helm-imenu-next-or-previous-section): Do it by
wrapping calls to helm-next/previous-line in new macro.

1 files changed, 6 insertions, 6 deletions

diff --git a/helm-imenu.el b/helm-imenu.el
index 5d41caf3..e84134fe 100644
--- a/helm-imenu.el
+++ b/helm-imenu.el
@@ -112,11 +112,11 @@ Each car is a regexp match pattern of the imenu type string."
            (stop-fn (if (> n 0)
                         #'helm-end-of-source-p
                         #'helm-beginning-of-source-p)))
-      (catch 'break
-        (while (not (funcall stop-fn))
-          (funcall move-fn)
-          (unless (string= curtype (funcall fn))
-            (throw 'break nil)))))))
+      (helm-without-follow
+       (while (and (not (funcall stop-fn))
+                   (string= curtype (funcall fn)))
+         (funcall move-fn)))
+      (helm-follow-execute-persistent-action-maybe 0.1))))
 
 (defun helm-imenu-next-section ()
   (interactive)
@@ -301,7 +301,7 @@ Each car is a regexp match pattern of the imenu type string."
                                     when (string-match p x) return f
                                     finally return 'default)))
                         types helm-imenu-delimiter)
-           for disp = (propertize disp1 'help-echo bufname)
+           for disp = (propertize disp1 'help-echo bufname 'types types)
            collect
            (cons disp (cons k v))))