# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189890318 0
# Node ID 96df62307dfc231776de5fee2864c721f8cefadf
# Parent  4968c5b03197dca134f90b199472a993260a9670
(mark-bahai-diary-entries): Fix up typo.
(calendar-bahai-print-date, calendar-bahai-goto-date)
(diary-bahai-list-entries, diary-bahai-insert-entry):
New names to clean up the namespace a bit more.
(calendar-goto-bahai-date, calendar-print-bahai-date): Compat aliases.

diff -r 4968c5b03197 -r 96df62307dfc lisp/calendar/cal-bahai.el
--- a/lisp/calendar/cal-bahai.el	Sat Sep 15 20:45:41 2007 +0000
+++ b/lisp/calendar/cal-bahai.el	Sat Sep 15 21:05:18 2007 +0000
@@ -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)