From 9a62cb631928b99c7c263e2d24669999b0de8453 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Jun 1995 05:11:36 +0000 Subject: [PATCH] (vip-push-mark-silent): Use (mark t). --- lisp/emulation/vip.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2