From 64d96023ac590312a5383816e5b64b1625f6e9a8 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Thu, 20 Jul 2006 20:24:40 +0000 Subject: [PATCH] (calc-selection-history): New variable. (calc-enter-selection, calc-sel-mult-both-sides, calc-sel-add-both-sides): Use calc-selection-history. --- lisp/calc/calc-sel.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el index bf18fa968c5..7f6dbb7f999 100644 --- a/lisp/calc/calc-sel.el +++ b/lisp/calc/calc-sel.el @@ -633,6 +633,9 @@ (setcar (nthcdr 2 entry) (and (not (eq sel (car entry))) sel)) (calc-delete-selection num)))) +(defvar calc-selection-history nil + "History for calc selections.") + (defun calc-enter-selection () (interactive) (calc-wrapper @@ -645,7 +648,8 @@ alg) (let ((calc-dollar-values (list sel)) (calc-dollar-used 0)) - (setq alg (calc-do-alg-entry "" "Replace selection with: ")) + (setq alg (calc-do-alg-entry "" "Replace selection with: " nil + 'calc-selection-history)) (and alg (progn (setq alg (calc-encase-atoms (car alg))) @@ -765,7 +769,8 @@ (car (calc-do-alg-entry "" (if divide "Divide both sides by: " - "Multiply both sides by: "))))) + "Multiply both sides by: ") + nil 'calc-selection-history)))) (and alg (progn (if (and (or (eq func '/) @@ -830,7 +835,8 @@ (car (calc-do-alg-entry "" (if subtract "Subtract from both sides: " - "Add to both sides: "))))) + "Add to both sides: ") + nil 'calc-selection-history)))) (and alg (progn (if (and (assq func calc-tweak-eqn-table) -- 2.39.2