diff options
Diffstat (limited to 'helm-ring.el')
| -rw-r--r-- | helm-ring.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/helm-ring.el b/helm-ring.el index 556b4258..8b8fca6b 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -242,7 +242,9 @@ 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) (cons (mark-marker) mark-ring) mark-ring) + (cl-loop with marks = (if (and (mark t) (null mark-ring)) + (push (copy-marker (mark-marker)) mark-ring) + mark-ring) for marker in marks with max-line-number = (line-number-at-pos (point-max)) with width = (length (number-to-string max-line-number)) |