From: Jay Belanger Date: Tue, 27 Jan 2009 01:21:54 +0000 (+0000) Subject: (cal-sel-mult-both-sides): Add an option to expand the denominator. X-Git-Tag: emacs-pretest-23.0.90~185 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d22546d532f21703cce908a40c66929511ecde8a;p=emacs.git (cal-sel-mult-both-sides): Add an option to expand the denominator. --- 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 + + * calc/calc-sel.el (cal-sel-mult-both-sides): Add an option to + expand the denominator. + 2009-01-26 Michael Albinus * 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))