From: Glenn Morris <rgm@gnu.org>
Date: Wed, 9 Mar 2011 08:55:08 +0000 (-0800)
Subject: Fix previous gdb-mi change.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1289e5d3f56a5c5e2fe5500adf8671fd45b6a27f;p=emacs.git

Fix previous gdb-mi change.
---

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index ac76caf8d61..1a7f1841fb3 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -671,8 +671,10 @@ detailed description of this mode.
 				    (file-name-directory file))))
 		      ((string-equal (match-string 1) "size")
 		       (setq hsize (match-string 2))))))))
-      (if (integerp hsize)
-	  (set (make-local-variable 'comint-input-ring-size) hsize))
+      (and (stringp hsize)
+	   (integerp (string-to-number hsize))
+	   (> hsize 0)
+	   (set (make-local-variable 'comint-input-ring-size) hsize))
       (if (stringp hfile)
 	  (set (make-local-variable 'comint-input-ring-file-name) hfile))
       (comint-read-input-ring t)))