# HG changeset patch # User Glenn Morris # Date 1059919119 0 # Node ID 48c133ab94d734ef980cd7ee16e3c74b5b4d1de4 # Parent e94e668195a20c906cccdd0c665b38e4ff6e95a0 (cal-tex-day-name-format): Doc fix. (cal-tex-LaTeX-hourbox): Move definition before use. diff -r e94e668195a2 -r 48c133ab94d7 lisp/calendar/cal-tex.el --- a/lisp/calendar/cal-tex.el Sun Aug 03 13:58:01 2003 +0000 +++ b/lisp/calendar/cal-tex.el Sun Aug 03 13:58:39 2003 +0000 @@ -158,7 +158,7 @@ (defvar cal-tex-day-name-format "\\myday{%s}%%" "The format for LaTeX code for a day name. The names are taken from -calendar-day-name-array.") +`calendar-day-name-array'.") (defvar cal-tex-cal-one-month "\\def\\calmonth#1#2% @@ -649,6 +649,11 @@ ;;; Weekly calendars ;;; +(defvar cal-tex-LaTeX-hourbox + "\\newcommand{\\hourbox}[2]% +{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" + "One hour and a line on the right.") + (defun cal-tex-cursor-week (&optional arg) "Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in. @@ -870,11 +875,6 @@ (cal-tex-end-document) (run-hooks 'cal-tex-hook))) -(defvar cal-tex-LaTeX-hourbox - "\\newcommand{\\hourbox}[2]% -{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" - "One hour and a line on the right.") - (defun cal-tex-week-hours (date holidays height) "Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT." (let ((month (extract-calendar-month date))