Function: calculator-add-operators

calculator-add-operators is a byte-compiled function defined in calculator.el.gz.

Signature

(calculator-add-operators MORE-OPS)

Documentation

Handle operator addition.

Adds MORE-OPS to calculator-operator, called initially to handle calculator-initial-operators and calculator-user-operators.

Source Code

;; Defined in /usr/src/emacs/lisp/calculator.el.gz
(defun calculator-add-operators (more-ops)
  "Handle operator addition.
Adds MORE-OPS to `calculator-operator', called initially to handle
`calculator-initial-operators' and `calculator-user-operators'."
  (let ((added-ops nil))
    (dolist (op more-ops)
      (unless (eq (car op) 'nobind)
        (calculator-define-key (car op) 'calculator-op calculator-mode-map))
      (push (if (eq (car op) 'nobind) (cdr op) op)
            added-ops))
    ;; added-ops come first, but in correct order
    (setq calculator-operators
          (append (nreverse added-ops) calculator-operators))))