diff options
| author | Glenn Morris | 2008-03-08 04:24:24 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-08 04:24:24 +0000 |
| commit | 0d1bb2ffb80848b8658f720c54e6d02219936557 (patch) | |
| tree | 07bfd0c6ae1bd5e970769c21e578f8b6a89137e1 | |
| parent | d18d026192514813ccd99961cd5e1e48fbe416da (diff) | |
| download | emacs-0d1bb2ffb80848b8658f720c54e6d02219936557.tar.gz emacs-0d1bb2ffb80848b8658f720c54e6d02219936557.zip | |
(mark-hebrew-calendar-date-pattern): Use zerop.
| -rw-r--r-- | lisp/calendar/cal-hebrew.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el index 33e451bc1ed..d9b1be4ceef 100644 --- a/lisp/calendar/cal-hebrew.el +++ b/lisp/calendar/cal-hebrew.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; cal-hebrew.el --- calendar functions for the Hebrew calendar | 1 | ;;; cal-hebrew.el --- calendar functions for the Hebrew calendar |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 | 3 | ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2008 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu> | 6 | ;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu> |
| 7 | ;; Edward M. Reingold <reingold@cs.uiuc.edu> | 7 | ;; Edward M. Reingold <reingold@cs.uiuc.edu> |
| @@ -599,8 +599,8 @@ not be marked in the calendar. This function is provided for use with the | |||
| 599 | A value of 0 in any position is a wildcard." | 599 | A value of 0 in any position is a wildcard." |
| 600 | (save-excursion | 600 | (save-excursion |
| 601 | (set-buffer calendar-buffer) | 601 | (set-buffer calendar-buffer) |
| 602 | (if (and (/= 0 month) (/= 0 day)) | 602 | (if (and (not (zerop month)) (not (zerop day))) |
| 603 | (if (/= 0 year) | 603 | (if (not (zerop year)) |
| 604 | ;; Fully specified Hebrew date. | 604 | ;; Fully specified Hebrew date. |
| 605 | (let ((date (calendar-gregorian-from-absolute | 605 | (let ((date (calendar-gregorian-from-absolute |
| 606 | (calendar-absolute-from-hebrew | 606 | (calendar-absolute-from-hebrew |