Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
86e71410
Commit
86e71410
authored
Sep 04, 2014
by
Jay Belanger
Browse files
calc/calc-forms.el (math-normalize-hms): Do a better check for
"negative" hms forms.
parent
baee695a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
1 deletion
+9
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/calc/calc-forms.el
lisp/calc/calc-forms.el
+4
-1
No files found.
lisp/ChangeLog
View file @
86e71410
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
...
...
lisp/calc/calc-forms.el
View file @
86e71410
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment