From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 5 Jan 1995 23:53:01 +0000 (+0000)
Subject: (pop-global-mark): Make pop-global-mark treat
X-Git-Tag: emacs-19.34~5506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34c313012144acc38328c3c8e226f7fc22c2ed64;p=emacs.git

(pop-global-mark): Make pop-global-mark treat
global-mark-ring as a ring.
---

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