* lisp/progmodes/octave.el (inferior-octave-mode):

Set comint-input-ring-size to a number.

Fixes: debbugs:17912

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78235d768797a7b41ab9cdc4b70fe2180abe44df..021b06936541556b561e13486344d2efb5a8b675 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/octave.el (inferior-octave-mode):
+       Set comint-input-ring-size to a number (bug#17912).
+
 2014-07-03  Juri Linkov  <juri@jurta.org>
 
        * desktop.el (desktop-minor-mode-table): Add `defining-kbd-macro'

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 3fdcec219d32855dc70ef56028f3526715fa49fa..25b081545a34108b58a09267dd53209d2b6f5ee3 100644 (file)
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -747,9 +747,10 @@ Key bindings:
   (setq-local info-lookup-mode 'octave-mode)
   (setq-local eldoc-documentation-function 'octave-eldoc-function)
 
-  (setq comint-input-ring-file-name
-        (or (getenv "OCTAVE_HISTFILE") "~/.octave_hist")
-        comint-input-ring-size (or (getenv "OCTAVE_HISTSIZE") 1024))
+  (setq-local comint-input-ring-file-name
+              (or (getenv "OCTAVE_HISTFILE") "~/.octave_hist"))
+  (setq-local comint-input-ring-size
+              (string-to-number (or (getenv "OCTAVE_HISTSIZE") "1024")))
   (comint-read-input-ring t)
   (setq-local comint-dynamic-complete-functions
               inferior-octave-dynamic-complete-functions)