(comint-save-input-ring-index): Add missing initial value.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dad06617fe5..067b190102a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-20  Glenn Morris  <rgm@gnu.org>
+
+        * comint.el (comint-save-input-ring-index): Add missing initial value.
+
 2008-12-19  Juanma Barranquero  <lekktu@gmail.com>
 
         * proced.el (proced-grammar-alist): Doc fix.
diff --git a/lisp/comint.el b/lisp/comint.el
index 69887aa22c8..d8a4a032ad9 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1,7 +1,8 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
 ;; Copyright (C) 1988, 1990, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <shivers@cs.cmu.edu>
 ;;      Simon Marshall <simon@gnu.org>
@@ -555,7 +556,7 @@ This is to work around a bug in Emacs process signaling.")
   "Index of last matched history element.")
 (defvar comint-matching-input-from-input-string ""
   "Input previously used to match input history.")
-(defvar comint-save-input-ring-index
+(defvar comint-save-input-ring-index nil
   "Last input ring index which you copied.
 This is to support the command \\[comint-get-next-from-history].")