diff options
| author | Jim Blandy <[email protected]> | 1992-08-29 02:14:58 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1992-08-29 02:14:58 +0000 |
| commit | bd3073920fe7bf841a155480e3a77a1030bacfa8 (patch) | |
| tree | 820401de51455f41a5e7eb36b14cf46682738e79 /lisp/simple.el | |
| parent | 5d305367662fbdf5f127794027673b8e1e65adf6 (diff) | |
*** empty log message ***
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 a70a7c5b24..69414a3cb1 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) |