Mercurial > emacs
diff lisp/simple.el @ 17514:335bd3dea3ea
Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 20 Apr 1997 01:30:13 +0000 |
parents | ea3acb6b992a |
children | 4dca74d70b49 |
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."