Commit 8c34d83e authored by Glenn Morris's avatar Glenn Morris
Browse files

Comment.

parent 4dedde3c
...@@ -2,22 +2,20 @@ ...@@ -2,22 +2,20 @@
   
* dired-aux.el (dired-overwrite-confirmed): Revert last change. * dired-aux.el (dired-overwrite-confirmed): Revert last change.
   
* dired.el (dired-dnd-handle-local-file): Obey * dired.el (dired-dnd-handle-local-file): Obey dired-backup-overwrite.
dired-backup-overwrite.
   
2008-04-06 Michael Kifer <kifer@cs.stonybrook.edu> 2008-04-06 Michael Kifer <kifer@cs.stonybrook.edu>
   
* viper*.el (viper-search-wrap-around-t): replace with * viper*.el (viper-search-wrap-around-t): Replace with
viper-search-wrap-around. viper-search-wrap-around.
   
* ediff*.el: replace 3-argument 'require' statements with 1-argument * ediff*.el: Replace 3-argument 'require' statements with 1-argument
ones (wrapped in if's). For compatibility with the current stable ones (wrapped in if's). For compatibility with the current stable
version of XEmacs. version of XEmacs.
   
2008-04-06 Dan Nicolaescu <dann@ics.uci.edu> 2008-04-06 Dan Nicolaescu <dann@ics.uci.edu>
   
* vc.el (vc-status-prepare-status-buffer): * vc.el (vc-status-prepare-status-buffer): Reset vc-parent-buffer-name.
Reset vc-parent-buffer-name.
   
2008-04-06 Jason Rumney <jasonr@gnu.org> 2008-04-06 Jason Rumney <jasonr@gnu.org>
   
...@@ -229,7 +227,7 @@ ...@@ -229,7 +227,7 @@
(calendar-chinese-goto-date): Rename calendar-goto-chinese-date. (calendar-chinese-goto-date): Rename calendar-goto-chinese-date.
Keep old name as alias, update callers. Keep old name as alias, update callers.
   
* cal-hebrew.el (calendar-hebrew-leap-year-p): * calendar/cal-hebrew.el (calendar-hebrew-leap-year-p):
Rename hebrew-calendar-leap-year-p. Update callers. Rename hebrew-calendar-leap-year-p. Update callers.
(calendar-hebrew-last-month-of-year): (calendar-hebrew-last-month-of-year):
Rename hebrew-calendar-last-month-of-year. Update callers. Rename hebrew-calendar-last-month-of-year. Update callers.
...@@ -314,7 +312,7 @@ ...@@ -314,7 +312,7 @@
   
* calendar/cal-menu.el, calendar/calendar.el: * calendar/cal-menu.el, calendar/calendar.el:
Update for chinese and hebrew name changes. Update for chinese and hebrew name changes.
* diary-lib.el: Update for hebrew name changes. * calendar/diary-lib.el: Update for hebrew name changes.
   
2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca> 2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
   
