Mercurial > emacs

comparison lisp/simple.el @ 5826:2de9426a38bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Roland's misplaced paren around call to marker-buffer.
author Michael I. Bushnell <mib@gnu.org>
date Mon, 07 Feb 1994 18:40:13 +0000
parents 1959e5c4a563
children 57c1061d77ff
comparison
equal deleted inserted replaced
5825:b1f35db748d8 5826:2de9426a38bf
1355 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil) 1355 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)
1356 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil)))) 1356 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil))))
1357 (set-marker (mark-marker) (or location (point)) (current-buffer)) 1357 (set-marker (mark-marker) (or location (point)) (current-buffer))
1358 ;; Now push the mark on the global mark ring. 1358 ;; Now push the mark on the global mark ring.
1359 (if (and global-mark-ring 1359 (if (and global-mark-ring
1360 (eq (marker-buffer (car global-mark-ring) (current-buffer)))) 1360 (eq (marker-buffer (car global-mark-ring)) (current-buffer)))
1361 ;; The last global mark pushed was in this same buffer. 1361 ;; The last global mark pushed was in this same buffer.
1362 ;; Don't push another one. 1362 ;; Don't push another one.
1363 nil 1363 nil
1364 (setq global-mark-ring (cons (copy-marker (mark-marker)) global-mark-ring)) 1364 (setq global-mark-ring (cons (copy-marker (mark-marker)) global-mark-ring))
1365 (if (> (length global-mark-ring) global-mark-ring-max) 1365 (if (> (length global-mark-ring) global-mark-ring-max)