Function: calc-insert-variables

calc-insert-variables is an autoloaded, interactive and byte-compiled function defined in calc-store.el.gz.

Signature

(calc-insert-variables BUF)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-store.el.gz
(defun calc-insert-variables (buf)
  (interactive "bBuffer in which to save variable values: ")
  (with-current-buffer buf
    (mapatoms (lambda (x)
                (and (string-match "\\`var-" (symbol-name x))
                     (not (memq x calc-dont-insert-variables))
                     (calc-var-value x)
                     (not (eq (car-safe (symbol-value x)) 'special-const))
                     (or (not (eq x 'var-Decls))
                         (not (equal var-Decls '(vec))))
                     (or (not (eq x 'var-Holidays))
                         (not (equal var-Holidays '(vec (var sat var-sat)
                                                        (var sun var-sun)))))
                     (insert "(setq "
                             (symbol-name x)
                             " "
                             (prin1-to-string
                              (let ((calc-language
                                     (if (memq calc-language '(nil big))
                                         'flat
                                       calc-language)))
                                (math-format-value (symbol-value x) 100000)))
                             ")\n"))))))