diff options
author | Glenn Morris <rgm@gnu.org> | 2013-08-29 13:26:48 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2013-08-29 13:26:48 -0400 |
commit | 6758b6a8db00bc9bf9748d3d8c542cd269a9bffc (patch) | |
tree | 1aaf1bfc0cc094be7156007a9eeec09c5a21229f /lisp/progmodes/cc-engine.el | |
parent | 032f74518a71a7fe0afd2e7d0eee11bfb7ae90d9 (diff) | |
download | emacs-6758b6a8db00bc9bf9748d3d8c542cd269a9bffc.tar.gz |
* lisp/progmodes/cc-engine.el (c-pull-open-brace): Move definition before use.
Ref: http://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00773.html
Diffstat (limited to 'lisp/progmodes/cc-engine.el')
-rw-r--r-- | lisp/progmodes/cc-engine.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index b9345b2ae6a..db2a6c68539 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -6479,6 +6479,15 @@ comment at the start of cc-engine.el for more info." (c-go-list-forward) t))) +(defmacro c-pull-open-brace (ps) + ;; Pull the next open brace from PS (which has the form of paren-state), + ;; skipping over any brace pairs. Returns NIL when PS is exhausted. + `(progn + (while (consp (car ,ps)) + (setq ,ps (cdr ,ps))) + (prog1 (car ,ps) + (setq ,ps (cdr ,ps))))) + (defun c-back-over-member-initializers () ;; Test whether we are in a C++ member initializer list, and if so, go back ;; to the introducing ":", returning the position of the opening paren of @@ -8403,15 +8412,6 @@ comment at the start of cc-engine.el for more info." (back-to-indentation) (vector (point) open-paren-pos)))))) -(defmacro c-pull-open-brace (ps) - ;; Pull the next open brace from PS (which has the form of paren-state), - ;; skipping over any brace pairs. Returns NIL when PS is exhausted. - `(progn - (while (consp (car ,ps)) - (setq ,ps (cdr ,ps))) - (prog1 (car ,ps) - (setq ,ps (cdr ,ps))))) - (defun c-most-enclosing-decl-block (paren-state) ;; Return the buffer position of the most enclosing decl-block brace (in the ;; sense of c-looking-at-decl-block) in the PAREN-STATE structure, or nil if |