Mercurial > emacs

comparison lisp/emulation/vip.el @ 12358:fe8779b08103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-push-mark-silent): Use (mark t).
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jun 1995 05:11:36 +0000
parents 506881d20003
children c4f965637f22
comparison
equal deleted inserted replaced
12357:8d2679d3f095 12358:fe8779b08103
134 (list 'setq 'count (list '1- 'count))))) 134 (list 'setq 'count (list '1- 'count)))))
135 135
136 (defun vip-push-mark-silent (&optional location) 136 (defun vip-push-mark-silent (&optional location)
137 "Set mark at LOCATION (point, by default) and push old mark on mark ring. 137 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
138 No message." 138 No message."
139 (if (null (mark)) 139 (if (null (mark t))
140 nil 140 nil
141 (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring)) 141 (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring))
142 (if (> (length mark-ring) mark-ring-max) 142 (if (> (length mark-ring) mark-ring-max)
143 (progn 143 (progn
144 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil) 144 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)