Mercurial > emacs

changeset 7881:4ab8723cd491

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pop-global-mark): Discard entries for nonexistent buffers.
author Richard M. Stallman <rms@gnu.org>
date Tue, 14 Jun 1994 00:34:43 +0000
parents 3dd8448eee15
children b91169855db4
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Jun 14 00:21:40 1994 +0000
+++ b/lisp/simple.el	Tue Jun 14 00:34:43 1994 +0000
@@ -1450,6 +1450,9 @@
 (defun pop-global-mark ()
   "Pop off global mark ring and jump to the top location."
   (interactive)
+  ;; Pop entries which refer to non-existent buffers.
+  (while (and global-mark-ring (not (marker-buffer (car global-mark-ring))))
+    (setq global-mark-ring (cdr global-mark-ring)))
   (or global-mark-ring
       (error "No global mark set"))
   (let* ((marker (car global-mark-ring))