[nongnu] elpa/helm 466d6a7311 5/5: Set helm-current-error as well when jumping from a occur/grep-mode buffer

[ELPA Syncer]

branch: elpa/helm
commit 466d6a73115c469cdf2098da1506387a18c57c03
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Set helm-current-error as well when jumping from a occur/grep-mode buffer
---
 helm-grep.el  | 2 ++
 helm-occur.el | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/helm-grep.el b/helm-grep.el
index bf356145a4..5f3cd481e1 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1050,6 +1050,7 @@ Special commands:
 (defun helm-grep-mode-jump ()
   (interactive)
   (setq next-error-last-buffer (current-buffer))
+  (setq-local helm-current-error (point-marker))
   (helm-grep-action
    (buffer-substring (point-at-bol) (point-at-eol)))
   (helm-match-line-cleanup-pulse))
@@ -1078,6 +1079,7 @@ Special commands:
 (defun helm-grep-mode-jump-other-window ()
   (interactive)
   (setq next-error-last-buffer (current-buffer))
+  (setq-local helm-current-error (point-marker))
   (let ((candidate (buffer-substring (point-at-bol) (point-at-eol))))
     (condition-case nil
         (progn (helm-grep-action candidate 'other-window)
diff --git a/helm-occur.el b/helm-occur.el
index 1cef1a6f45..5c89e157fb 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -478,12 +478,14 @@ persistent action."
 (defun helm-occur-mode-goto-line ()
   (interactive)
   (setq next-error-last-buffer (current-buffer))
+  (setq-local helm-current-error (point-marker))
   (helm-aif (get-text-property (point) 'helm-realvalue)
     (progn (helm-occur-goto-line it) (helm-match-line-cleanup-pulse))))
 
 (defun helm-occur-mode-goto-line-ow ()
   (interactive)
   (setq next-error-last-buffer (current-buffer))
+  (setq-local helm-current-error (point-marker))
   (helm-aif (get-text-property (point) 'helm-realvalue)
     (progn (helm-occur-goto-line-ow it) (helm-match-line-cleanup-pulse))))