Function: semantic-tag-protection-default

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

Signature

(semantic-tag-protection-default TAG &optional PARENT)

Documentation

Return the protection of TAG as a child of PARENT default action.

See semantic-tag-protection.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/tag-ls.el.gz
(defun semantic-tag-protection-default (tag &optional _parent)
  "Return the protection of TAG as a child of PARENT default action.
See `semantic-tag-protection'."
  (let ((mods (semantic-tag-modifiers tag))
	(prot nil))
    (while (and (not prot) mods)
      (if (stringp (car mods))
	  (let ((s (car mods)))
	    (setq prot
		  ;; A few silly defaults to get things started.
		  (cond ((member s '("public" "extern" "export"))
			 'public)
			((string= s "private")
			 'private)
			((string= s "protected")
			 'protected)
			((string= s "package")
			 'package)
			))))
      (setq mods (cdr mods)))
    prot))