Mercurial > emacs
changeset 92610:6f4bd17c2adc
(mark-islamic-calendar-date-pattern): Use zerop.
Comments.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 08 Mar 2008 04:23:19 +0000 |
parents | 733bd38ed2dd |
children | 297952467e34 |
files | lisp/calendar/cal-islam.el |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-islam.el Sat Mar 08 04:21:48 2008 +0000 +++ b/lisp/calendar/cal-islam.el Sat Mar 08 04:23:19 2008 +0000 @@ -1,7 +1,7 @@ ;;; cal-islam.el --- calendar functions for the Islamic 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: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Maintainer: Glenn Morris <rgm@gnu.org> @@ -402,8 +402,8 @@ 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 Islamic date. (let ((date (calendar-gregorian-from-absolute (calendar-absolute-from-islamic