Don't push but cons current mark (#1891)

Same as originally. * helm-ring.el (helm-mark-ring-get-candidates): Do it.
emacs-helm · Oct 28, 2017 · ece8972 · ece8972
1 parent 2cfaea5
commit ece8972
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/helm-ring.el b/helm-ring.el
@@ -243,7 +243,7 @@ This is a command for `helm-kill-ring-map'."
 (defun helm-mark-ring-get-candidates ()
   (with-helm-current-buffer
     (cl-loop with marks = (if (mark t)
-                              (push (mark-marker) mark-ring)
+                              (cons (mark-marker) mark-ring)
                             mark-ring)
              for marker in marks
              with max-line-number = (line-number-at-pos (point-max))