Function: semantic-tag-leaf-p-default

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

Signature

(semantic-tag-leaf-p-default TAG &optional PARENT)

Documentation

Return non-nil if TAG is leaf as a child of PARENT default action.

See semantic-tag-leaf-p.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag-ls.el.gz
(defun semantic-tag-leaf-p-default (tag &optional _parent)
  "Return non-nil if TAG is leaf as a child of PARENT default action.
See `semantic-tag-leaf-p'."
  (let ((mods (semantic-tag-modifiers tag))
	(leaf nil))
    (while (and (not leaf) mods)
      (if (stringp (car mods))
	  ;; Use java FINAL as example default.  There is none
	  ;; for C/C++
	  (setq leaf (string= (car mods) "final")))
      (setq mods (cdr mods)))
    leaf))