Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 13689:a04244ec8530
Repair function names from rms error in modifying!
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 05 Dec 1995 23:13:33 +0000 |
| parents | 7ccba52e1e3e |
| children | 8a3ceaf9bfee |
comparison
equal
deleted
inserted
replaced
| 13688:88f14fa8e205 | 13689:a04244ec8530 |
|---|---|
| 35 ;; Urbana, Illinois 61801 | 35 ;; Urbana, Illinois 61801 |
| 36 | 36 |
| 37 ;;; Code: | 37 ;;; Code: |
| 38 | 38 |
| 39 (define-key calendar-mode-map [menu-bar edit] 'undefined) | 39 (define-key calendar-mode-map [menu-bar edit] 'undefined) |
| 40 (define-key calendar-mode-map [menu-bar search] 'undefined) | |
| 40 | 41 |
| 41 (define-key calendar-mode-map [down-mouse-2] 'calendar-mouse-2-date-menu) | 42 (define-key calendar-mode-map [down-mouse-2] 'calendar-mouse-2-date-menu) |
| 42 (define-key calendar-mode-map [mouse-2] 'ignore) | 43 (define-key calendar-mode-map [mouse-2] 'ignore) |
| 43 | 44 |
| 44 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar")) | 45 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar")) |
| 195 (put 'insert-monthly-diary-entry 'menu-enable '(calendar-cursor-to-date)) | 196 (put 'insert-monthly-diary-entry 'menu-enable '(calendar-cursor-to-date)) |
| 196 (put 'insert-weekly-diary-entry 'menu-enable '(calendar-cursor-to-date)) | 197 (put 'insert-weekly-diary-entry 'menu-enable '(calendar-cursor-to-date)) |
| 197 (put 'cal-tex-cursor-day 'menu-enable '(calendar-cursor-to-date)) | 198 (put 'cal-tex-cursor-day 'menu-enable '(calendar-cursor-to-date)) |
| 198 (put 'cal-tex-cursor-week 'menu-enable '(calendar-cursor-to-date)) | 199 (put 'cal-tex-cursor-week 'menu-enable '(calendar-cursor-to-date)) |
| 199 (put 'cal-tex-cursor-week2 'menu-enable '(calendar-cursor-to-date)) | 200 (put 'cal-tex-cursor-week2 'menu-enable '(calendar-cursor-to-date)) |
| 200 (put 'cal-tex-cursor-week3 'menu-enable '(calendar-cursor-to-date)) | 201 (put 'cal-tex-cursor-week-iso 'menu-enable '(calendar-cursor-to-date)) |
| 201 (put 'cal-tex-cursor-week4 'menu-enable '(calendar-cursor-to-date)) | 202 (put 'cal-tex-cursor-week-monday 'menu-enable '(calendar-cursor-to-date)) |
| 202 (put 'cal-tex-cursor-week5 'menu-enable '(calendar-cursor-to-date)) | 203 (put 'cal-tex-cursor-week-filofax-2week |
| 203 (put 'cal-tex-cursor-week6 'menu-enable '(calendar-cursor-to-date)) | 204 'menu-enable '(calendar-cursor-to-date)) |
| 205 (put 'cal-tex-cursor-week-filofax-week 'menu-enable '(calendar-cursor-to-date)) | |
| 204 (put 'cal-tex-cursor-month 'menu-enable '(calendar-cursor-to-date)) | 206 (put 'cal-tex-cursor-month 'menu-enable '(calendar-cursor-to-date)) |
| 205 (put 'cal-tex-cursor-month-landscape 'menu-enable '(calendar-cursor-to-date)) | 207 (put 'cal-tex-cursor-month-landscape 'menu-enable '(calendar-cursor-to-date)) |
| 206 (put 'cal-tex-cursor-year 'menu-enable '(calendar-cursor-to-date)) | 208 (put 'cal-tex-cursor-year 'menu-enable '(calendar-cursor-to-date)) |
| 207 (put 'cal-tex-cursor-filofax-year 'menu-enable '(calendar-cursor-to-date)) | 209 (put 'cal-tex-cursor-filofax-year 'menu-enable '(calendar-cursor-to-date)) |
| 208 (put 'cal-tex-cursor-year-landscape 'menu-enable '(calendar-cursor-to-date)) | 210 (put 'cal-tex-cursor-year-landscape 'menu-enable '(calendar-cursor-to-date)) |
| 304 (interactive) | 306 (interactive) |
| 305 (save-excursion | 307 (save-excursion |
| 306 (calendar-goto-date (calendar-event-to-date)) | 308 (calendar-goto-date (calendar-event-to-date)) |
| 307 (cal-tex-cursor-week2 nil))) | 309 (cal-tex-cursor-week2 nil))) |
| 308 | 310 |
| 309 (defun cal-tex-mouse-week3 () | 311 (defun cal-tex-mouse-week-iso () |
| 310 "One page calendar for week indicated by cursor. | 312 "One page calendar for week indicated by cursor. |
| 311 Holidays are included if `cal-tex-holidays' is t." | 313 Holidays are included if `cal-tex-holidays' is t." |
| 312 (interactive) | 314 (interactive) |
| 313 (save-excursion | 315 (save-excursion |
| 314 (calendar-goto-date (calendar-event-to-date)) | 316 (calendar-goto-date (calendar-event-to-date)) |
| 315 (cal-tex-cursor-week3 nil))) | 317 (cal-tex-cursor-week-iso nil))) |
| 316 | 318 |
| 317 (defun cal-tex-mouse-week4 () | 319 (defun cal-tex-mouse-week-monday () |
| 318 "One page calendar for week indicated by cursor." | 320 "One page calendar for week indicated by cursor." |
| 319 (interactive) | 321 (interactive) |
| 320 (save-excursion | 322 (save-excursion |
| 321 (calendar-goto-date (calendar-event-to-date)) | 323 (calendar-goto-date (calendar-event-to-date)) |
| 322 (cal-tex-cursor-week4 nil))) | 324 (cal-tex-cursor-week-monday nil))) |
| 323 | 325 |
| 324 (defun cal-tex-mouse-week5 () | 326 (defun cal-tex-mouse-week-filofax-2week () |
| 325 "One page Filofax calendar for week indicated by cursor." | 327 "One page Filofax calendar for week indicated by cursor." |
| 326 (interactive) | 328 (interactive) |
| 327 (save-excursion | 329 (save-excursion |
| 328 (calendar-goto-date (calendar-event-to-date)) | 330 (calendar-goto-date (calendar-event-to-date)) |
| 329 (cal-tex-cursor-week5 nil))) | 331 (cal-tex-cursor-week-filofax-2week nil))) |
| 330 | 332 |
| 331 (defun cal-tex-mouse-week6 () | 333 (defun cal-tex-mouse-week-filofax-week () |
| 332 "Two page Filofax calendar for week indicated by cursor." | 334 "Two page Filofax calendar for week indicated by cursor." |
| 333 (interactive) | 335 (interactive) |
| 334 (save-excursion | 336 (save-excursion |
| 335 (calendar-goto-date (calendar-event-to-date)) | 337 (calendar-goto-date (calendar-event-to-date)) |
| 336 (cal-tex-cursor-week6 nil))) | 338 (cal-tex-cursor-week-filofax-week nil))) |
| 337 | 339 |
| 338 (defun cal-tex-mouse-month () | 340 (defun cal-tex-mouse-month () |
| 339 "Make a buffer with LaTeX commands for the month cursor is on. | 341 "Make a buffer with LaTeX commands for the month cursor is on. |
| 340 Calendar is condensed onto one page." | 342 Calendar is condensed onto one page." |
| 341 (interactive) | 343 (interactive) |