Commit 2c5d387c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent f0aef6bf
......@@ -1635,7 +1635,7 @@ and it reactivates the mark."
(goto-char omark)
(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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment