diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 0f2086a4e51..003c50d9639 100644 --- 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." |