Commit 9a62cb63 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a814e9df
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment