Function: vc-hg--parts-to-string

vc-hg--parts-to-string is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg--parts-to-string PARTS)

Documentation

Build a string from list PARTS. Each element is a character or string.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defun vc-hg--parts-to-string (parts)
  "Build a string from list PARTS.  Each element is a character or string."
  (let ((parts2 nil))
    (while parts
      (let* ((partcell (prog1 parts (setf parts (cdr parts))))
             (part (car partcell)))
        (if (stringp part)
            (setf parts2 (nconc (append part nil) parts2))
          (setcdr partcell parts2)
          (setf parts2 partcell))))
    (apply #'string parts2)))