Commit ecc71db8 authored by Alan Mackenzie's avatar Alan Mackenzie

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

parent fa85e852
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):
......@@ -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.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment