HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
e5575c0
)
(pop-global-mark): Discard entries for nonexistent buffers.
author
Richard M. Stallman
<rms@gnu.org>
Tue, 14 Jun 1994 00:34:43 +0000
(
00:34
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 14 Jun 1994 00:34:43 +0000
(
00:34
+0000)
lisp/simple.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/simple.el
b/lisp/simple.el
index
6dbfcca
..
e91ed2a
100644
(file)
--- a/
lisp/simple.el
+++ b/
lisp/simple.el
@@
-1450,6
+1450,9
@@
incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]."
(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))