(pop-global-mark): Make pop-global-mark treat

global-mark-ring as a ring.

1 files changed, 2 insertions, 1 deletions

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)))