diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:33:47 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-16 11:33:47 +0000 |
| commit | e0ee70dd457c4078d19466a6790e5c9f58ff9241 (patch) | |
| tree | 5750f19a6762c1a1a7187a4eeba1a370640d1eb0 /lisp/calendar/cal-hebrew.el | |
| parent | fe1652c32f1481aef4ca00328cb14a3514ca63f1 (diff) | |
| download | emacs-e0ee70dd457c4078d19466a6790e5c9f58ff9241.tar.gz | |
Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/calendar/cal-hebrew.el')
| -rw-r--r-- | lisp/calendar/cal-hebrew.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el index f66b4966e57..8f9f7723d5d 100644 --- a/lisp/calendar/cal-hebrew.el +++ b/lisp/calendar/cal-hebrew.el @@ -718,13 +718,13 @@ is provided for use as part of the nongregorian-diary-marking-hook." (buffer-substring (match-beginning m-name-pos) (match-end m-name-pos)))) - (mm (string-to-int + (mm (string-to-number (if m-pos (buffer-substring (match-beginning m-pos) (match-end m-pos)) ""))) - (dd (string-to-int + (dd (string-to-number (if d-pos (buffer-substring (match-beginning d-pos) @@ -743,14 +743,14 @@ is provided for use as part of the nongregorian-diary-marking-hook." (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (calendar-current-date))))) - (y (+ (string-to-int y-str) + (y (+ (string-to-number y-str) (* 100 (/ current-y 100))))) (if (> (- y current-y) 50) (- y 100) (if (> (- current-y y) 50) (+ y 100) y))) - (string-to-int y-str))))) + (string-to-number y-str))))) (if dd-name (mark-calendar-days-named (cdr (assoc-string dd-name |