# Prevent uninterruptible infinite loop. This is the fix for

# 20270656 calc: sign change of hh.mm value puts Emacs into tight loop

# See components/emacs/README.

#

--- emacs-24.5.orig/lisp/calc/calc-forms.el 2015-04-02 01:23:06.000000000 -0600

+++ emacs-24.5/lisp/calc/calc-forms.el 2015-06-29 11:29:19.191046059 -0600

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