From 34c313012144acc38328c3c8e226f7fc22c2ed64 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 5 Jan 1995 23:53:01 +0000 Subject: [PATCH] (pop-global-mark): Make pop-global-mark treat global-mark-ring as a ring. --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 6583d0411ef..378c220f4b9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1518,7 +1518,8 @@ incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]." (let* ((marker (car global-mark-ring)) (buffer (marker-buffer marker)) (position (marker-position marker))) - (setq global-mark-ring (cdr global-mark-ring)) + (setq global-mark-ring (nconc (cdr global-mark-ring) + (list (car global-mark-ring)))) (set-buffer buffer) (or (and (>= position (point-min)) (<= position (point-max))) -- 2.39.5