comparison lisp/calculator.el @ 110533:b799d38f522a

Merge changes from emacs-23 branch

110506:2cac83f5f8bc

(defvar calculator-last-opXY nil
  "The last binary operation and its arguments.
Used for repeating operations in calculator-repR/L.")

(defvar calculator-registers ; use user-bindings first
  (append calculator-user-registers (list (cons ?e e) (cons ?p pi)))
  "The association list of calculator register values.")

(defvar calculator-saved-global-map nil
  "Saved global key map.")

          (fset 'F (function
                    (lambda (&optional x y)
                      (calculator-funcall __f__ x y))))
          (fset 'D (function
                    (lambda (x)
                      (if calculator-deg (/ (* x 180) pi) x))))
          (unwind-protect (eval f)
            (if Fbound (fset 'F Fsave) (fmakunbound 'F))
            (if Dbound (fset 'D Dsave) (fmakunbound 'D)))))
    (error 0)))

110533:b799d38f522a

(defvar calculator-last-opXY nil
  "The last binary operation and its arguments.
Used for repeating operations in calculator-repR/L.")

(defvar calculator-registers ; use user-bindings first
  (append calculator-user-registers
          (list (cons ?e float-e) (cons ?p float-pi)))
  "The association list of calculator register values.")

(defvar calculator-saved-global-map nil
  "Saved global key map.")

          (fset 'F (function
                    (lambda (&optional x y)
                      (calculator-funcall __f__ x y))))
          (fset 'D (function
                    (lambda (x)
                      (if calculator-deg (/ (* x 180) float-pi) x))))
          (unwind-protect (eval f)
            (if Fbound (fset 'F Fsave) (fmakunbound 'F))
            (if Dbound (fset 'D Dsave) (fmakunbound 'D)))))
    (error 0)))