Function: calc-edit-macro-combine-digits

calc-edit-macro-combine-digits is a byte-compiled function defined in calc-prog.el.gz.

Signature

(calc-edit-macro-combine-digits)

Documentation

Put an entire sequence of digits on a single line.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-prog.el.gz
(defun calc-edit-macro-combine-digits ()
  "Put an entire sequence of digits on a single line."
  (let ((line (calc-edit-macro-command))
        ) ;; curline
    (goto-char (line-beginning-position))
    (kill-line 1)
    (while (string-equal (calc-edit-macro-command-type) "calcDigit-start")
      (setq line (concat line (calc-edit-macro-command)))
      (kill-line 1))
    (insert line "\t\t\t")
    (if (> (current-column) 24)
        (delete-char -1))
    (insert ";; calc digits\n")))