procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vip-push-mark-silent): Use (mark t).

Browse source
This commit is contained in:
Richard M. Stallman 1995-06-22 05:11:36 +00:00
parent a814e9df17
commit 9a62cb6319
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emulation/vip.el
View file

@ -136,7 +136,7 @@ bound to delete-backward-char.")
(defun vip-push-mark-silent (&optional location)
"Set mark at LOCATION (point, by default) and push old mark on mark ring.
No message."
(if (null (mark))
(if (null (mark t))
nil
(setq mark-ring (cons (copy-marker (mark-marker)) mark-ring))
(if (> (length mark-ring) mark-ring-max)