Changeset 4073 for trunk/lisp/calendar/cal-tex.el
- Timestamp:
- 05/03/06 18:37:43 (3 years ago)
- Files:
-
- trunk (modified) (1 prop)
- trunk/lisp/calendar/cal-tex.el (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk
- Property svn:ignore changed from
bin
to
bin
site-lisp
- Property svn:ignore changed from
trunk/lisp/calendar/cal-tex.el
r4037 r4073 46 46 (require 'calendar) 47 47 48 (autoload ' list-diary-entries "diary-lib" nil t)48 (autoload 'diary-list-entries "diary-lib" nil t) 49 49 (autoload 'calendar-holiday-list "holidays" nil t) 50 50 (autoload 'calendar-iso-from-absolute "cal-iso" nil t) … … 121 121 :type 'integer 122 122 :group 'calendar-tex) 123 124 (defcustom cal-tex-preamble-extra nil 125 "A string giving extra LaTeX commands to insert in the calendar preamble. 126 For example, to include extra packages: 127 \"\\\\usepackage{foo}\\n\\\\usepackage{bar}\\n\"." 128 :type 'string 129 :group 'calendar-tex 130 :version "22.1") 123 131 124 132 (defcustom cal-tex-hook nil … … 241 249 (let ((diary-list-include-blanks nil) 242 250 (diary-display-hook 'ignore)) 243 ( list-diary-entries251 (diary-list-entries 244 252 (calendar-gregorian-from-absolute d1) 245 253 (1+ (- d2 d1))))) … … 254 262 (if args 255 263 (insert "[" args "]")) 256 (insert "{article}\n" 257 "\\hbadness 20000 264 (insert "{article}\n") 265 (if (stringp cal-tex-preamble-extra) 266 (insert cal-tex-preamble-extra "\n")) 267 (insert "\\hbadness 20000 258 268 \\hfuzz=1000pt 259 269 \\vbadness 20000 … … 358 368 (cal-tex-nl) 359 369 (let ((month-names; don't use default in case user changed it 370 ;; These are only used to define the command names, not 371 ;; the names of the months they insert. 360 372 ["January" "February" "March" "April" "May" "June" 361 373 "July" "August" "September" "October" "November" "December"]))
