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." ...@@ -1635,7 +1635,7 @@ and it reactivates the mark."
(goto-char omark) (goto-char omark)
nil)) nil))
(defun transient-mark-mode (arg) (defun transient-mark-mode (arg &optional print-message)
"Toggle Transient Mark mode. "Toggle Transient Mark mode.
With arg, turn Transient Mark mode on if arg is positive, off otherwise. With arg, turn Transient Mark mode on if arg is positive, off otherwise.
...@@ -1644,11 +1644,14 @@ Changing the buffer \"deactivates\" the mark. ...@@ -1644,11 +1644,14 @@ Changing the buffer \"deactivates\" the mark.
So do certain other operations that set the mark So do certain other operations that set the mark
but whose main purpose is something else--for example, but whose main purpose is something else--for example,
incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]." incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]."
(interactive "P") (interactive "P\np")
(setq transient-mark-mode (setq transient-mark-mode
(if (null arg) (if (null arg)
(not transient-mark-mode) (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 () (defun pop-global-mark ()
"Pop off global mark ring and jump to the top location." "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