# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 919244788 0
# Node ID 0c4688f9a396e79c1ff531b3a13c48d1020b455a
# Parent  c56b72e5f29d11fcdc9e49282782d6c5914fdccd
Added c-at-toplevel-p for font-lock.el.

diff -r c56b72e5f29d -r 0c4688f9a396 lisp/progmodes/cc-engine.el
--- a/lisp/progmodes/cc-engine.el	Wed Feb 17 08:12:31 1999 +0000
+++ b/lisp/progmodes/cc-engine.el	Wed Feb 17 09:46:28 1999 +0000
@@ -766,6 +766,23 @@
 	 (point))
     ))
 
+(defun c-at-toplevel-p ()
+  "Return a determination as to whether point is at the `top-level'.
+Being at the top-level means that point is either outside any
+enclosing block (such function definition), or inside a class
+definition, but outside any method blocks.
+
+If point is not at the top-level (e.g. it is inside a method
+definition), then nil is returned.  Otherwise, if point is at a
+top-level not enclosed within a class definition, t is returned.
+Otherwise, a 2-vector is returned where the zeroth element is the
+buffer position of the start of the class declaration, and the first
+element is the buffer position of the enclosing class's opening
+brace."
+  (let ((state (c-parse-state)))
+    (or (not (c-most-enclosing-brace state))
+	(c-search-uplist-for-classkey state))))
+
 (defun c-just-after-func-arglist-p (&optional containing)
   ;; Return t if we are between a function's argument list closing
   ;; paren and its opening brace.  Note that the list close brace