/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.149 by gm, Wed Aug 6 10:10:12 2003 UTC revision 1.150 by gm, Sun Aug 17 22:51:29 2003 UTC
# Line 1406  The Gregorian date Sunday, December 31, Line 1406  The Gregorian date Sunday, December 31,
1406    "Move cursor to DATE."    "Move cursor to DATE."
1407    t)    t)
1408    
1409    (autoload 'calendar-goto-day-of-year "cal-move"
1410      "Move cursor to day of year."
1411      t)
1412    
1413  (autoload 'calendar-only-one-frame-setup "cal-x"  (autoload 'calendar-only-one-frame-setup "cal-x"
1414   "Start calendar and display it in a dedicated frame.")   "Start calendar and display it in a dedicated frame.")
1415    
# Line 2016  the inserted text.  Value is always t." Line 2020  the inserted text.  Value is always t."
2020    (define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark)    (define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark)
2021    (define-key calendar-mode-map "\e=" 'calendar-count-days-region)    (define-key calendar-mode-map "\e=" 'calendar-count-days-region)
2022    (define-key calendar-mode-map "gd"  'calendar-goto-date)    (define-key calendar-mode-map "gd"  'calendar-goto-date)
2023      (define-key calendar-mode-map "gD"  'calendar-goto-day-of-year)
2024    (define-key calendar-mode-map "gj"  'calendar-goto-julian-date)    (define-key calendar-mode-map "gj"  'calendar-goto-julian-date)
2025    (define-key calendar-mode-map "ga"  'calendar-goto-astro-day-number)    (define-key calendar-mode-map "ga"  'calendar-goto-astro-day-number)
2026    (define-key calendar-mode-map "gh"  'calendar-goto-hebrew-date)    (define-key calendar-mode-map "gh"  'calendar-goto-hebrew-date)
# Line 2622  If FILTER is provided, apply it to each Line 2627  If FILTER is provided, apply it to each
2627          (aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence          (aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence
2628                                                        'period)))                                                        'period)))
2629          alist elem)          alist elem)
2630      (dotimes (i (1- (length sequence)) (reverse alist))      (dotimes (i (length sequence) (reverse alist))
2631        (setq index (+ i offset)        (setq index (+ i offset)
2632              elem (elt sequence i)              elem (elt sequence i)
2633              alist              alist

Legend:
Removed from v.1.149  
changed lines
  Added in v.1.150

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26