......
...@@ -601,7 +601,7 @@ Echo Chinese date unless NOECHO is non-nil." ...@@ -601,7 +601,7 @@ Echo Chinese date unless NOECHO is non-nil."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-chinese-date () (defun diary-chinese-date ()
"Chinese calendar equivalent of date diary entry." "Chinese calendar equivalent of date diary entry."
......
...@@ -183,7 +183,7 @@ Echo Coptic date unless NOECHO is t." ...@@ -183,7 +183,7 @@ Echo Coptic date unless NOECHO is t."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-coptic-date () (defun diary-coptic-date ()
"Coptic calendar equivalent of date diary entry." "Coptic calendar equivalent of date diary entry."
...@@ -259,7 +259,7 @@ Echo Ethiopic date unless NOECHO is t." ...@@ -259,7 +259,7 @@ Echo Ethiopic date unless NOECHO is t."
(define-obsolete-function-alias 'calendar-goto-ethiopic-date (define-obsolete-function-alias 'calendar-goto-ethiopic-date
'calendar-ethiopic-goto-date "23.1") 'calendar-ethiopic-goto-date "23.1")
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-ethiopic-date () (defun diary-ethiopic-date ()
"Ethiopic calendar equivalent of date diary entry." "Ethiopic calendar equivalent of date diary entry."
......
...@@ -255,7 +255,7 @@ Echo French Revolutionary date unless NOECHO is non-nil." ...@@ -255,7 +255,7 @@ Echo French Revolutionary date unless NOECHO is non-nil."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-french-date () (defun diary-french-date ()
"French calendar equivalent of date diary entry." "French calendar equivalent of date diary entry."
......
...@@ -147,7 +147,7 @@ Interactively, goes to the first day of the specified week." ...@@ -147,7 +147,7 @@ Interactively, goes to the first day of the specified week."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-iso-date () (defun diary-iso-date ()
"ISO calendar equivalent of date diary entry." "ISO calendar equivalent of date diary entry."
......
...@@ -204,13 +204,13 @@ Echo astronomical (Julian) day number unless NOECHO is non-nil." ...@@ -204,13 +204,13 @@ Echo astronomical (Julian) day number unless NOECHO is non-nil."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-julian-date () (defun diary-julian-date ()
"Julian calendar equivalent of date diary entry." "Julian calendar equivalent of date diary entry."
(format "Julian date: %s" (calendar-julian-date-string date))) (format "Julian date: %s" (calendar-julian-date-string date)))
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-astro-day-number () (defun diary-astro-day-number ()
"Astronomical (Julian) day number diary entry." "Astronomical (Julian) day number diary entry."
......
...@@ -383,7 +383,7 @@ Echo Mayan date unless NOECHO is non-nil." ...@@ -383,7 +383,7 @@ Echo Mayan date unless NOECHO is non-nil."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-mayan-date () (defun diary-mayan-date ()
"Show the Mayan long count, haab, and tzolkin dates as a diary entry." "Show the Mayan long count, haab, and tzolkin dates as a diary entry."
......
...@@ -211,7 +211,7 @@ Echo Persian date unless NOECHO is non-nil." ...@@ -211,7 +211,7 @@ Echo Persian date unless NOECHO is non-nil."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-persian-date () (defun diary-persian-date ()
"Persian calendar equivalent of date diary entry." "Persian calendar equivalent of date diary entry."
......
...@@ -211,6 +211,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, ...@@ -211,6 +211,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
(lunar-phase-list m1 y1) "\n"))) (lunar-phase-list m1 y1) "\n")))
(message "Computing phases of the moon...done"))) (message "Computing phases of the moon...done")))
;; FIXME ?
;;;###autoload ;;;###autoload
(defun phases-of-moon (&optional arg) (defun phases-of-moon (&optional arg)
"Display the quarters of the moon for last month, this month, and next month. "Display the quarters of the moon for last month, this month, and next month.
...@@ -226,7 +227,7 @@ This function is suitable for execution in a .emacs file." ...@@ -226,7 +227,7 @@ This function is suitable for execution in a .emacs file."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-phases-of-moon (&optional mark) (defun diary-phases-of-moon (&optional mark)
......
...@@ -781,6 +781,7 @@ and `calendar-time-zone' are used to interpret local time." ...@@ -781,6 +781,7 @@ and `calendar-time-zone' are used to interpret local time."
end-long long))) end-long long)))
(/ (+ start end) 2.0))) (/ (+ start end) 2.0)))
;; FIXME but there already is solar-sunrise-sunset.
;;;###autoload ;;;###autoload
(defun sunrise-sunset (&optional arg) (defun sunrise-sunset (&optional arg)
"Local time of sunrise and sunset for today. Accurate to a few seconds. "Local time of sunrise and sunset for today. Accurate to a few seconds.
...@@ -867,7 +868,7 @@ Accurate to a few seconds." ...@@ -867,7 +868,7 @@ Accurate to a few seconds."
(defvar date) (defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound. ;; To be called from diary-list-sexp-entries, where DATE is bound.
;;;###diary-autoload ;;;###diary-autoload
(defun diary-sunrise-sunset () (defun diary-sunrise-sunset ()
"Local time of sunrise and sunset as a diary entry. "Local time of sunrise and sunset as a diary entry.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment