Show
Ignore:
Timestamp:
07/29/06 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-map.el

    r4037 r4131  
    499499 
    500500;;; Return a list of the form (nargs func name) 
     501(defvar calc-get-operator-history nil 
     502  "History for calc-get-operator.") 
     503 
    501504(defun calc-get-operator (msg &optional nargs) 
    502505  (setq calc-aborted-prefix nil) 
     
    584587                                   (calc-dollar-used 0) 
    585588                                   (calc-hashes-used 0) 
    586                                    (func (calc-do-alg-entry "" "Function: "))) 
     589                                   (func (calc-do-alg-entry "" "Function: " nil 
     590                                                      'calc-get-operator-history))) 
    587591                              (setq record-entry t) 
    588592                              (or (= (length func) 1)