;;AUTOLOAD: cur-date
;;AUTODOC: cur-date "return the current date"
;;(cur-date)
;;
;;the date is returned as a list of numbers, 
;;(year month day hour minute second day-of-the-week-0=sunday)
;;year is year - 1900
;;month is 1-12
;;day is 1-31
;;hour is 00-23
;;minute is 00-59
;;day-of-the-week: 0 sunday, 1 = monday, etc... 

(defun cur-date ()
  (time-to-date (get-current-time))
)

;;useful alias
;;AUTOLOAD: cur-time
;;AUTODOC: cur-time "alias for get-current-time"

(setq cur-time get-current-time)

