Function: semantic--tag-attribute-similar-p-default

semantic--tag-attribute-similar-p-default is a byte-compiled function defined in tag-ls.el.gz.

Signature

(semantic--tag-attribute-similar-p-default ATTR VALUE1 VALUE2 IGNORABLE-ATTRIBUTES)

Documentation

For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarity.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag-ls.el.gz
(defun semantic--tag-attribute-similar-p-default (_attr value1 value2 ignorable-attributes)
  "For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarity."
  (cond
   ;; Tag sublists require special testing.
   ((and (listp value1) (semantic-tag-p (car value1))
	 (listp value2) (semantic-tag-p (car value2)))
    (let ((ans t)
	  (taglist1 value1)
	  (taglist2 value2))
      (when (not (eq (length taglist1) (length taglist2)))
	(setq ans nil))
      (while (and ans taglist1 taglist2)
	(setq ans (apply #'semantic-tag-similar-p
			 (car taglist1) (car taglist2)
			 ignorable-attributes)
	      taglist1 (cdr taglist1)
	      taglist2 (cdr taglist2)))
      ans))

   ;; The attributes are not the same?
   ((not (equal value1 value2))
    nil)

   (t t))
  )