Mercurial > emacs

changeset 46617:b15eab0c85c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(diary-sabbath-candles): Add optional MARK parameter, specifying what face or character to use in the calendar display. These will now return (MARK . ENTRY).
author Richard M. Stallman <rms@gnu.org>
date Mon, 22 Jul 2002 15:30:24 +0000
parents 676039ef9a4e
children 6edefbc65dc4
files lisp/calendar/solar.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.