mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jay Belanger 2009-01-27 01:21:54 +00:00
parent 1b2d606c19
commit d22546d532
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

16
lisp/calc/calc-sel.el
View File

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