[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v |
Date: |
Sat, 08 Mar 2008 03:39:09 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/08 03:39:08
Index: cal-bahai.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-bahai.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- cal-bahai.el 8 Jan 2008 20:44:03 -0000 1.24
+++ cal-bahai.el 8 Mar 2008 03:39:08 -0000 1.25
@@ -1,4 +1,4 @@
-;;; cal-bahai.el --- calendar functions for the Bahá'à calendar. -*- coding:
utf-8 -*-
+;;; cal-bahai.el --- calendar functions for the Bahá'à calendar.
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;; Free Software Foundation, Inc.
@@ -118,6 +118,7 @@
(1- (calendar-absolute-from-bahai (list month 1 year))))))
(list month day year))))
+;;;###autoload
(defun calendar-bahai-date-string (&optional date)
"String of Bahá'à date of Gregorian DATE.
Defaults to today's date if DATE is not given."
@@ -143,12 +144,14 @@
(year (int-to-string y)))
(mapconcat 'eval calendar-date-display-form ""))))
+;;;###autoload
(defun calendar-bahai-print-date ()
"Show the Bahá'à calendar equivalent of the selected date."
(interactive)
(message "Bahá'à date: %s"
(calendar-bahai-date-string (calendar-cursor-to-date t))))
+;;;###autoload
(defun calendar-bahai-goto-date (date &optional noecho)
"Move cursor to Bahá'à date DATE.
Echo Bahá'à date unless NOECHO is t."
@@ -162,7 +165,7 @@
(let* ((today (calendar-current-date))
(year (calendar-read
"Bahá'à calendar year (not 0): "
- '(lambda (x) (/= x 0))
+ (lambda (x) (/= x 0))
(int-to-string
(extract-calendar-year
(calendar-bahai-from-absolute
@@ -177,7 +180,7 @@
(calendar-make-alist calendar-bahai-month-name-array
1))))
(day (calendar-read "Bahá'à calendar day (1-19): "
- '(lambda (x) (and (< 0 x) (<= x 19))))))
+ (lambda (x) (and (< 0 x) (<= x 19))))))
(list (list month day year))))
(defun diary-bahai-date ()
@@ -396,7 +399,7 @@
(calendar-make-alist
calendar-day-name-array
0
- '(lambda (x) (substring x 0 3)))
+ (lambda (x) (substring x 0 3)))
t)))
(if mm-name
(if (string-equal mm-name "*")
@@ -468,6 +471,7 @@
(mark-visible-calendar-date
(calendar-gregorian-from-absolute date)))))))))
+;;;###autoload
(defun diary-bahai-insert-entry (arg)
"Insert a diary entry.
For the Bahá'à date corresponding to the date indicated by point.
@@ -484,6 +488,7 @@
nil t))
arg)))
+;;;###autoload
(defun diary-bahai-insert-monthly-entry (arg)
"Insert a monthly diary entry.
For the day of the Bahá'à month corresponding to the date indicated by point.
@@ -501,6 +506,7 @@
(calendar-cursor-to-date t)))))
arg)))
+;;;###autoload
(defun diary-bahai-insert-yearly-entry (arg)
"Insert an annual diary entry.
For the day of the Bahá'à year corresponding to the date indicated by point.
@@ -540,5 +546,10 @@
(provide 'cal-bahai)
+;; Local Variables:
+;; coding: utf-8
+;; generated-autoload-file: "cal-loaddefs.el"
+;; End:
+
;; arch-tag: c1cb1d67-862a-4264-a01c-41cb4df01f14
;;; cal-bahai.el ends here
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/14
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/15
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v, Glenn Morris, 2008/03/20