home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / calendar / diary-ad.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  5.3 KB  |  39 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:34:27 1992
  2. ;;; from file /u/jwz/emacs19/lisp/calendar/diary-add.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'insert-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\"    ╩ !êdbê    ╠▒*ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
  14. Insert a diary entry for the date indicated by point." nil])
  15. (fset 'insert-weekly-diary-entry #[nil "└┴ «â┬├!!┼!êdbê ╚▒)ç" [calendar-day-name calendar-cursor-to-date error "Cursor is not on a date!" weekday find-file-other-window diary-file diary-nonmarking-symbol " "] 3 "\
  16. Insert a weekly diary entry for the day of the week indicated by point." nil])
  17. (fset 'insert-monthly-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\"    ╩ !êdbê    ╠▒*ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
  18. Insert a monthly diary entry for the day of the month indicated by point." nil])
  19. (fset 'insert-annual-diary-entry #[nil "½â┴¬ü┬─┼ «â╞╟!╚\"    ╩ !êdbê    ╠▒*ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t date-string find-file-other-window diary-file " "] 3 "\
  20. Insert an annual diary entry for the day of the year indicated by point." nil])
  21. (fset 'insert-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
  22. Insert a diary entry for the Hebrew date corresponding to the date
  23. indicated by point." nil])
  24. (fset 'insert-monthly-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
  25. Insert a monthly diary entry for the day of the Hebrew month corresponding
  26. to the date indicated by point." nil])
  27. (fset 'insert-annual-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" hebrew-date calendar-hebrew-month-name-array-leap-year calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file hebrew-diary-entry-symbol " "] 4 "\
  28. Insert an annual diary entry for the day of the Hebrew year corresponding
  29. to the date indicated by point." nil])
  30. (fset 'insert-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
  31. Insert a diary entry for the Islamic date corresponding to the date
  32. indicated by point." nil])
  33. (fset 'insert-monthly-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
  34. Insert a monthly diary entry for the day of the Islamic month corresponding
  35. to the date indicated by point." nil])
  36. (fset 'insert-annual-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !╬!êdbê╤▒,ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" islamic-date calendar-islamic-month-name-array calendar-month-name-array calendar-date-string date-string find-file-other-window diary-file islamic-diary-entry-symbol " "] 4 "\
  37. Insert an annual diary entry for the day of the Islamic year corresponding
  38. to the date indicated by point." nil])
  39.