From b21921768f7b3c3115121050da3285501cdeeebc Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Thu, 2 Nov 2017 09:58:53 +0100 Subject: Add an error message for unreferenced markers (#1891) * helm-ring.el (helm-mark-ring-default-action): Do it. --- helm-ring.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/helm-ring.el b/helm-ring.el index a8589360..79d2c017 100644 --- 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" -- cgit v1.2.3