home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / calendar / diary-add.elc < prev    next >
Encoding:
Text File  |  1993-04-01  |  5.3 KB  |  39 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jun 30 21:55:04 1992
  2. ;;; from file /wg1/emacs-base/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 ╠    !
  22. ╬!êdbê
  23. ╤▒,ç" [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 "\
  24. Insert a diary entry for the Hebrew date corresponding to the date
  25. indicated by point." nil])
  26. (fset 'insert-monthly-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !
  27. ╬!êdbê
  28. ╤▒,ç" [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 "\
  29. Insert a monthly diary entry for the day of the Hebrew month corresponding
  30. to the date indicated by point." nil])
  31. (fset 'insert-annual-hebrew-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !
  32. ╬!êdbê
  33. ╤▒,ç" [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 "\
  34. Insert an annual diary entry for the day of the Hebrew year corresponding
  35. to the date indicated by point." nil])
  36. (fset 'insert-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !
  37. ╬!êdbê
  38. ╤▒,ç" [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 "\
  39. Insert a diary entry for the Islamic date corresponding to the date
  40. indicated by point." nil])
  41. (fset 'insert-monthly-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !
  42. ╬!êdbê
  43. ╤▒,ç" [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 "\
  44. Insert a monthly diary entry for the day of the Islamic month corresponding
  45. to the date indicated by point." nil])
  46. (fset 'insert-annual-islamic-diary-entry #[nil "½â┴¬ü┬─┼╞ «â╟╚!!!    \n ╠    !
  47. ╬!êdbê
  48. ╤▒,ç" [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 "\
  49. Insert an annual diary entry for the day of the Islamic year corresponding
  50. to the date indicated by point." nil])
  51.