(transient-mark-mode): Print message if used interactively.

diff --git a/lisp/simple.el b/lisp/simple.el
index 0f2086a4e513f0bcd94c7c18eeaec6c5d483306b..003c50d9639fe75a7815229116ccf890714f72d6 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1635,7 +1635,7 @@ and it reactivates the mark."
     (goto-char omark)
     nil))
 
-(defun transient-mark-mode (arg)
+(defun transient-mark-mode (arg &optional print-message)
   "Toggle Transient Mark mode.
 With arg, turn Transient Mark mode on if arg is positive, off otherwise.
 
@@ -1644,11 +1644,14 @@ Changing the buffer \"deactivates\" the mark.
 So do certain other operations that set the mark
 but whose main purpose is something else--for example,
 incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]."
-  (interactive "P")
+  (interactive "P\np")
   (setq transient-mark-mode
        (if (null arg)
            (not transient-mark-mode)
-         (> (prefix-numeric-value arg) 0))))
+         (> (prefix-numeric-value arg) 0)))
+  (if transient-mark-mode
+      (message "Transient Mark mode enabled")
+    (message "Transient Mark mode disabled")))
 
 (defun pop-global-mark ()
   "Pop off global mark ring and jump to the top location."