mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

(diary-sabbath-candles): Add optional MARK

Browse source 
parameter, specifying what face or character to use in the
calendar display.  These will now return (MARK . ENTRY).
This commit is contained in:
Richard M. Stallman 2002-07-22 15:30:24 +00:00
parent 3284b30118
commit 16cd607da7
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/calendar/solar.el
View file

@ -920,9 +920,12 @@ Accurate to a few seconds."
:type 'integer
:version "21.1")
(defun diary-sabbath-candles ()
(defun diary-sabbath-candles (&optional mark)
"Local time of candle lighting diary entry--applies if date is a Friday.
No diary entry if there is no sunset on that date."
No diary entry if there is no sunset on that date.
An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar."
(if (not (and calendar-latitude calendar-longitude calendar-time-zone))
(solar-setup))
(if (= (% (calendar-absolute-from-gregorian date) 7) 5);; Friday
@ -932,8 +935,9 @@ No diary entry if there is no sunset on that date."
(/ diary-sabbath-candles-minutes 60.0))
(cdr sunset)))))
(if sunset
(format "%s Sabbath candle lighting"
(apply 'solar-time-string light))))))
(cons mark
(format "%s Sabbath candle lighting"
(apply 'solar-time-string light)))))))
(defun solar-equinoxes/solstices (k year)
"Date of equinox/solstice K for YEAR.