Mercurial > emacs

changeset 12358:fe8779b08103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-push-mark-silent): Use (mark t).
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jun 1995 05:11:36 +0000
parents 8d2679d3f095
children 6da25b126f03
files lisp/emulation/vip.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)