diff options
Diffstat (limited to 'lisp/calc/calc-alg.el')
| -rw-r--r-- | lisp/calc/calc-alg.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el index 9db901a9753..e64308bad67 100644 --- a/lisp/calc/calc-alg.el +++ b/lisp/calc/calc-alg.el @@ -17,7 +17,7 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: @@ -544,7 +544,7 @@ (if (and (eq (car-safe nn) 'frac) (eq (nth 1 nn) 1) (not n)) (unless (and (eq (car-safe math-simplify-expr) 'calcFunc-eq) (eq (car-safe (nth 1 math-simplify-expr)) 'var) - (not (math-expr-contains (nth 2 math-simplify-expr) + (not (math-expr-contains (nth 2 math-simplify-expr) (nth 1 math-simplify-expr)))) (setcar (cdr math-simplify-expr) (math-mul (nth 2 nn) (nth 1 math-simplify-expr))) |