Function: math-format-date

math-format-date is an autoloaded and byte-compiled function defined in calc-forms.el.gz.

Signature

(math-format-date FD-DATE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-forms.el.gz
(defun math-format-date (fd-date)
  (let* ((math-fd-date (if (eq (car-safe fd-date) 'date)
                           (nth 1 fd-date)
                         fd-date))
         (entry (list math-fd-date calc-internal-prec calc-date-format)))
    (or (cdr (assoc entry math-format-date-cache))
	(let* ((math-fd-dt nil)
               (math-fd-iso-dt nil)
	       (calc-group-digits nil)
	       (calc-leading-zeros nil)
	       (calc-number-radix 10)
               (calc-twos-complement-mode nil)
	       math-fd-year math-fd-month math-fd-day math-fd-weekday
               math-fd-hour math-fd-minute math-fd-second
               math-fd-isoyear math-fd-isoweek math-fd-isoweekday
	       (math-fd-bc-flag nil)
	       (fmt (apply 'concat (mapcar 'math-format-date-part
					   calc-date-format))))
	  (setq math-format-date-cache (cons (cons entry fmt)
					     math-format-date-cache))
	  (and (setq math-fd-dt (nthcdr 10 math-format-date-cache))
	       (setcdr math-fd-dt nil))
	  fmt))))