From 86e714105d760ce1bcc03cd4338b9839e0bfccb9 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 4 Sep 2014 20:04:47 -0500 Subject: [PATCH] calc/calc-forms.el (math-normalize-hms): Do a better check for "negative" hms forms. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-forms.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2912deb23e..dc0c06709d5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-09-05 Jay Belanger + + * calc/calc-forms.el (math-normalize-hms): Do a better check for + "negative" hms forms. + 2014-09-04 Rasmus Pank Roulund * vc/vc-git.el (vc-git-conflicted-files): Fix bug when git status diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index dbde4cd0c41..a48075cce91 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -273,7 +273,10 @@ (m (math-normalize (nth 2 a))) (s (let ((calc-internal-prec (max (- calc-internal-prec 4) 3))) (math-normalize (nth 3 a))))) - (if (math-negp h) + (if (or + (math-negp h) + (and (= h 0) (math-negp m)) + (and (= h 0) (= m 0) (math-negp s))) (progn (if (math-posp s) (setq s (math-add s -60) -- 2.39.5