[Emacs-diffs] emacs/lisp/calendar diary-lib.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/04/02 06:33:19

Modified files:
        lisp/calendar  : diary-lib.el 

Log message:
        (diary-cyclic): Check for +ve N.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/diary-lib.el?cvsroot=emacs&r1=1.182&r2=1.183

Patches:
Index: diary-lib.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/diary-lib.el,v
retrieving revision 1.182
retrieving revision 1.183
diff -u -b -r1.182 -r1.183
--- diary-lib.el        8 Feb 2009 01:52:29 -0000       1.182
+++ diary-lib.el        2 Apr 2009 06:33:18 -0000       1.183
@@ -1912,6 +1912,8 @@
 
 An optional parameter MARK specifies a face or single-character
 string to use when highlighting the day in the calendar."
+  (or (> n 0)
+      (error "Day count must be positive"))
   (let* ((diff (- (calendar-absolute-from-gregorian date)
                   (calendar-absolute-from-gregorian
                    (diary-make-date month day year))))