Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2c5d387c
Commit
2c5d387c
authored
Apr 20, 1997
by
Richard M. Stallman
Browse files
(transient-mark-mode): Print message if used interactively.
parent
f0aef6bf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
3 deletions
+6
-3
lisp/simple.el
lisp/simple.el
+6
-3
No files found.
lisp/simple.el
View file @
2c5d387c
...
...
@@ -1635,7 +1635,7 @@ and it reactivates the mark."
(goto-char omark)
nil))
(defun transient-mark-mode (arg)
(defun transient-mark-mode (arg
&optional print-message
)
"
Toggle
Transient
Mark
mode.
With
arg,
turn
Transient
Mark
mode
on
if
arg
is
positive,
off
otherwise.
...
...
@@ -1644,11 +1644,14 @@ 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
")
(interactive "
P
\np
")
(setq transient-mark-mode
(if (null arg)
(not transient-mark-mode)
(> (prefix-numeric-value arg) 0))))
(> (prefix-numeric-value arg) 0)))
(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.
"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment