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
c631c234
Commit
c631c234
authored
Sep 28, 1996
by
Richard M. Stallman
Browse files
(Fcall_interactively): Bind cursor-in-echo-area to t for `k' and `K'.
parent
5dd9db3b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
8 deletions
+20
-8
src/callint.c
src/callint.c
+20
-8
No files found.
src/callint.c
View file @
c631c234
...
...
@@ -29,6 +29,8 @@ Boston, MA 02111-1307, USA. */
extern
char
*
index
();
extern
Lisp_Object
Qcursor_in_echo_area
;
Lisp_Object
Vcurrent_prefix_arg
,
Qminus
,
Qplus
;
Lisp_Object
Qcall_interactively
;
Lisp_Object
Vcommand_history
;
...
...
@@ -522,17 +524,27 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
break
;
case
'k'
:
/* Key sequence. */
args
[
i
]
=
Fread_key_sequence
(
build_string
(
callint_message
),
Qnil
,
Qnil
,
Qnil
);
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
{
int
speccount1
=
specpdl_ptr
-
specpdl
;
specbind
(
Qcursor_in_echo_area
,
Qt
);
args
[
i
]
=
Fread_key_sequence
(
build_string
(
callint_message
),
Qnil
,
Qnil
,
Qnil
);
unbind_to
(
speccount1
,
Qnil
);
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
}
break
;
case
'K'
:
/* Key sequence to be defined. */
args
[
i
]
=
Fread_key_sequence
(
build_string
(
callint_message
),
Qnil
,
Qt
,
Qnil
);
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
{
int
speccount1
=
specpdl_ptr
-
specpdl
;
specbind
(
Qcursor_in_echo_area
,
Qt
);
args
[
i
]
=
Fread_key_sequence
(
build_string
(
callint_message
),
Qnil
,
Qt
,
Qnil
);
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
unbind_to
(
speccount1
,
Qnil
);
}
break
;
case
'e'
:
/* The invoking event. */
...
...
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