Function: srecode-semantic-apply-tag-to-dict-emacs-lisp-mode

srecode-semantic-apply-tag-to-dict-emacs-lisp-mode is a byte-compiled function defined in el.el.gz.

Signature

(srecode-semantic-apply-tag-to-dict-emacs-lisp-mode TAGOBJ DICT)

Documentation

Apply Emacs Lisp specific features from TAGOBJ into DICT.

Calls srecode-semantic-apply-tag-to-dict-default first. Override srecode-semantic-apply-tag-to-dict in emacs-lisp-mode buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/el.el.gz
(define-mode-local-override srecode-semantic-apply-tag-to-dict
  emacs-lisp-mode (tagobj dict)
  "Apply Emacs Lisp specific features from TAGOBJ into DICT.
Calls `srecode-semantic-apply-tag-to-dict-default' first."
  (srecode-semantic-apply-tag-to-dict-default tagobj dict)

  ;; Pull out the tag for the individual pieces.
  (let* ((tag (oref tagobj prime))
	 (doc (semantic-tag-docstring tag)))

    ;; It is much more common to have doc on ELisp.
    (srecode-dictionary-set-value dict "DOC" doc)

    (cond
     ;;
     ;; FUNCTION
     ;;
     ((eq (semantic-tag-class tag) 'function)
      (if (semantic-tag-get-attribute tag :user-visible-flag)
	  (srecode-dictionary-set-value dict "INTERACTIVE" "  (interactive)\n  ")
	(srecode-dictionary-set-value dict "INTERACTIVE" ""))))))