Function: semantic-tag-protection-emacs-lisp-mode

semantic-tag-protection-emacs-lisp-mode is a byte-compiled function defined in el.el.gz.

Signature

(semantic-tag-protection-emacs-lisp-mode TAG &optional PARENT)

Documentation

Return the protection of TAG in PARENT.

Override function for semantic-tag-protection. Override semantic-tag-protection in emacs-lisp-mode buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/el.el.gz
(define-mode-local-override semantic-tag-protection
  emacs-lisp-mode (tag &optional parent)
  "Return the protection of TAG in PARENT.
Override function for `semantic-tag-protection'."
  (let ((prot (semantic-tag-get-attribute tag :protection)))
    (cond
     ;; If a protection is not specified, AND there is a parent
     ;; data type, then it is public.
     ((and (not prot) parent) 'public)
     ((string= prot ":public") 'public)
     ((string= prot "public") 'public)
     ((string= prot ":private") 'private)
     ((string= prot "private") 'private)
     ((string= prot ":protected") 'protected)
     ((string= prot "protected") 'protected))))