Lines Matching +defs:list +defs:part
11 ;; This file is part of GNU Emacs.
150 ;; Could you add logistic curve fitting to the current list?
156 ;; Here is the current list for curve fitting;
278 :value-type (list (regexp :tag "Opening formula delimiter")
298 :value-type (list (regexp :tag "Opening word delimiter")
331 :value-type (list (string :tag "Opening \"plain\" delimiter")
351 :value-type (list (string :tag "Opening new formula delimiter")
383 :value-type (list (string :tag "Opening annotation delimiter")
437 (defvar calc-mode-var-list '()
443 (add-to-list 'calc-mode-var-list (list (quote ,var) ,defval))))
445 (defun calc-mode-var-list-restore-default-values ()
447 calc-mode-var-list))
449 (defun calc-mode-var-list-restore-saved-values ()
464 (calc-mode-var-list-restore-default-values)
466 (let ((varlist calc-mode-var-list))
470 (cons (list (car var) (symbol-value (car var)))
476 (calc-mode-var-list-restore-default-values))))
532 Must be a list of one of the following forms:
585 "A list of code-letter symbols that control \"big\" matrix display.
731 (defconst calc-local-var-list '(calc-stack
733 calc-undo-list
734 calc-redo-list
842 (list
865 (defvar calc-undo-list nil) ; List of previous operations for undo.
866 (defvar calc-redo-list nil) ; List of recent undo operations.
922 calc-local-var-list)
998 (list 'meta (aref x 0))))
1067 math-find-user-tokens math-read-expr-list math-read-exprs math-read-if
1074 calc-record-list calc-record-why calc-report-bug calc-roll-down-stack
1123 (format "%s (Type ? for a list of Calc options)"
1189 (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list)
1193 (mapcar (function (lambda (v) (make-local-variable v))) calc-local-var-list)
1203 (setq calc-stack (list (list 'top-of-stack
1369 (setq calc-undo-list nil calc-redo-list nil)
1371 calc-local-var-list)
1398 or a list containing a character position and an error message in string form."
1661 (defun calc-push-list (vals &optional m sels)
1664 (calc-push-list-in-macro vals m sels)
1668 (entry (list val 1 (car sels)))
1677 (calc-record-undo (list 'push mm))
1682 (defun calc-pop-push-list (n vals &optional m sels)
1686 (calc-push-list vals m sels)))
1688 (defun calc-pop-push-record-list (n prefix vals &optional m sels)
1692 (and vals (setq vals (list vals)
1693 sels (and sels (list sels)))))
1697 (calc-record-list vals prefix)
1699 (calc-pop-push-list n vals m sels))
1711 (setq vals (list vals)))
1714 (calc-pop-push-record-list n prefix vals m)
1738 (calc-record-undo (list 'pop mm (calc-top-list n m 'full)))
1778 (defun calc-top-list (&optional n m sel-mode)
1788 (defun calc-top-list-n (&optional n m sel-mode)
1790 (mapcar 'calc-normalize (calc-top-list n m sel-mode))))
1980 ;;;; The Undo list.
1985 (setq calc-undo-list (cons (cons rec (car calc-undo-list))
1986 (cdr calc-undo-list)))
1987 (setq calc-undo-list (cons (list rec) calc-undo-list)
1988 calc-redo-list nil)
2001 (calc-top-list 2))))
2008 (calc-enter-result 1 name (list (or func2 func)
2052 (calc-push-list (calc-top-list 1 (- n))))
2054 (calc-push-list (calc-top-list (calc-stack-size))))
2056 (calc-push-list (calc-top-list n))))))
2067 (calc-pop-push-list 1 (let ((tt (copy-sequence top)))
2069 (list tt))))
2122 (calc-push-list (list (calc-record (calc-normalize
2361 ;;; L Normalized bignum digit list (without "bigpos" or "bigneg" symbol)
2362 ;;; or normalized vector element list (without "vec")
2562 (list 'float mant exp)))))
2568 (list (/ (car a) 10))))
2585 (list (car a) (Math-integer-neg (nth 1 a)) (nth 2 a)))
2921 (list 0)
2926 (setq ss (setq sump (or (cdr sump) (setcdr sump (list 0))))
2935 ss (or (cdr ss) (setcdr ss (list 0)))))
2939 (setcdr ss (list (/ prod 1000))))))
2942 ;;; Multiply digit list A by digit D. [L L D D; l l D D]
2954 (setcdr aa (list (/ prod 1000))))
2957 (list c))))
3003 ;;; Divide a bignum digit list by another. [l.l l L]
3018 (cons (car res) (list (cdr res))))))
3020 ;;; Divide a bignum digit list by a digit. [l.D l D]
3035 (res2 (math-div-bignum-part num b blen)))
3040 (defun math-div-bignum-part (a b blen) ; a < b*1000 [D.l l L]
3141 (setq c (list 'horiz c
3204 (list 'horiz c1 c2)))
3401 (list 'float
3414 (list 'float (nth 1 mant) (+ (nth 2 mant) exp)))))))
3428 (list (string-to-number s))))