mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Comment.

Browse Source
This commit is contained in:
Glenn Morris 2008-04-06 20:49:40 +00:00
parent 4dedde3c4c
commit 8c34d83efa
10 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ChangeLog
View File

@ -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 @@
(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 @@
* 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>

2
lisp/calendar/cal-china.el
View File

@ -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."

4
lisp/calendar/cal-coptic.el
View File

@ -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."
(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."

2
lisp/calendar/cal-french.el
View File

@ -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."

2
lisp/calendar/cal-iso.el
View File

@ -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."

4
lisp/calendar/cal-julian.el
View File

@ -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."

2
lisp/calendar/cal-mayan.el
View File

@ -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."

2
lisp/calendar/cal-persia.el
View File

@ -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."

3
lisp/calendar/lunar.el
View File

@ -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."
(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)

3
lisp/calendar/solar.el
View File

@ -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."
(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.