[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: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v |
Date: |
Sat, 15 Sep 2007 21:05:18 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/09/15 21:05:18
Index: cal-bahai.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-bahai.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- cal-bahai.el 25 Aug 2007 14:03:30 -0000 1.20
+++ cal-bahai.el 15 Sep 2007 21:05:18 -0000 1.21
@@ -143,19 +143,19 @@
(year (int-to-string y)))
(mapconcat 'eval calendar-date-display-form ""))))
-(defun calendar-print-bahai-date ()
+(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))))
-(defun calendar-goto-bahai-date (date &optional noecho)
+(defun calendar-bahai-goto-date (date &optional noecho)
"Move cursor to Bahá'à date DATE.
Echo Bahá'à date unless NOECHO is t."
(interactive (calendar-bahai-prompt-for-date))
(calendar-goto-date (calendar-gregorian-from-absolute
(calendar-absolute-from-bahai date)))
- (or noecho (calendar-print-bahai-date)))
+ (or noecho (calendar-bahai-print-date)))
(defun calendar-bahai-prompt-for-date ()
"Ask for a Bahá'à date."
@@ -204,7 +204,7 @@
(if (calendar-date-is-visible-p date)
(list (list date string))))))))
-(defun diary-list-bahai-entries ()
+(defun diary-bahai-list-entries ()
"Add any Bahá'à date entries from the diary file to `diary-entries-list'.
Bahá'à date diary entries must be prefaced by an
`bahai-diary-entry-symbol' (normally a `B'). The same diary date
@@ -458,7 +458,7 @@
(mark-visible-calendar-date
(calendar-gregorian-from-absolute date)))))))))
-(defun diary-insert-bahai-entry (arg)
+(defun diary-bahai-insert-entry (arg)
"Insert a diary entry.
For the Bahá'à date corresponding to the date indicated by point.
Prefix arg will make the entry nonmarking."
@@ -512,17 +512,21 @@
;; Backward compatibility.
(define-obsolete-function-alias
- 'list-bahai-diary-entries 'diary-list-bahai-entries "23.1")
+ 'list-bahai-diary-entries 'diary-bahai-list-entries "23.1")
(define-obsolete-function-alias
- 'mark-bahai-diary-entries 'diary-mark-bahai-entries "23.1")
+ 'mark-bahai-diary-entries 'diary-bahai-mark-entries "23.1")
(define-obsolete-function-alias
- 'insert-bahai-diary-entry 'diary-insert-bahai-entry "23.1")
+ 'insert-bahai-diary-entry 'diary-bahai-insert-entry "23.1")
(define-obsolete-function-alias
'insert-monthly-bahai-diary-entry 'diary-insert-bahai-monthly-entry "23.1")
(define-obsolete-function-alias
'insert-yearly-bahai-diary-entry 'diary-insert-bahai-yearly-entry "23.1")
(define-obsolete-function-alias
'mark-bahai-calendar-date-pattern 'calendar-bahai-mark-date-pattern "23.1")
+(define-obsolete-function-alias
+ 'calendar-goto-bahai-date 'calendar-bahai-goto-date "23.1")
+(define-obsolete-function-alias
+ 'calendar-print-bahai-date 'calendar-bahai-print-date "23.1")
(provide 'cal-bahai)
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v,
Stefan Monnier <=