Commit e23c2c21 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(transient-mark-mode): New command.

parent bc0db68d
...@@ -1289,6 +1289,18 @@ and it reactivates the mark." ...@@ -1289,6 +1289,18 @@ and it reactivates the mark."
(set-mark (point)) (set-mark (point))
(goto-char omark) (goto-char omark)
nil)) nil))
(defun transient-mark-mode (arg)
"Toggle Transient Mark mode.
With arg, turn Transient Mark mode on if and only if arg is positive.
In Transient Mark mode, changing the buffer \"deactivates\" the mark.
While the mark is active, the region is highlighted."
(interactive "P")
(setq transient-mark-mode
(if (null arg)
(not transient-mark-mode)
(> (prefix-numeric-value arg) 0))))
(defvar next-line-add-newlines t (defvar next-line-add-newlines t
"*If non-nil, `next-line' inserts newline to avoid `end of buffer' error.") "*If non-nil, `next-line' inserts newline to avoid `end of buffer' error.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment