;;; semantic/ctxt.el --- Context calculations for Semantic tools.
-;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: syntax
The default behavior uses `semantic-up-context'.")
(defun semantic-beginning-of-context-default (&optional point)
- "Move POINT to the beginning of the current context via parenthisis.
+ "Move POINT to the beginning of the current context via parenthesis.
Return non-nil if there is no upper context."
(if point (goto-char point))
(if (semantic-up-context)
block delimiters.")
(defun semantic-end-of-context-default (&optional point)
- "Move POINT to the end of the current context via parenthisis.
+ "Move POINT to the end of the current context via parenthesis.
Return non-nil if there is no upper context."
(if point (goto-char point))
(let ((start (point)))
"Get the local variables based on POINT's context.
Local variables are returned in Semantic tag format.
This can be overriden with `get-local-variables'."
- ;; The working status is to let the parser work properly
- (let ((semantic--progress-reporter
- (make-progress-reporter (semantic-parser-working-message "Local")
- 0 100)))
+ ;; Disable parsing messages
+ (let ((semantic--progress-reporter nil))
(save-excursion
(if point (goto-char point))
- (let* ((semantic-working-type nil)
- ;; Disable parsing messages
- (case-fold-search semantic-case-fold))
+ (let* ((case-fold-search semantic-case-fold))
(:override-with-args ())))))
(defun semantic-get-local-variables-default ()
(defun semantic-ctxt-current-function-default (&optional point)
"Return the current function call the cursor is in at POINT.
-The call will be identifed for C like langauges with the form
+The call will be identified for C like languages with the form
NAME ( args ... )"
(if point (goto-char point))
(let ((case-fold-search semantic-case-fold))
(defun semantic-ctxt-scoped-types-default (&optional point)
"Return a list of scoped types by name for the current context at POINT.
This is very different for various languages, and does nothing unless
-overriden."
+overridden."
(if point (goto-char point))
(let ((case-fold-search semantic-case-fold))
;; We need to look at TYPES within the bounds of locally parse arguments.
;; Local variables:
;; generated-autoload-file: "loaddefs.el"
-;; generated-autoload-feature: semantic/loaddefs
;; generated-autoload-load-name: "semantic/ctxt"
;; End:
+;; arch-tag: 04f3ae3c-78bb-40ca-b112-ba77f5e4ea88
;;; semantic/ctxt.el ends here