[Emacs-diffs] emacs/src ChangeLog callint.c fileio.c

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/04/15 00:08:25

Modified files:
        src            : ChangeLog callint.c fileio.c 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7485&r2=1.7486
http://cvs.savannah.gnu.org/viewcvs/emacs/src/callint.c?cvsroot=emacs&r1=1.172&r2=1.173
http://cvs.savannah.gnu.org/viewcvs/emacs/src/fileio.c?cvsroot=emacs&r1=1.653&r2=1.654

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7485
retrieving revision 1.7486
diff -u -b -r1.7485 -r1.7486
--- ChangeLog   14 Apr 2009 13:58:35 -0000      1.7485
+++ ChangeLog   15 Apr 2009 00:08:23 -0000      1.7486
@@ -1,3 +1,11 @@
+2009-04-15  Dan Nicolaescu  <address@hidden>
+
+       * 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  <address@hidden>
 
        * buffer.c (syms_of_buffer) <line-spacing>: Doc fix.

Index: callint.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/callint.c,v
retrieving revision 1.172
retrieving revision 1.173
diff -u -b -r1.172 -r1.173
--- callint.c   26 Mar 2009 17:07:59 -0000      1.172
+++ callint.c   15 Apr 2009 00:08:24 -0000      1.173
@@ -42,6 +42,7 @@
 
 extern Lisp_Object Vhistory_length;
 extern Lisp_Object Vthis_original_command, real_this_command;
+extern int history_delete_duplicates;
 
 Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
 Lisp_Object Qenable_recursive_minibuffers;
@@ -366,12 +367,15 @@
        {
          /* We should record this command on the command history.  */
          Lisp_Object values;
+         Lisp_Object this_cmd;
          /* Make a copy of the list of values, for the command history,
             and turn them into things we can eval.  */
          values = quotify_args (Fcopy_sequence (specs));
          fix_command (input, values);
-         Vcommand_history
-           = Fcons (Fcons (function, values), Vcommand_history);
+         this_cmd = Fcons (function, values);
+         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.  */
          if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0)

Index: fileio.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fileio.c,v
retrieving revision 1.653
retrieving revision 1.654
diff -u -b -r1.653 -r1.654
--- fileio.c    28 Mar 2009 02:24:23 -0000      1.653
+++ fileio.c    15 Apr 2009 00:08:24 -0000      1.654
@@ -221,8 +221,6 @@
 
 extern int minibuffer_auto_raise;
 
-extern int history_delete_duplicates;
-
 /* These variables describe handlers that have "already" had a chance
    to handle the current operation.