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
e5a31bbb
Commit
e5a31bbb
authored
Apr 03, 2008
by
Chong Yidong
Browse files
(Fcall_interactively): Handle temporary region even when
shift-select-mode is off.
parent
1d8dcf63
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
1 deletion
+8
-1
src/callint.c
src/callint.c
+8
-1
No files found.
src/callint.c
View file @
e5a31bbb
...
...
@@ -36,6 +36,7 @@ extern char *index P_ ((const char *, int));
extern
Lisp_Object
Qcursor_in_echo_area
;
extern
Lisp_Object
Qfile_directory_p
;
extern
Lisp_Object
Qonly
;
Lisp_Object
Vcurrent_prefix_arg
,
Qminus
,
Qplus
;
Lisp_Object
Qcall_interactively
;
...
...
@@ -454,7 +455,13 @@ invoke it. If KEYS is omitted or nil, the return value of
else
if
(
*
string
==
'^'
)
{
if
(
!
NILP
(
Vshift_select_mode
))
call0
(
Qhandle_shift_selection
);
call1
(
Qhandle_shift_selection
,
Qnil
);
/* Even if shift-select-mode is off, temporarily active
regions could be set using the mouse, and should be
deactivated. */
else
if
(
CONSP
(
Vtransient_mark_mode
)
&&
EQ
(
XCAR
(
Vtransient_mark_mode
),
Qonly
))
call1
(
Qhandle_shift_selection
,
Qt
);
string
++
;
}
else
break
;
...
...
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