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

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 50a254dfc09db8ff4758ba0307cf42b854bcbddd..c887d9123e0024461c34eb78152998b7f0a3c622 100644 (file)
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -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)