Function: calc-roll-up-stack

calc-roll-up-stack is an autoloaded and byte-compiled function defined in calc-misc.el.gz.

Signature

(calc-roll-up-stack N &optional M)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;;;###autoload
(defun calc-roll-up-stack (n &optional m)
  (if (< n 0)
      (calc-roll-down-stack (- n) m)
    (if (or (= n 0) (> n (calc-stack-size))) (setq n (calc-stack-size)))
    (or m (setq m 1))
    (and (> n 1)
	 (< m n)
	 (if (and calc-any-selections
		  (not calc-use-selections))
	     (calc-roll-up-with-selections n m)
	   (calc-pop-push-list n
			       (append (calc-top-list (- n m) 1)
				       (calc-top-list m (- n m -1))))))))