diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index a70a7c5b246..69414a3cb11 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -691,7 +691,8 @@ Repeating \\[universal-argument] without digits or minus sign (setq sign (- sign) factor nil) ;; (describe-arg value sign) (setq key (read-key-sequence nil t))) - (while (and (= (length key) 1) + (while (and (stringp key) + (= (length key) 1) (not (string< key "0")) (not (string< "9" key))) (setq value (+ (* (if (numberp value) value 0) 10) |