mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source 
global-mark-ring as a ring.
This commit is contained in:
Richard M. Stallman 1995-01-05 23:53:01 +00:00
parent 6e18b6c220
commit 34c3130121
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
View File

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