diff options
| -rw-r--r-- | lisp/calendar/cal-islam.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index b05f44868a8..6a2738f39f7 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; cal-islam.el --- calendar functions for the Islamic calendar | 1 | ;;; cal-islam.el --- calendar functions for the Islamic 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: Edward M. Reingold <reingold@cs.uiuc.edu> | 6 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
| 7 | ;; Maintainer: Glenn Morris <rgm@gnu.org> | 7 | ;; Maintainer: Glenn Morris <rgm@gnu.org> |
| @@ -402,8 +402,8 @@ provided for use as part of the nongregorian-diary-marking-hook." | |||
| 402 | A value of 0 in any position is a wildcard." | 402 | A value of 0 in any position is a wildcard." |
| 403 | (save-excursion | 403 | (save-excursion |
| 404 | (set-buffer calendar-buffer) | 404 | (set-buffer calendar-buffer) |
| 405 | (if (and (/= 0 month) (/= 0 day)) | 405 | (if (and (not (zerop month)) (not (zerop day))) |
| 406 | (if (/= 0 year) | 406 | (if (not (zerop year)) |
| 407 | ;; Fully specified Islamic date. | 407 | ;; Fully specified Islamic date. |
| 408 | (let ((date (calendar-gregorian-from-absolute | 408 | (let ((date (calendar-gregorian-from-absolute |
| 409 | (calendar-absolute-from-islamic | 409 | (calendar-absolute-from-islamic |