Function: semantic-java-doc-setup

semantic-java-doc-setup is a byte-compiled function defined in java.el.gz.

Signature

(semantic-java-doc-setup)

Documentation

Lazy initialization of javadoc elements.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/java.el.gz
;;; Mode setup
;;

(defun semantic-java-doc-setup ()
  "Lazy initialization of javadoc elements."
  (or semantic-java-doc-line-tags
      (setq semantic-java-doc-line-tags
            (sort (mapcar #'semantic-java-doc-tag-name
                          (semantic-lex-keywords 'javadoc))
                  #'semantic-java-doc-keyword-before-p)))

  (or semantic-java-doc-with-name-tags
      (setq semantic-java-doc-with-name-tags
            (semantic-java-doc-keywords-map
             (lambda (k _p) k)
             'with-name)))

  (or semantic-java-doc-with-ref-tags
      (setq semantic-java-doc-with-ref-tags
            (semantic-java-doc-keywords-map
             (lambda (k _p) k)
             'with-ref)))

  (or semantic-java-doc-extra-type-tags
      (setq semantic-java-doc-extra-type-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'type (plist-get p 'usage))
                   k))
             'opt)))

  (or semantic-java-doc-extra-function-tags
      (setq semantic-java-doc-extra-function-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'function (plist-get p 'usage))
                   k))
             'opt)))

  (or semantic-java-doc-extra-variable-tags
      (setq semantic-java-doc-extra-variable-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'variable (plist-get p 'usage))
                   k))
             'opt)))

  (or semantic-java-doc-type-tags
      (setq semantic-java-doc-type-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'type (plist-get p 'usage))
                   k)))))

  (or semantic-java-doc-function-tags
      (setq semantic-java-doc-function-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'function (plist-get p 'usage))
                   k)))))

  (or semantic-java-doc-variable-tags
      (setq semantic-java-doc-variable-tags
            (semantic-java-doc-keywords-map
             (lambda (k p)
               (if (memq 'variable (plist-get p 'usage))
                   k)))))

  )