Mercurial > emacs

diff lisp/simple.el @ 1039:8ab465f7a7ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sat, 29 Aug 1992 02:14:58 +0000
parents f0000f6f7942
children 25b929c06f83
line wrap: on
line diff
--- a/lisp/simple.el	Fri Aug 28 20:39:57 1992 +0000
+++ b/lisp/simple.el	Sat Aug 29 02:14:58 1992 +0000
@@ -691,7 +691,8 @@
       (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)