From d00ffe213e842d85380d1ba2e6d9e96d11bdc104 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 27 May 2002 12:13:56 +0000 Subject: (push-mark-command): Added optional NOMSG arg. --- lisp/simple.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lisp/simple.el') diff --git a/lisp/simple.el b/lisp/simple.el index ad21eccc39..a270104705 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2321,15 +2321,17 @@ Start discarding off end if gets this big." (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. -- cgit v1.2.3