# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027351824 0
# Node ID b15eab0c85c1693302f72c4f5f6382ec97227310
# Parent  676039ef9a4e3df89115c85bf254d250a0174427
(diary-sabbath-candles): Add optional MARK
parameter, specifying what face or character to use in the
calendar display.  These will now return (MARK . ENTRY).

diff -r 676039ef9a4e -r b15eab0c85c1 lisp/calendar/solar.el
--- a/lisp/calendar/solar.el	Mon Jul 22 15:22:49 2002 +0000
+++ b/lisp/calendar/solar.el	Mon Jul 22 15:30:24 2002 +0000
@@ -920,9 +920,12 @@
   :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 @@
                                  (/ 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.