Mercurial > emacs

changeset 10351:e34cbd5276bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pop-global-mark): Make pop-global-mark treat global-mark-ring as a ring.
author Richard M. Stallman <rms@gnu.org>
date Thu, 05 Jan 1995 23:53:01 +0000
parents 9ef4bfc9a320
children cc26982277e4
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Jan 05 22:19:54 1995 +0000
+++ b/lisp/simple.el	Thu Jan 05 23:53:01 1995 +0000
@@ -1518,7 +1518,8 @@
   (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)))