Commit 0d1bb2ff authored by Glenn Morris's avatar Glenn Morris

(mark-hebrew-calendar-date-pattern): Use zerop.

parent d18d0261
;;; cal-hebrew.el --- calendar functions for the Hebrew calendar ;;; cal-hebrew.el --- calendar functions for the Hebrew calendar
;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
;; Free Software Foundation, Inc. ;; 2008 Free Software Foundation, Inc.
;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu> ;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu>
;; Edward M. Reingold <reingold@cs.uiuc.edu> ;; 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,8 +599,8 @@ not be marked in the calendar. This function is provided for use with the
A value of 0 in any position is a wildcard." A value of 0 in any position is a wildcard."
(save-excursion (save-excursion
(set-buffer calendar-buffer) (set-buffer calendar-buffer)
(if (and (/= 0 month) (/= 0 day)) (if (and (not (zerop month)) (not (zerop day)))
(if (/= 0 year) (if (not (zerop year))
;; Fully specified Hebrew date. ;; Fully specified Hebrew date.
(let ((date (calendar-gregorian-from-absolute (let ((date (calendar-gregorian-from-absolute
(calendar-absolute-from-hebrew (calendar-absolute-from-hebrew
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment