diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-10-28 11:46:34 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-10-28 11:46:34 +0200 |
commit | ece8972b50ff72cbd58dfb5a6628f8f72c9bcb8c (patch) | |
tree | c6f4805b819b9ffc8dce726ff1917f6454915899 /helm-ring.el | |
parent | 2cfaea57da4c81d9d7568fd80a0772dd9504e2b6 (diff) |
Don't push but cons current mark (#1891)
Same as originally.
* helm-ring.el (helm-mark-ring-get-candidates): Do it.
Diffstat (limited to 'helm-ring.el')
-rw-r--r-- | helm-ring.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/helm-ring.el b/helm-ring.el index 4da6382f..46a15810 100644 --- 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)) |