(cal-sel-mult-both-sides): Add an option to expand the denominator.

2 files changed, 15 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8dbaebaf440..46413a868be 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-27  Jay Belanger  <jay.p.belanger@gmail.com>
+
+        * calc/calc-sel.el (cal-sel-mult-both-sides): Add an option to
+        expand the denominator.
+
 2009-01-26  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/dbus.el (dbus-event-error-hooks): New variable.
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el
index 179d1e1abfe..62debf5d1e2 100644
--- a/lisp/calc/calc-sel.el
+++ b/lisp/calc/calc-sel.el
@@ -752,11 +752,12 @@
                                      (list (and calc-sel-reselect val))))))
      (calc-handle-whys))))
 
-(defun calc-sel-mult-both-sides (no-simp &optional divide)
+(defun calc-sel-mult-both-sides (arg &optional divide)
   (interactive "P")
   (calc-wrapper
    (calc-preserve-point)
-   (let* ((num (max 1 (calc-locate-cursor-element (point))))
+   (let* ((no-simp (consp arg))
+          (num (max 1 (calc-locate-cursor-element (point))))
           (calc-sel-reselect calc-keep-selection)
           (entry (calc-top num 'entry))
           (expr (car entry))
@@ -794,10 +795,13 @@
                               rhs (math-simplify rhs))
                         (and (eq func '/)
                              (or (Math-equal (nth 1 sel) 1)
-                                 (Math-equal (nth 1 sel) -1)
-                                 (and (memq (car-safe (nth 2 sel)) '(+ -))
-                                      (memq (car-safe alg) '(+ -))))
-                             (setq rhs (math-expand-term rhs)))))
+                                 (Math-equal (nth 1 sel) -1))
+;                                (and (memq (car-safe (nth 2 sel)) '(+ -))
+;                                     (memq (car-safe alg) '(+ -))))
+                             (unless arg
+                               (setq rhs (math-expand-term rhs))))))
+                  (if (and arg (not no-simp))
+                      (setq rhs (calcFunc-expand rhs (unless (= arg 0) arg))))
                   (setq alg (calc-encase-atoms
                              (calc-normalize (list func lhs rhs)))))
               (setq rhs (list (if divide '* '/) sel alg))