Mercurial > emacs

changeset 17514:335bd3dea3ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Apr 1997 01:30:13 +0000
parents ea3acb6b992a
children 62b47fab94fd
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Sun Apr 20 01:28:20 1997 +0000
+++ b/lisp/simple.el	Sun Apr 20 01:30:13 1997 +0000
@@ -1635,7 +1635,7 @@
     (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 @@
 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."