Add an error message for unreferenced markers (#1891)

* helm-ring.el (helm-mark-ring-default-action): Do it.
emacs-helm · Nov 2, 2017 · b219217 · b219217
1 parent 8889470
commit b219217
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/helm-ring.el b/helm-ring.el
@@ -266,9 +266,10 @@ This is a command for `helm-kill-ring-map'."
             (unless helm-yank-point (setq helm-yank-point (point))))
           (helm-goto-char target)
           (helm-highlight-current-line))
-      ;; marker point to no buffer, no need to dereference it, just
+      ;; marker points to no buffer, no need to dereference it, just
       ;; delete it.
-      (setq mark-ring (delete target mark-ring)))))
+      (setq mark-ring (delete target mark-ring))
+      (error "Marker points to no buffer"))))
 
 (defvar helm-source-mark-ring
   (helm-build-sync-source "mark-ring"