Mercurial > emacs
comparison lisp/simple.el @ 5826:2de9426a38bf
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) |