Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
225c2157
Commit
225c2157
authored
Apr 23, 1998
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fcall_interactively): Truncate command-history here.
parent
69b3c6c7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
0 deletions
+17
-0
src/callint.c
src/callint.c
+17
-0
No files found.
src/callint.c
View file @
225c2157
...
...
@@ -35,6 +35,8 @@ Lisp_Object Vcurrent_prefix_arg, Qminus, Qplus;
Lisp_Object
Qcall_interactively
;
Lisp_Object
Vcommand_history
;
extern
Lisp_Object
Vhistory_length
;
Lisp_Object
Vcommand_debug_status
,
Qcommand_debug_status
;
Lisp_Object
Qenable_recursive_minibuffers
;
...
...
@@ -345,6 +347,14 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
}
Vcommand_history
=
Fcons
(
Fcons
(
function
,
values
),
Vcommand_history
);
/* Don't keep command history around forever. */
if
(
NUMBERP
(
Vhistory_length
)
&&
XINT
(
Vhistory_length
)
>
0
)
{
teml
=
Fnthcdr
(
Vhistory_length
,
Vcommand_history
);
if
(
CONSP
(
teml
))
XCONS
(
teml
)
->
cdr
=
Qnil
;
}
}
single_kboard_state
();
return
apply1
(
function
,
specs
);
...
...
@@ -728,6 +738,13 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
}
Vcommand_history
=
Fcons
(
Flist
(
count
+
1
,
visargs
),
Vcommand_history
);
/* Don't keep command history around forever. */
if
(
NUMBERP
(
Vhistory_length
)
&&
XINT
(
Vhistory_length
)
>
0
)
{
teml
=
Fnthcdr
(
Vhistory_length
,
Vcommand_history
);
if
(
CONSP
(
teml
))
XCONS
(
teml
)
->
cdr
=
Qnil
;
}
}
/* If we used a marker to hold point, mark, or an end of the region,
...
...
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