Fix issue when jumping from grep-mode moccur-mode buffers.

* helm-grep.el (helm-grep-mode-jump): Cleanup overlays.
(helm-grep-mode-jump-other-window-1): Same.
(helm-grep-mode-jump-other-window): Same.
* helm-regexp.el (helm-moccur-mode-goto-line): Same.
(helm-moccur-mode-goto-line-ow): Same.
* helm-utils.el (helm-highlight-current-line): Ensure helm is alive before
checking for helm-buffer and source.

helm-grep.el

@@ -813,14 +813,16 @@ Special commands:
 (defun helm-grep-mode-jump ()
   (interactive)
   (helm-grep-action
-   (buffer-substring (point-at-bol) (point-at-eol))))
+   (buffer-substring (point-at-bol) (point-at-eol)))
+  (helm-match-line-cleanup-pulse))
 
 (defun helm-grep-mode-jump-other-window-1 (arg)
   (let ((candidate (buffer-substring (point-at-bol) (point-at-eol))))
     (condition-case nil
         (progn
           (save-selected-window
             (helm-grep-action candidate 'other-window)
+            (helm-match-line-cleanup-pulse)
             (recenter))
           (forward-line arg))
       (error nil))))
@@ -837,7 +839,8 @@ Special commands:
   (interactive)
   (let ((candidate (buffer-substring (point-at-bol) (point-at-eol))))
     (condition-case nil
-        (helm-grep-action candidate 'other-window)
+        (progn (helm-grep-action candidate 'other-window)
+               (helm-match-line-cleanup-pulse))
       (error nil))))
 
 

helm-regexp.el

@@ -439,12 +439,12 @@ Same as `helm-moccur-goto-line' but go in new frame."
 (defun helm-moccur-mode-goto-line ()
   (interactive)
   (helm-aif (get-text-property (point) 'helm-realvalue)
-    (helm-moccur-goto-line it)))
+    (progn (helm-moccur-goto-line it) (helm-match-line-cleanup-pulse))))
 
 (defun helm-moccur-mode-goto-line-ow ()
   (interactive)
   (helm-aif (get-text-property (point) 'helm-realvalue)
-    (helm-moccur-goto-line-ow it)))
+    (progn (helm-moccur-goto-line-ow it) (helm-match-line-cleanup-pulse))))
 
 (defun helm-moccur-mode-goto-line-ow-forward-1 (arg)
   (condition-case nil

helm-utils.el

@@ -617,9 +617,13 @@ If STRING is non--nil return instead a space separated string."
       (cl-loop with ov
                for r in (helm-remove-if-match
                          "\\`!" (split-string
-                                 ;; Needed for highlighting AG matches.
-                                 (if (with-helm-buffer
-                                       (assq 'pcre (helm-get-current-source)))
+                                 ;; We are maybe not in helm when
+                                 ;; jumping from helm-grep-mode and
+                                 ;; helm-moccur-mode buffers.
+                                 (if (and helm-alive-p
+                                          (with-helm-buffer
+                                            ;; Needed for highlighting AG matches.
+                                            (assq 'pcre (helm-get-current-source))))
                                      (helm--translate-pcre-to-elisp helm-input)
                                      helm-input)))
                do (save-excursion