Mercurial > emacs

comparison lisp/calendar/cal-coptic.el @ 93844:bf9ef749c23e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace int-to-string with number-to-string.
author Glenn Morris <rgm@gnu.org>
date Tue, 08 Apr 2008 07:07:17 +0000
parents 3ff2b47de8f2
children e49abd957e81
comparison
equal deleted inserted replaced
93843:61357badb5fa 93844:bf9ef749c23e
120 (y (calendar-extract-year coptic-date)) 120 (y (calendar-extract-year coptic-date))
121 (m (calendar-extract-month coptic-date))) 121 (m (calendar-extract-month coptic-date)))
122 (if (< y 1) 122 (if (< y 1)
123 "" 123 ""
124 (let ((monthname (aref calendar-coptic-month-name-array (1- m))) 124 (let ((monthname (aref calendar-coptic-month-name-array (1- m)))
125 (day (int-to-string (calendar-extract-day coptic-date))) 125 (day (number-to-string (calendar-extract-day coptic-date)))
126 (dayname nil) 126 (dayname nil)
127 (month (int-to-string m)) 127 (month (number-to-string m))
128 (year (int-to-string y))) 128 (year (number-to-string y)))
129 (mapconcat 'eval calendar-date-display-form ""))))) 129 (mapconcat 'eval calendar-date-display-form "")))))
130 130
131 ;;;###cal-autoload 131 ;;;###cal-autoload
132 (defun calendar-coptic-print-date () 132 (defun calendar-coptic-print-date ()
133 "Show the Coptic calendar equivalent of the selected date." 133 "Show the Coptic calendar equivalent of the selected date."
145 Reads a year, month, and day." 145 Reads a year, month, and day."
146 (let* ((today (calendar-current-date)) 146 (let* ((today (calendar-current-date))
147 (year (calendar-read 147 (year (calendar-read
148 (format "%s calendar year (>0): " calendar-coptic-name) 148 (format "%s calendar year (>0): " calendar-coptic-name)
149 (lambda (x) (> x 0)) 149 (lambda (x) (> x 0))
150 (int-to-string 150 (number-to-string
151 (calendar-extract-year 151 (calendar-extract-year
152 (calendar-coptic-from-absolute 152 (calendar-coptic-from-absolute
153 (calendar-absolute-from-gregorian today)))))) 153 (calendar-absolute-from-gregorian today))))))
154 (completion-ignore-case t) 154 (completion-ignore-case t)
155 (month (cdr (assoc-string 155 (month (cdr (assoc-string