Function: allout-widgets-copy-list

allout-widgets-copy-list is a byte-compiled function defined in allout-widgets.el.gz.

Signature

(allout-widgets-copy-list LIST)

Documentation

Return a copy of LIST, which may be a dotted list.

The elements of LIST are not copied, just the list structure itself.

Source Code

;; Defined in /usr/src/emacs/lisp/allout-widgets.el.gz
;;;_  > allout-widgets-copy-list (list)
(defun allout-widgets-copy-list (list)
  ;; duplicated from cl.el 'copy-list' as of 2008-08-17
  "Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself."
  (if (consp list)
      (let ((res nil))
	(while (consp list) (push (pop list) res))
	(prog1 (nreverse res) (setcdr res list)))
    (car list)))