Show
Ignore:
Timestamp:
2006年07月29日 07時48分34秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/calc/calc-sel.el

    r4037 r4131  
    634634     (calc-delete-selection num)))) 
    635635 
     636(defvar calc-selection-history nil 
     637  "History for calc selections.") 
     638 
    636639(defun calc-enter-selection () 
    637640  (interactive) 
    …… 
    646649     (let ((calc-dollar-values (list sel)) 
    647650           (calc-dollar-used 0)) 
    648        (setq alg (calc-do-alg-entry "" "Replace selection with: ")) 
     651       (setq alg (calc-do-alg-entry "" "Replace selection with: " nil  
     652                                    'calc-selection-history)) 
    649653       (and alg 
    650654            (progn 
    …… 
    766770                                        (if divide 
    767771                                            "Divide both sides by: " 
    768                                           "Multiply both sides by: "))))) 
     772                                          "Multiply both sides by: ") 
     773                                        nil 'calc-selection-history)))) 
    769774     (and alg 
    770775          (progn 
    …… 
    831836                                        (if subtract 
    832837                                            "Subtract from both sides: " 
    833                                           "Add to both sides: "))))) 
     838                                          "Add to both sides: ") 
     839                                        nil 'calc-selection-history)))) 
    834840     (and alg 
    835841          (progn