;;; metar.el --- Retrieve and decode METAR weather information
-;; Copyright (C) 2007, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2014-2016 Free Software Foundation, Inc.
;; Author: Mario Lang <mlang@delysid.org>
-;; Version: 0.1
+;; Version: 0.2
;; Package-Requires: ((cl-lib "0.5"))
;; Keywords: comm
(unless (symbolp new-unit)
(setq new-unit (intern new-unit)))
(let ((expr (math-simplify (math-read-expr value))))
+ ;; Sneakily work around bug#19582.
+ (when (eq (car-safe expr) 'neg)
+ (setq expr `(* -1 ,(cadr expr))))
(cl-assert (or (math-zerop expr)
(not (memq (math-single-units-in-expr-p expr) '(nil wrong))))
nil