Fix previous gdb-mi change.

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index ac76caf8d611c9de7cb6ad351029bec29e4639c1..1a7f1841fb3ad36fd7ed515afbf776e4943c414f 100644 (file)
--- 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)))