Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
1038:59fa7697bb14 1039:8ab465f7a7ff
689 ;; (describe-arg value sign) 689 ;; (describe-arg value sign)
690 (while (equal key "-") 690 (while (equal key "-")
691 (setq sign (- sign) factor nil) 691 (setq sign (- sign) factor nil)
692 ;; (describe-arg value sign) 692 ;; (describe-arg value sign)
693 (setq key (read-key-sequence nil t))) 693 (setq key (read-key-sequence nil t)))
694 (while (and (= (length key) 1) 694 (while (and (stringp key)
695 (= (length key) 1)
695 (not (string< key "0")) 696 (not (string< key "0"))
696 (not (string< "9" key))) 697 (not (string< "9" key)))
697 (setq value (+ (* (if (numberp value) value 0) 10) 698 (setq value (+ (* (if (numberp value) value 0) 10)
698 (- (aref key 0) ?0)) 699 (- (aref key 0) ?0))
699 factor nil) 700 factor nil)