mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-04-20 01:30:13 +00:00
parent 2c5d387c63
commit 22c3935a33
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/simple.el
View file

@ -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."