diff options
Diffstat (limited to 'lisp/calendar/cal-islam.el')
-rw-r--r-- | lisp/calendar/cal-islam.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index ecb8aae691..9ca2861e6b 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el @@ -209,7 +209,7 @@ not be marked in the calendar. This function is provided for use with the (mark (regexp-quote diary-nonmarking-symbol))) (calendar-for-loop i from 1 to number do (let* ((d diary-date-forms) - (idate (calendar-islamic-from-absolute + (idate (calendar-islamic-from-absolute (calendar-absolute-from-gregorian gdate))) (month (extract-calendar-month idate)) (day (extract-calendar-day idate)) @@ -450,7 +450,7 @@ Prefix arg will make the entry nonmarking." (make-diary-entry (concat islamic-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t))) @@ -468,7 +468,7 @@ Prefix arg will make the entry nonmarking." (make-diary-entry (concat islamic-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t))))) @@ -487,7 +487,7 @@ Prefix arg will make the entry nonmarking." (make-diary-entry (concat islamic-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t))))) |