/[emacs]/emacs/lisp/calendar/cal-islam.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-islam.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by gerd, Mon Jul 16 15:45:28 2001 UTC revision 1.10.8.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 209  not be marked in the calendar.  This fun Line 209  not be marked in the calendar.  This fun
209              (mark (regexp-quote diary-nonmarking-symbol)))              (mark (regexp-quote diary-nonmarking-symbol)))
210          (calendar-for-loop i from 1 to number do          (calendar-for-loop i from 1 to number do
211             (let* ((d diary-date-forms)             (let* ((d diary-date-forms)
212                    (idate (calendar-islamic-from-absolute                    (idate (calendar-islamic-from-absolute
213                            (calendar-absolute-from-gregorian gdate)))                            (calendar-absolute-from-gregorian gdate)))
214                    (month (extract-calendar-month idate))                    (month (extract-calendar-month idate))
215                    (day (extract-calendar-day idate))                    (day (extract-calendar-day idate))
# Line 450  Prefix arg will make the entry nonmarkin Line 450  Prefix arg will make the entry nonmarkin
450      (make-diary-entry      (make-diary-entry
451       (concat       (concat
452        islamic-diary-entry-symbol        islamic-diary-entry-symbol
453        (calendar-date-string        (calendar-date-string
454         (calendar-islamic-from-absolute         (calendar-islamic-from-absolute
455          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
456           (calendar-cursor-to-date t)))           (calendar-cursor-to-date t)))
# Line 468  Prefix arg will make the entry nonmarkin Line 468  Prefix arg will make the entry nonmarkin
468      (make-diary-entry      (make-diary-entry
469       (concat       (concat
470        islamic-diary-entry-symbol        islamic-diary-entry-symbol
471        (calendar-date-string        (calendar-date-string
472         (calendar-islamic-from-absolute         (calendar-islamic-from-absolute
473          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
474           (calendar-cursor-to-date t)))))           (calendar-cursor-to-date t)))))
# Line 487  Prefix arg will make the entry nonmarkin Line 487  Prefix arg will make the entry nonmarkin
487      (make-diary-entry      (make-diary-entry
488       (concat       (concat
489        islamic-diary-entry-symbol        islamic-diary-entry-symbol
490        (calendar-date-string        (calendar-date-string
491         (calendar-islamic-from-absolute         (calendar-islamic-from-absolute
492          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
493           (calendar-cursor-to-date t)))))           (calendar-cursor-to-date t)))))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26