Commit d65859c3 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* fileio.c (history_delete_duplicates): Remove unused declaration.

* callint.c (history_delete_duplicates): New declaration.
(Fcall_interactively): Remove command history duplicates when
history_delete_duplicates is true.
parent ade29c44
2009-04-15 Dan Nicolaescu <dann@ics.uci.edu>
* fileio.c (history_delete_duplicates): Remove unused declaration.
* callint.c (history_delete_duplicates): New declaration.
(Fcall_interactively): Remove command history duplicates when
history_delete_duplicates is true.
2009-04-14 Eli Zaretskii <eliz@gnu.org> 2009-04-14 Eli Zaretskii <eliz@gnu.org>
   
* buffer.c (syms_of_buffer) <line-spacing>: Doc fix. * buffer.c (syms_of_buffer) <line-spacing>: Doc fix.
......
...@@ -42,6 +42,7 @@ Lisp_Object Vcommand_history; ...@@ -42,6 +42,7 @@ Lisp_Object Vcommand_history;
extern Lisp_Object Vhistory_length; extern Lisp_Object Vhistory_length;
extern Lisp_Object Vthis_original_command, real_this_command; extern Lisp_Object Vthis_original_command, real_this_command;
extern int history_delete_duplicates;
Lisp_Object Vcommand_debug_status, Qcommand_debug_status; Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
Lisp_Object Qenable_recursive_minibuffers; Lisp_Object Qenable_recursive_minibuffers;
...@@ -366,12 +367,15 @@ invoke it. If KEYS is omitted or nil, the return value of ...@@ -366,12 +367,15 @@ invoke it. If KEYS is omitted or nil, the return value of
{ {
/* We should record this command on the command history. */ /* We should record this command on the command history. */
Lisp_Object values; Lisp_Object values;
Lisp_Object this_cmd;
/* Make a copy of the list of values, for the command history, /* Make a copy of the list of values, for the command history,
and turn them into things we can eval. */ and turn them into things we can eval. */
values = quotify_args (Fcopy_sequence (specs)); values = quotify_args (Fcopy_sequence (specs));
fix_command (input, values); fix_command (input, values);
Vcommand_history this_cmd = Fcons (function, values);
= Fcons (Fcons (function, values), Vcommand_history); if (history_delete_duplicates)
Vcommand_history = Fdelete (this_cmd, Vcommand_history);
Vcommand_history = Fcons (this_cmd, Vcommand_history);
/* Don't keep command history around forever. */ /* Don't keep command history around forever. */
if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0) if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0)
......
...@@ -221,8 +221,6 @@ extern int minibuf_level; ...@@ -221,8 +221,6 @@ extern int minibuf_level;
extern int minibuffer_auto_raise; extern int minibuffer_auto_raise;
extern int history_delete_duplicates;
/* These variables describe handlers that have "already" had a chance /* These variables describe handlers that have "already" had a chance
to handle the current operation. to handle the current operation.
......
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