branch: elpa/macrostep
commit 47cbacb7f4ce697f2d1d0541bdcea587df1b7180
Author: joddie <[email protected]>
Commit: joddie <[email protected]>
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
