# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1022501636 0
# Node ID 1756da24c6bad4c8ee3213c8823274cead3f9869
# Parent  99b2cc9b795ce87549711e7f8091c1b1c03a3033
(push-mark-command): Added optional NOMSG arg.

diff -r 99b2cc9b795c -r 1756da24c6ba lisp/simple.el
--- a/lisp/simple.el	Mon May 27 08:07:49 2002 +0000
+++ b/lisp/simple.el	Mon May 27 12:13:56 2002 +0000
@@ -2321,15 +2321,17 @@
     (goto-char (mark t))
     (pop-mark)))
 
-(defun push-mark-command (arg)
+(defun push-mark-command (arg &optional nomsg)
   "Set mark at where point is.
-If no prefix arg and mark is already set there, just activate it."
+If no prefix arg and mark is already set there, just activate it.
+Display `Mark set' unless the optional second arg NOMSG is non-nil."
   (interactive "P")
   (let ((mark (marker-position (mark-marker))))
     (if (or arg (null mark) (/= mark (point)))
-	(push-mark nil nil t)
+	(push-mark nil nomsg t)
       (setq mark-active t)
-      (message "Mark activated"))))
+      (unless nomsg
+	(message "Mark activated")))))
 
 (defun set-mark-command (arg)
   "Set mark at where point is, or jump to mark.