Function: chart-trim

chart-trim is a byte-compiled function defined in chart.el.gz.

Signature

(chart-trim ARG &rest ARGS)

Implementations

(chart-trim (C chart) MAX) in `chart.el'.

Trim all sequences in chart C to be at most MAX elements long.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/chart.el.gz
;;; Charting optimizers

(cl-defmethod chart-trim ((c chart) max)
  "Trim all sequences in chart C to be at most MAX elements long."
  (let ((s (oref c sequences)))
    (dolist (x s)
      (let ((sl (oref x data)))
	(if (> (length sl) max)
            (setcdr (nthcdr (1- max) sl) nil)))))
  )