[Emacs-diffs] trunk r114070: * lisp/progmodes/cc-engine.el (c-pull-open-brace): Move definition before use.

[Glenn Morris]

------------------------------------------------------------
revno: 114070
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-08-29 13:26:48 -0400
message:
  * 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
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/cc-engine.el    
ccengine.el-20091113204419-o5vbwnq5f7feedwu-1227

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-29 03:49:10 +0000
+++ b/lisp/ChangeLog    2013-08-29 17:26:48 +0000
@@ -1,3 +1,8 @@
+2013-08-29  Glenn Morris  <address@hidden>
+
+       * progmodes/cc-engine.el (c-pull-open-brace):
+       Move definition before use.
+
 2013-08-29  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl-defsubst): Make it clear that args

=== modified file 'lisp/progmodes/cc-engine.el'
--- a/lisp/progmodes/cc-engine.el       2013-08-25 21:06:07 +0000
+++ b/lisp/progmodes/cc-engine.el       2013-08-29 17:26:48 +0000
@@ -6479,6 +6479,15 @@
           (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 @@
          (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