From: Alan Mackenzie <acm@muc.de>
Date: Sat, 20 Jan 2007 19:27:19 +0000 (+0000)
Subject: Add new functions, c-go-list-forward, c-go-list-backward.
X-Git-Tag: emacs-pretest-22.0.93~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecc71db8a41b729fb36eb1a8cb831a913a407797;p=emacs.git

Add new functions, c-go-list-forward, c-go-list-backward.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fdbd6df100..35cd4348e4b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-20  Alan Mackenzie  <acm@muc.de>
+
+	* progmodes/cc-engine.el (c-in-knr-argdecl): Reformulate to do
+	much more rigorous analysis of putative K&R regions.
+
 2007-01-20  Alan Mackenzie  <acm@muc.de>
 
 	* progmodes/cc-defs.el (c-go-list-forward, c-go-list-backward):
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index af48eb2e21c..8b5adfb997f 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -580,6 +580,24 @@ right side of it."
 ;; Wrappers for common scan-lists cases, mainly because it's almost
 ;; impossible to get a feel for how that function works.
 
+(defmacro c-go-list-forward ()
+  "Move backward across one balanced group of parentheses.
+
+Return POINT when we succeed, NIL when we fail.  In the latter case, leave
+point unmoved."
+  `(c-safe (let ((endpos (scan-lists (point) 1 0)))
+	     (goto-char endpos)
+	     endpos)))
+
+(defmacro c-go-list-backward ()
+  "Move backward across one balanced group of parentheses.
+
+Return POINT when we succeed, NIL when we fail.  In the latter case, leave
+point unmoved."
+  `(c-safe (let ((endpos (scan-lists (point) -1 0)))
+	     (goto-char endpos)
+	     endpos)))
+
 (defmacro c-up-list-forward (&optional pos limit)
   "Return the first position after the list sexp containing POS,
 or nil if no such position exists.  The point is used if POS is left out.