Mercurial > emacs

changeset 45540:1756da24c6ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(push-mark-command): Added optional NOMSG arg.
author Kim F. Storm <storm@cua.dk>
date Mon, 27 May 2002 12:13:56 +0000
parents 99b2cc9b795c
children 00093b6b87d7
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.