From 22c3935a338e4939556a78ea7434e7dc4a7bb7af Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 Apr 1997 01:30:13 +0000 Subject: [PATCH] Fix previous change. --- lisp/simple.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 003c50d9639..f77de7427fd 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 &optional print-message) +(defun transient-mark-mode (arg) "Toggle Transient Mark mode. With arg, turn Transient Mark mode on if arg is positive, off otherwise. @@ -1644,14 +1644,15 @@ 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\np") + (interactive "P") (setq transient-mark-mode (if (null arg) (not transient-mark-mode) (> (prefix-numeric-value arg) 0))) - (if transient-mark-mode - (message "Transient Mark mode enabled") - (message "Transient Mark mode disabled"))) + (if (interactive-p) + (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." -- 2.39.5