[Emacs-diffs] trunk r117821: calc/calc-forms.el (math-normalize-hms): Do a better check for

[Jay Belanger]

------------------------------------------------------------
revno: 117821
revision-id: address@hidden
parent: address@hidden
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Thu 2014-09-04 20:04:47 -0500
message:
  calc/calc-forms.el (math-normalize-hms): Do a better check for
  "negative" hms forms.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/calc/calc-forms.el        
calcforms.el-20091113204419-o5vbwnq5f7feedwu-2278

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-09-04 16:34:45 +0000
+++ b/lisp/ChangeLog    2014-09-05 01:04:47 +0000
@@ -1,3 +1,8 @@
+2014-09-05  Jay Belanger  <address@hidden>
+
+       * calc/calc-forms.el (math-normalize-hms): Do a better check for
+       "negative" hms forms.
+
 2014-09-04  Rasmus Pank Roulund  <address@hidden>
 
        * vc/vc-git.el (vc-git-conflicted-files): Fix bug when git status

=== modified file 'lisp/calc/calc-forms.el'
--- a/lisp/calc/calc-forms.el   2014-01-01 07:43:34 +0000
+++ b/lisp/calc/calc-forms.el   2014-09-05 01:04:47 +0000
@@ -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)