Commit 7cd96b42 authored by Richard M. Stallman's avatar Richard M. Stallman

(calendar-string-to-mayan-long-count): Don't

assume that periods must end numbers.  Look for digit runs explicitly.
parent 44d798af
......@@ -102,11 +102,12 @@ research. Using 1232041 will give you the correlation used by Spinden.")
(condition-case condition
(while (< cc c)
(let ((datum (read-from-string str cc)))
(if (not (integerp (car datum)))
(signal 'invalid-read-syntax (car datum))
(setq rlc (cons (car datum) rlc))
(setq cc (cdr datum)))))
(let* ((start (string-match "[0-9]+" str cc))
(end (match-end 0))
(setq datum (read (substring str start end)))
(setq rlc (cons datum rlc))
(setq cc end)))
(if (not (= (length rlc) 5)) (signal 'invalid-read-syntax nil)))
(invalid-read-syntax nil))
(reverse rlc)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment