Mercurial > emacs

changeset 72040:327ca65acc1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-selection-history): New variable. (calc-enter-selection, calc-sel-mult-both-sides, calc-sel-add-both-sides): Use calc-selection-history.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 20 Jul 2006 20:24:40 +0000
parents 51e3097b320a
children 75c90936631e
files lisp/calc/calc-sel.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-sel.el	Thu Jul 20 20:23:58 2006 +0000
+++ b/lisp/calc/calc-sel.el	Thu Jul 20 20:24:40 2006 +0000
@@ -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)