;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Thu Feb 15 20:11:30 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-move.el ;;; emacs version 19.30.91.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cal-move.el' was compiled for Emacs 19.29 or later")) #@64 Reposition the calendar window so the current date is visible. (defalias 'calendar-goto-today #[nil "À  !„à ‚Ä ˆÅ !)‡" [calendar-current-date today calendar-date-is-visible-p generate-calendar-window update-calendar-mode-line calendar-cursor-to-visible-date] 2 (#$ . 479) nil]) #@78 Move the cursor forward ARG months. Movement is backward if ARG is negative. (defalias 'calendar-forward-month #[(arg) "À ˆÁÂ!‰‰@) ‰A@) ‰AA@)‰È_ \\ \\Ê\\‰ ȦT È¥) ‰ÌUƒf‰ͦÎU…^ϦÎU?†^ЦÎU)ƒfÑ‚jÒ SH*‰Wƒx) EÕ!„ŽÖ \"ˆ×!-‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date t cursor-date date month day year 12 arg -1 macro-y 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] last new-cursor-date calendar-date-is-visible-p calendar-other-month calendar-cursor-to-visible-date] 4 (#$ . 769) "p"]) #@80 Move the cursor forward by ARG years. Movement is backward if ARG is negative. (defalias 'calendar-forward-year #[(arg) "À Â_!‡" [calendar-forward-month arg 12] 3 (#$ . 1334) "p"]) #@81 Move the cursor backward by ARG months. Movement is forward if ARG is negative. (defalias 'calendar-backward-month #[(arg) "À [!‡" [calendar-forward-month arg] 2 (#$ . 1521) "p"]) #@77 Move the cursor backward ARG years. Movement is forward is ARG is negative. (defalias 'calendar-backward-year #[(arg) "À Â_!‡" [calendar-forward-month arg -12] 3 (#$ . 1707) "p"]) #@199 Scroll the displayed calendar left by ARG months. If ARG is negative the calendar is scrolled right. Maintains the relative position of the cursor with respect to the calendar as well as possible. (defalias 'scroll-calendar-left #[(arg) "À ˆÁ   ÆU?…MÈ_ \\ \\Ê\\‰ ȦT  È¥)Ì \"ˆÍÎ\f!ƒ<\f‚LÎ !ƒF ‚L ÏE!*‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date calendar-current-date today old-date arg 0 displayed-year 12 displayed-month -1 macro-y generate-calendar-window calendar-cursor-to-visible-date calendar-date-is-visible-p 1] 5 (#$ . 1894) "p"]) #@206 Scroll the displayed calendar window right by ARG months. If ARG is negative the calendar is scrolled left. Maintains the relative position of the cursor with respect to the calendar as well as possible. (defalias 'scroll-calendar-right #[(arg) "À [!‡" [scroll-calendar-left arg] 2 (#$ . 2479) "p"]) #@208 Scroll the displayed calendar window left by 3*ARG months. If ARG is negative the calendar is scrolled right. Maintains the relative position of the cursor with respect to the calendar as well as possible. (defalias 'scroll-calendar-left-three-months #[(arg) "À Â_!‡" [scroll-calendar-left arg 3] 3 (#$ . 2787) "p"]) #@208 Scroll the displayed calendar window right by 3*ARG months. If ARG is negative the calendar is scrolled left. Maintains the relative position of the cursor with respect to the calendar as well as possible. (defalias 'scroll-calendar-right-three-months #[(arg) "À Â_!‡" [scroll-calendar-left arg -3] 3 (#$ . 3112) "p"]) #@168 Move the cursor to the closest date. The position of the cursor is unchanged if it is already on a date. Returns the list (month day year) giving the cursor position. (defalias 'calendar-cursor-to-nearest-date #[nil "À i‰ƒ \n‚]ÃÄe`\"VƒÅÃ!ˆÆ !ˆÇÈ!„[ÇÉ!„U ÊW„H ËVƒ< ÌW„H ÍVƒU ÎWƒUÏÈÐÑ#ˆÒÓ!ˆ‚[ÔÈÐÑ#ˆÀ *‡" [calendar-cursor-to-date column date 3 count-lines goto-line move-to-column looking-at "[0-9]" " *$" 25 27 50 52 75 re-search-forward nil t backward-char 1 re-search-backward] 5 (#$ . 3439)]) #@70 Move the cursor forward ARG days. Moves backward if ARG is negative. (defalias 'calendar-forward-day #[(arg) "ÁU?…Õ ‰ƒ ‚ÁVƒSÄ Å ‰‰AA@)S‰‰@)‰A@) ‰AA@)\n SË_\\\fÍVƒ‘\fÎ_Ï\\Ð¥Z\f\n‰\nΦÁU…ˆ\nѦÁU?†ˆ\nÒ¦ÁU)ƒ‘\fT\f\f-Ó_\\Î¥\\Ñ¥[\\Ò¥\\*\\!‰‰@)‰AA@)×!„ÐØ\"ˆÙ!-‡" [arg 0 calendar-cursor-to-date cursor-date calendar-cursor-to-nearest-date calendar-gregorian-from-absolute date prior-years month day year 31 day-of-year 2 4 23 10 100 400 365 new-cursor-date new-display-month new-display-year calendar-date-is-visible-p calendar-other-month calendar-cursor-to-visible-date] 7 (#$ . 3953) "p"]) #@66 Move the cursor back ARG days. Moves forward if ARG is negative. (defalias 'calendar-backward-day #[(arg) "À [!‡" [calendar-forward-day arg] 2 (#$ . 4633) "p"]) #@71 Move the cursor forward ARG weeks. Moves backward if ARG is negative. (defalias 'calendar-forward-week #[(arg) "À Â_!‡" [calendar-forward-day arg 7] 3 (#$ . 4800) "p"]) #@67 Move the cursor back ARG weeks. Moves forward if ARG is negative. (defalias 'calendar-backward-week #[(arg) "À Â_!‡" [calendar-forward-day arg -7] 3 (#$ . 4975) "p"]) #@53 Move the cursor back ARG calendar-week-start-day's. (defalias 'calendar-beginning-of-week #[(arg) "À ˆÁ !Ä UƒÇ_‚\"È ZÇ\"SÇ_\\!)‡" [calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date day calendar-backward-day calendar-week-start-day arg 7 mod] 4 (#$ . 5148) "p"]) #@58 Move the cursor forward ARG calendar-week-start-day+6's. (defalias 'calendar-end-of-week #[(arg) "À ˆÁ !Ä ÅSÇ\"UƒÇ_‚*ÉÅ ZÇ\"ZSÇ_\\!)‡" [calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date day calendar-forward-day mod calendar-week-start-day 7 arg 6] 5 (#$ . 5454) "p"]) #@48 Move the cursor backward ARG month beginnings. (defalias 'calendar-beginning-of-month #[(arg) "À ˆÁ ‰‰@)\n‰A@)\n‰AA@)\fÆUƒ(Ç!‚4É Æ E!ˆÇS!,‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date date month day year 1 calendar-backward-month arg calendar-cursor-to-visible-date] 5 (#$ . 5768) "p"]) #@41 Move the cursor forward ARG month ends. (defalias 'calendar-end-of-month #[(arg) "À ˆÁ ‰‰@)\n‰A@)\n‰AA@) ‰ÆUƒE ‰ǦÈU…= ɦÈU?†= ʦÈU)ƒEË‚IÌ SH* \f U„`Î  E!ˆS Ð_ \\\\Ñ\\‰ЦTÐ¥) ‰ ‰ÆUƒ¢ ‰ǦÈU…š ɦÈU?†š ʦÈU)ƒ¢Ë‚¦Ì SH* E Ó !„¹Ô \"‚½Î !.‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date date month day year 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] last-day calendar-cursor-to-visible-date arg 12 -1 macro-y calendar-date-is-visible-p calendar-other-month] 5 (#$ . 6088) "p"]) #@47 Move the cursor backward ARG year beginnings. (defalias 'calendar-beginning-of-year #[(arg) "À ˆÁ ‰‰@)\n‰A@)\n‰AA@)Ɖ E\fÆUƒ6 ÆUƒ6È Ê_!‚S ÆUƒKË!ƒKÌ!‚SÍÆ  SZ\"-‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date date month day year 1 jan-first calendar-backward-month arg 12 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month] 5 (#$ . 6637) "p"]) #@46 Move the cursor forward ARG year beginnings. (defalias 'calendar-end-of-year #[(arg) "À ˆÁ ‰‰@)\n‰A@)\n‰AA@)ÆÇ E\fÇUƒ6 ÆUƒ6É\nÆ_!‚[\nËUƒKÌ!ƒKÍ!‚[ÎÆ \nSZ\"ˆÍÆÇE!-‡" [calendar-cursor-to-nearest-date calendar-cursor-to-date date month day year 12 31 dec-31 calendar-forward-month arg 1 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month displayed-year] 5 (#$ . 7048) "p"]) #@48 Move the cursor to DATE that is on the screen. (defalias 'calendar-cursor-to-visible-date #[(date) "‰@)‰A@)‰AA@)Ä Å E!Ç\nÈÄ Å E! ZÊ\"\\Ë\\Ê¥Ì\\!ˆÍÎ $TÑ_ÈÄ! ZÊ\"Ì_\\Ò\\!,‡" [date month day year calendar-day-of-week 1 first-of-month-weekday goto-line mod calendar-week-start-day 7 -1 3 move-to-column calendar-interval displayed-month displayed-year 25 6] 8 (#$ . 7477)]) #@22 Move cursor to DATE. (defalias 'calendar-goto-date #[(date) "‰@)‰AA@)Ã!„)Ä\nÅUƒ% ÅUƒ%Æ‚&\n \"ˆ*Ç!‡" [date year month calendar-date-is-visible-p calendar-other-month 1 2 calendar-cursor-to-visible-date] 4 (#$ . 7872) (list (calendar-read-date))]) (provide (quote cal-move))