[Emacs-diffs] /srv/bzr/emacs/trunk r103596: Fix previous gdb-mi change.

[Glenn Morris]

------------------------------------------------------------
revno: 103596
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-03-09 00:55:08 -0800
message:
  Fix previous gdb-mi change.
modified:
  lisp/progmodes/gdb-mi.el

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2011-03-09 08:43:27 +0000
+++ b/lisp/progmodes/gdb-mi.el  2011-03-09 08:55:08 +0000
@@ -671,8 +671,10 @@
                                    (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)))