]> code.delx.au - gnu-emacs-elpa/commitdiff
And move its definition below
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 2 Jan 2016 03:22:43 +0000 (05:22 +0200)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 2 Jan 2016 03:22:43 +0000 (05:22 +0200)
js2-mode.el

index 974e6f0c138bed5074c74cdb967eb1fdcefd5c29..739c01e2c00c44aac2825aba24269200a3b3ffce 100644 (file)
@@ -3843,6 +3843,29 @@ You can tell the quote type by looking at the first character."
       (insert ",")))
   (insert "]"))
 
+(cl-defstruct (js2-object-node
+               (:include js2-node)
+               (:constructor nil)
+               (:constructor make-js2-object-node (&key (type js2-OBJECTLIT)
+                                                        (pos js2-ts-cursor)
+                                                        len
+                                                        elems)))
+  "AST node for an object literal expression.
+`elems' is a list of `js2-object-prop-node'."
+  elems)
+
+(put 'cl-struct-js2-object-node 'js2-visitor 'js2-visit-object-node)
+(put 'cl-struct-js2-object-node 'js2-printer 'js2-print-object-node)
+
+(defun js2-visit-object-node (n v)
+  (dolist (e (js2-object-node-elems n))
+    (js2-visit-ast e v)))
+
+(defun js2-print-object-node (n i)
+  (insert (js2-make-pad i) "{")
+  (js2-print-list (js2-object-node-elems n))
+  (insert "}"))
+
 (cl-defstruct (js2-class-node
                (:include js2-object-node)
                (:constructor nil)
@@ -3889,29 +3912,6 @@ optional `js2-expr-node'"
         (js2-print-ast elem (1+ i))))
     (insert "\n" pad "}")))
 
-(cl-defstruct (js2-object-node
-               (:include js2-node)
-               (:constructor nil)
-               (:constructor make-js2-object-node (&key (type js2-OBJECTLIT)
-                                                        (pos js2-ts-cursor)
-                                                        len
-                                                        elems)))
-  "AST node for an object literal expression.
-`elems' is a list of `js2-object-prop-node'."
-  elems)
-
-(put 'cl-struct-js2-object-node 'js2-visitor 'js2-visit-object-node)
-(put 'cl-struct-js2-object-node 'js2-printer 'js2-print-object-node)
-
-(defun js2-visit-object-node (n v)
-  (dolist (e (js2-object-node-elems n))
-    (js2-visit-ast e v)))
-
-(defun js2-print-object-node (n i)
-  (insert (js2-make-pad i) "{")
-  (js2-print-list (js2-object-node-elems n))
-  (insert "}"))
-
 (cl-defstruct (js2-computed-prop-name-node
                (:include js2-node)
                (:constructor nil)