diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2019-10-14 23:52:21 +0200 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2019-10-14 23:53:16 +0200 |
commit | d4cfe67e8ae4392fc1f01879f6d3a9a8b6947ac1 (patch) | |
tree | 55acfca7542deae88ac291b238fef293fc59b619 /lisp/calendar | |
parent | cb29a3816489a9bb5472bb3dfe4b64687419cb2e (diff) | |
download | emacs-d4cfe67e8ae4392fc1f01879f6d3a9a8b6947ac1.tar.gz |
lisp/*.el: Force non-nil result to t, to match docstring
* lisp/ido.el (ido-ignore-item-p):
* lisp/simple.el (use-region-p):
* lisp/whitespace.el (whitespace-style-face-p)
(whitespace-style-mark-p):
* lisp/calendar/cal-islam.el (calendar-islamic-leap-year-p):
* lisp/mail/rmail.el (rmail-is-text-p):
* lisp/mh-e/mh-alias.el (mh-alias-for-from-p):
* lisp/net/imap.el (imap-message-flag-permanent-p):
* lisp/progmodes/tcl.el (tcl-real-comment-p):
* lisp/textmodes/table.el (table--point-in-cell-p):
Normalize boolean result.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/cal-islam.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index 81ac4d0332b..c31e3c480ac 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el @@ -45,8 +45,9 @@ (defun calendar-islamic-leap-year-p (year) "Return t if YEAR is a leap year on the Islamic calendar." - (memq (% year 30) - (list 2 5 7 10 13 16 18 21 24 26 29))) + (and (memq (% year 30) + (list 2 5 7 10 13 16 18 21 24 26 29)) + t)) (defun calendar-islamic-last-day-of-month (month year) "The last day in MONTH during YEAR on the Islamic calendar." |