From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Jun 1995 05:11:36 +0000 (+0000)
Subject: (vip-push-mark-silent): Use (mark t).
X-Git-Tag: emacs-19.34~3501
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a62cb631928b99c7c263e2d24669999b0de8453;p=emacs.git

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

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 50a254dfc09..c887d9123e0 100644
--- 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)