Mercurial > emacs

comparison lisp/time.el @ 62402:a7e02ef1e3d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace `string-to-int' by `string-to-number'.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 16 May 2005 11:33:47 +0000
parents aac0a33f5772
children 75fa29e46766 f042e7c0fe20
comparison
equal deleted inserted replaced
62401:4512c4db6912 62402:a7e02ef1e3d6
329 (setq display-time-server-down-time 329 (setq display-time-server-down-time
330 (nth 1 (current-time))) 330 (nth 1 (current-time)))
331 ;; Record that mail file is accessible. 331 ;; Record that mail file is accessible.
332 (setq display-time-server-down-time nil))))))) 332 (setq display-time-server-down-time nil)))))))
333 (24-hours (substring time 11 13)) 333 (24-hours (substring time 11 13))
334 (hour (string-to-int 24-hours)) 334 (hour (string-to-number 24-hours))
335 (12-hours (int-to-string (1+ (% (+ hour 11) 12)))) 335 (12-hours (int-to-string (1+ (% (+ hour 11) 12))))
336 (am-pm (if (>= hour 12) "pm" "am")) 336 (am-pm (if (>= hour 12) "pm" "am"))
337 (minutes (substring time 14 16)) 337 (minutes (substring time 14 16))
338 (seconds (substring time 17 19)) 338 (seconds (substring time 17 19))
339 (time-zone (car (cdr (current-time-zone now)))) 339 (time-zone (car (cdr (current-time-zone now))))