Commit 34c31301 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

global-mark-ring as a ring.
parent 6e18b6c2
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment