# HG changeset patch # User Edward M. Reingold # Date 813511627 0 # Node ID a25a4f1246c0a022fd3d3c7330e4f786db139ccf # Parent c7174381d5d98bcb9d27b8e810368758805cd61f Added key definitions and autoloads for cal-tex.el (a new file). diff -r c7174381d5d9 -r a25a4f1246c0 lisp/calendar/calendar.el --- a/lisp/calendar/calendar.el Wed Oct 11 21:05:53 1995 +0000 +++ b/lisp/calendar/calendar.el Thu Oct 12 15:27:07 1995 +0000 @@ -5,8 +5,7 @@ ;; Author: Edward M. Reingold ;; Keywords: calendar -;; Human-Keywords: calendar, Gregorian calendar, Julian calendar, -;; Julian day number, diary, holidays +;; Human-Keywords: calendar, Gregorian calendar, diary, holidays ;; This file is part of GNU Emacs. @@ -46,25 +45,27 @@ ;; Ethiopic calendar, and to the astronomical (Julian) day number. When ;; floating point is available, times of sunrise/sunset can be displayed, as ;; can the phases of the moon. Appointment notification for diary entries is -;; available. +;; available. Calendar printing via LaTeX is available. ;; The following files are part of the calendar/diary code: +;; appt.el Appointment notification +;; cal-chinese.el Chinese calendar +;; cal-coptic.el Coptic/Ethiopic calendars +;; cal-dst.el Daylight savings time rules +;; cal-hebrew.el Hebrew calendar +;; cal-islamic.el Islamic calendar +;; cal-iso.el ISO calendar +;; cal-julian.el Julian/astronomical calendars +;; cal-mayan.el Mayan calendars ;; cal-menu.el Menu support ;; cal-move.el Movement in the calendar +;; cal-tex.el Calendars in LaTeX ;; cal-x.el X-windows dedicated frame functions ;; diary.el Diary functions ;; holidays.el Holiday functions -;; cal-julian.el Julian/astronomical calendars -;; cal-hebrew.el Hebrew calendar -;; cal-islamic.el Islamic calendar -;; cal-mayan.el Mayan calendars -;; cal-chinese.el Chinese calendar -;; cal-coptic.el Coptic/Ethiopic calendars -;; cal-dst.el Daylight savings time rules +;; lunar.el Phases of the moon ;; solar.el Sunrise/sunset, equinoxes/solstices -;; lunar.el Phases of the moon -;; appt.el Appointment notification ;; Comments, corrections, and improvements should be sent to ;; Edward M. Reingold Department of Computer Science @@ -89,7 +90,7 @@ (defun calendar-version () (interactive) - (message "Version 6, September 17, 1995")) + (message "Version 6, October 12, 1995")) ;;;###autoload (defvar calendar-week-start-day 0 @@ -1443,6 +1444,54 @@ holidays are found, nil if not." t) +(autoload 'cal-tex-cursor-month "cal-tex" + "Make a buffer with LaTeX commands for the month cursor is on. +Optional prefix argument specifies number of months to be produced. +Calendar is condensed onto one page.") + +(autoload 'cal-tex-cursor-month-landscape "cal-tex" + "Make a buffer with LaTeX commands for the month cursor is on. +Optional prefix argument specifies number of months to be produced.") + +(autoload 'cal-tex-cursor-day "cal-tex" + "Make a buffer with LaTeX commands for the day cursor is on.") + +(autoload 'cal-tex-cursor-week "cal-tex" + "Make a buffer with LaTeX commands for a one page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-week2 "cal-tex" + "Make a buffer with LaTeX commands for a two page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-week3 "cal-tex" + "Make a buffer with LaTeX commands for a one page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-week4 "cal-tex" + "Make a buffer with LaTeX commands for a one page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-week5 "cal-tex" + "Make a buffer with LaTeX commands for a Filofax one page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-week6 "cal-tex" + "Make a buffer with LaTeX commands for a Filofax two page weekly calendar. +Optional prefix argument specifies number of weeks.") + +(autoload 'cal-tex-cursor-year "cal-tex" + "Make a buffer with LaTeX commands for a year's calendar. +Optional prefix argument specifies numeber of years.") + +(autoload 'cal-tex-cursor-year-landscape "cal-tex" + "Make a buffer with LaTeX commands for a year's calendar (landscape). +Optional prefix argument specifies number of years.") + +(autoload 'cal-tex-cursor-filofax-year "cal-tex" + "Make a buffer with LaTeX commands for a year's calendar (Filofax). +Optional prefix argument specifies number of years.") + (autoload 'mark-calendar-holidays "holidays" "Mark notable days in the calendar window." t) @@ -1664,7 +1713,19 @@ (define-key calendar-mode-map "iid" 'insert-islamic-diary-entry) (define-key calendar-mode-map "iim" 'insert-monthly-islamic-diary-entry) (define-key calendar-mode-map "iiy" 'insert-yearly-islamic-diary-entry) - (define-key calendar-mode-map "?" 'calendar-goto-info-node)) + (define-key calendar-mode-map "?" 'calendar-goto-info-node) + (define-key calendar-mode-map "tm" 'cal-tex-cursor-month) + (define-key calendar-mode-map "tM" 'cal-tex-cursor-month-landscape) + (define-key calendar-mode-map "td" 'cal-tex-cursor-day) + (define-key calendar-mode-map "tw1" 'cal-tex-cursor-week) + (define-key calendar-mode-map "tw2" 'cal-tex-cursor-week2) + (define-key calendar-mode-map "tw3" 'cal-tex-cursor-week3) + (define-key calendar-mode-map "tw4" 'cal-tex-cursor-week4) + (define-key calendar-mode-map "tfw" 'cal-tex-cursor-week5) + (define-key calendar-mode-map "tfW" 'cal-tex-cursor-week6) + (define-key calendar-mode-map "tfy" 'cal-tex-cursor-filofax-year) + (define-key calendar-mode-map "ty" 'cal-tex-cursor-year) + (define-key calendar-mode-map "tY" 'cal-tex-cursor-year-landscape)) (defun describe-calendar-mode () "Create a help buffer with a brief description of the calendar-mode."