Parent Directory | Revision Log | Patch
revision 1.1.1.1 by wfs, Mon Dec 6 22:43:56 1999 UTC | revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC | |
---|---|---|
# | Line 475 | Line 475 |
475 | (char-code #\0))) | (char-code #\0))) |
476 | (when (and | (when (and |
477 | (> (length fun) (+ i 2)) | (> (length fun) (+ i 2)) |
478 | (setq ch (char (the string fun) | (progn (setq ch (char (the string fun) |
479 | (+ i 2))) | (+ i 2))) |
480 | (digit-char-p ch)) | (digit-char-p ch))) |
481 | (setq n (+ (* n 10) | (setq n (+ (* n 10) |
482 | (- (char-code ch) | (- (char-code ch) |
483 | (char-code #\0)))) | (char-code #\0)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |