From 0d1bb2ffb80848b8658f720c54e6d02219936557 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 8 Mar 2008 04:24:24 +0000 Subject: [PATCH] (mark-hebrew-calendar-date-pattern): Use zerop. --- lisp/calendar/cal-hebrew.el | 8 ++++---- 1 file 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 @@ ;;; cal-hebrew.el --- calendar functions for the Hebrew calendar -;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: Nachum Dershowitz ;; Edward M. Reingold @@ -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." (save-excursion (set-buffer calendar-buffer) - (if (and (/= 0 month) (/= 0 day)) - (if (/= 0 year) + (if (and (not (zerop month)) (not (zerop day))) + (if (not (zerop year)) ;; Fully specified Hebrew date. (let ((date (calendar-gregorian-from-absolute (calendar-absolute-from-hebrew -- 2.39.5