Function: semantic-analyze-current-context-semantic-grammar-mode

semantic-analyze-current-context-semantic-grammar-mode is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-analyze-current-context-semantic-grammar-mode POINT)

Documentation

Provide a semantic analysis object describing a context in a grammar.

Override semantic-analyze-current-context in semantic-grammar-mode buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
;;; Semantic Analysis

(define-mode-local-override semantic-analyze-current-context
  semantic-grammar-mode (point)
  "Provide a semantic analysis object describing a context in a grammar."
  (if (semantic-grammar-in-lisp-p)
      (with-mode-local emacs-lisp-mode
	(semantic-analyze-current-context point))

    (let* ((context-return nil)
	   (prefixandbounds (semantic-ctxt-current-symbol-and-bounds))
	   (prefix (car prefixandbounds))
	   (bounds (nth 2 prefixandbounds))
	   (prefixsym nil)
	   (prefixclass (semantic-ctxt-current-class-list))
	   )

      ;; Do context for rules when in a match list.
      (setq prefixsym
	    (semantic-find-first-tag-by-name
	     (car prefix)
	     (current-buffer)))

      (setq context-return
	    (semantic-analyze-context
	     :buffer (current-buffer)
	     :scope nil
	     :bounds bounds
	     :prefix (if prefixsym
			 (list prefixsym)
		       prefix)
	     :prefixtypes nil
	     :prefixclass prefixclass
	     ))

      context-return)))