[Emacs-diffs] Changes to emacs/src/callint.c

[Gerd Moellmann]

Index: emacs/src/callint.c
diff -c emacs/src/callint.c:1.112 emacs/src/callint.c:1.113
*** emacs/src/callint.c:1.112   Thu Jan 31 23:32:24 2002
--- emacs/src/callint.c Fri Apr  5 08:36:36 2002
***************
*** 1,5 ****
  /* Call a Lisp function interactively.
!    Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
--- 1,5 ----
  /* Call a Lisp function interactively.
!    Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 2002
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
***************
*** 346,352 ****
            = 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))
--- 346,352 ----
            = Fcons (Fcons (function, values), Vcommand_history);
  
          /* Don't keep command history around forever.  */
!         if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0)
            {
              teml = Fnthcdr (Vhistory_length, Vcommand_history);
              if (CONSP (teml))
***************
*** 764,770 ****
        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))
--- 764,770 ----
        Vcommand_history = Fcons (Flist (count + 1, visargs),
                                Vcommand_history);
        /* Don't keep command history around forever.  */
!       if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0)
        {
          teml = Fnthcdr (Vhistory_length, Vcommand_history);
          if (CONSP (teml))