# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803797896 0
# Node ID fe8779b08103581afd15104646303c48220f1b39
# Parent  8d2679d3f095afdfba4ac20687b73479b2d85af2
(vip-push-mark-silent): Use (mark t).

diff -r 8d2679d3f095 -r fe8779b08103 lisp/emulation/vip.el
--- a/lisp/emulation/vip.el	Thu Jun 22 04:37:38 1995 +0000
+++ b/lisp/emulation/vip.el	Thu Jun 22 05:11:36 1995 +0000
@@ -136,7 +136,7 @@
 (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)