comparison lisp/subr.el @ 50417:c047e3116b28

(number-sequence): Shorten the code.

50416:d6c0d7f63e86

  (if to
      (if (< to from)
	  (setq to (1- from)))
    (setq to from))
  (let* ((list (make-list (- (1+ to) from) from))
	 (tail (cdr list)))
    (while tail
      (setcar tail (setq from (1+ from)))
      (setq tail (cdr tail)))
    list))

(defun remove (elt seq)
  "Return a copy of SEQ with all occurrences of ELT removed.
SEQ must be a list, vector, or string.  The comparison is done with `equal'."

50417:c047e3116b28

  (if to
      (if (< to from)
	  (setq to (1- from)))
    (setq to from))
  (let* ((list (make-list (- (1+ to) from) from))
	 (tail list))
    (while (setq tail (cdr tail))
      (setcar tail (setq from (1+ from))))
    list))

(defun remove (elt seq)
  "Return a copy of SEQ with all occurrences of ELT removed.
SEQ must be a list, vector, or string.  The comparison is done with `equal'."