Function: semantic--tag-copy-properties

semantic--tag-copy-properties is a byte-compiled function defined in tag.el.gz.

Signature

(semantic--tag-copy-properties TAG1 TAG2)

Documentation

Copy private properties from TAG1 to TAG2.

Return TAG2. This function is for internal use only.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag.el.gz
;;(defun semantic--tag-copy-list (tags &optional keep-file)
;;  "Make copies of TAGS and return the list of TAGS."
;;  (let ((out nil))
;;    (dolist (tag tags out)
;;      (setq out (cons (semantic-tag-copy tag nil keep-file)
;;		      out))
;;      )))

(defun semantic--tag-copy-properties (tag1 tag2)
  "Copy private properties from TAG1 to TAG2.
Return TAG2.
This function is for internal use only."
  (let ((plist (semantic-tag-properties tag1)))
    (while plist
      (semantic--tag-put-property tag2 (car plist) (nth 1 plist))
      (setq plist (nthcdr 2 plist)))
    tag2))