[nongnu] elpa/macrostep 47cbacb 087/110: Define `macrostep-propertize` before using it

[ELPA Syncer]

branch: elpa/macrostep
commit 47cbacb7f4ce697f2d1d0541bdcea587df1b7180
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>

    Define `macrostep-propertize` before using it
---
 macrostep.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/macrostep.el b/macrostep.el
index 08c7846..289442e 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -914,6 +914,19 @@ Controls the printing of sub-forms in 
`macrostep-print-sexp'.")
           (backward-sexp)
           (indent-sexp))))))
 
+;; This must be defined before `macrostep-print-sexp':
+(defmacro macrostep-propertize (form &rest plist)
+  "Evaluate FORM, applying syntax properties in PLIST to any inserted text."
+  (declare (indent 1)
+           (debug (&rest form)))
+  (let ((start (make-symbol "start")))
+    `(let ((,start (point)))
+       (prog1
+           ,form
+         ,@(loop for (key value) on plist by #'cddr
+                 collect `(put-text-property ,start (point)
+                                             ,key ,value))))))
+
 (defun macrostep-print-sexp (sexp)
   "Insert SEXP like `print', fontifying macro forms and uninterned symbols.
 
@@ -1020,18 +1033,6 @@ fontified using the same face (modulo the number of 
faces; see
          (put symbol 'macrostep-gensym-face face)
          face))))
 
-(defmacro macrostep-propertize (form &rest plist)
-  "Evaluate FORM, applying syntax properties in PLIST to any inserted text."
-  (declare (indent 1)
-           (debug (&rest form)))
-  (let ((start (make-symbol "start")))
-    `(let ((,start (point)))
-       (prog1
-           ,form
-         ,@(loop for (key value) on plist by #'cddr
-                 collect `(put-text-property ,start (point)
-                                             ,key ,value))))))
-
 
 ;;; Basic SLIME support
 ;;;###autoload