branch: externals/compat
commit 31e07734757b039a52e9fe01000f70a7d8027e62
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>

    Do not pass more than two argument to <= in date-days-in-month
---
 compat-27.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compat-27.el b/compat-27.el
index 43abe687e7..eb2b22b9c5 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -589,7 +589,9 @@ The return value is a string (or nil in case we can’t find 
it)."
 (compat-defun date-days-in-month (year month)
   "The number of days in MONTH in YEAR."
   :feature 'time-date
-  (unless (and (numberp month) (<= 1 month 12))
+  (unless (and (numberp month)
+               (<= 1 month)
+               (<= month 12))
     (error "Month %s is invalid" month))
   (if (= month 2)
       (if (date-leap-year-p year)

Reply via email to