mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

calc/calc-forms.el (math-normalize-hms): Do a better check for

Browse Source 
"negative" hms forms.
This commit is contained in:
Jay Belanger 2014-09-04 20:04:47 -05:00
parent baee695a8b
commit 86e714105d
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-09-05 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-forms.el (math-normalize-hms): Do a better check for
"negative" hms forms.
2014-09-04 Rasmus Pank Roulund <emacs@pank.eu>
* vc/vc-git.el (vc-git-conflicted-files): Fix bug when git status

5
lisp/calc/calc-forms.el
View File

@ -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)