diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-20 01:30:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-20 01:30:13 +0000 |
| commit | eb3c71b76fb8ad5d7a5c89adfe4573484023ec2b (patch) | |
| tree | 595eae49207283f527fd43950b61adaac5f683ec | |
| parent | 7d7a1e3a51d8c0e0834c7fc0ce1a2a296461ab24 (diff) | |
| download | emacs-eb3c71b76fb8ad5d7a5c89adfe4573484023ec2b.tar.gz | |
Fix previous change.
| -rw-r--r-- | lisp/simple.el | 11 |
1 files 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." |