procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
assume that periods must end numbers.  Look for digit runs explicitly.
This commit is contained in:
Richard M. Stallman 1994-02-19 02:05:53 +00:00
parent 44d798af46
commit 7cd96b42c5
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/calendar/cal-mayan.el
View file

@ -102,11 +102,12 @@ research. Using 1232041 will give you the correlation used by Spinden.")
(condition-case condition
(progn
(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))
datum)
(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)))