Mercurial > emacs
diff lisp/cedet/semantic/ctxt.el @ 105340:118ad0cdd9a8
Doc/message fixes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 01 Oct 2009 04:54:05 +0000 |
| parents | 273e528a9f9b |
| children | 7f4c7f5c0eba |
line wrap: on
line diff
--- a/lisp/cedet/semantic/ctxt.el Thu Oct 01 04:48:12 2009 +0000 +++ b/lisp/cedet/semantic/ctxt.el Thu Oct 01 04:54:05 2009 +0000 @@ -1,7 +1,7 @@ ;;; 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 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Keywords: syntax @@ -86,7 +86,7 @@ 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) @@ -101,7 +101,7 @@ 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))) @@ -510,7 +510,7 @@ (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)) @@ -602,7 +602,7 @@ (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.