branch: elpa/helm
commit 8ec66d3bec936777ce4b5bd1b0d22e0aad92ccbe
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Store insertion-marker in process instead of source
---
helm-core.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index fa1871f5c4..5da634bd66 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5539,12 +5539,11 @@ This will work only in Emacs-26+, i.e. Emacs versions
that have
(let ((source (cdr process-assoc))
(proc (car process-assoc)))
(save-excursion
- (helm-aif (assoc-default 'insertion-marker source)
+ (helm-aif (process-get proc 'insertion-marker)
(goto-char it)
(goto-char (point-max))
(helm-insert-header-from-source source)
- (setcdr process-assoc
- (append source `((insertion-marker . ,(point-marker))))))
+ (process-put proc 'insertion-marker (point-marker)))
;; This method for handling incomplete lines should fix as well
Bug#1187.
(setq output (concat (process-get proc 'incomplete-line) output))
(let ((end (string-match ".*\\'" output)))
