Mercurial > emacs

comparison lisp/calendar/cal-iso.el @ 92609:733bd38ed2dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comments.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 04:21:48 +0000
parents 15aa69393e42
children e26350e23411
comparison
equal deleted inserted replaced
92608:18dc9ef91100 92609:733bd38ed2dd
1 ;;; cal-iso.el --- calendar functions for the ISO calendar 1 ;;; cal-iso.el --- calendar functions for the ISO calendar
2 2
3 ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 3 ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; Free Software Foundation, Inc. 4 ;; 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> 6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> 7 ;; Maintainer: Glenn Morris <rgm@gnu.org>
8 ;; Keywords: calendar 8 ;; Keywords: calendar
9 ;; Human-Keywords: ISO calendar, calendar, diary 9 ;; Human-Keywords: ISO calendar, calendar, diary
133 (calendar-absolute-from-iso date))) 133 (calendar-absolute-from-iso date)))
134 (or noecho (calendar-print-iso-date))) 134 (or noecho (calendar-print-iso-date)))
135 135
136 (defvar date) 136 (defvar date)
137 137
138 ;; To be called from list-sexp-diary-entries, where DATE is bound.
138 (defun diary-iso-date () 139 (defun diary-iso-date ()
139 "ISO calendar equivalent of date diary entry." 140 "ISO calendar equivalent of date diary entry."
140 (format "ISO date: %s" (calendar-iso-date-string date))) 141 (format "ISO date: %s" (calendar-iso-date-string date)))
141 142
142 (provide 'cal-iso) 143 (provide 'cal-iso)