|
@@ -4841,6 +4841,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
|
|
(org-no-warnings
|
|
(org-no-warnings
|
|
(let ((calendar-date-style 'european) (european-calendar-style t))
|
|
(let ((calendar-date-style 'european) (european-calendar-style t))
|
|
(diary-date day month year mark))))
|
|
(diary-date day month year mark))))
|
|
|
|
+(defalias 'org-float 'diary-float)
|
|
|
|
|
|
;; Define the` org-class' function
|
|
;; Define the` org-class' function
|
|
(defun org-class (y1 m1 d1 y2 m2 d2 dayname &rest skip-weeks)
|
|
(defun org-class (y1 m1 d1 y2 m2 d2 dayname &rest skip-weeks)
|