branch: elpa/macrostep
commit 51d5b6af75586a82a03e8186ec3a0ba26a2597ce
Author: joddie <[email protected]>
Commit: joddie <[email protected]>
Fix a bug with printing the first element of a list.
`macrostep-print-sexp` formerly used `prin1` to print the car of a list
form, so fontification was not applied to these correctly. This
manifested itself most obviously in the binding lists in `let`-like
forms, which were not fontified when they contained gensyms.
---
macrostep.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/macrostep.el b/macrostep.el
index 3aa5f8a..a00802a 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -741,11 +741,11 @@ expansion will not be fontified. See also
'macrostep-expanded-text sexp)
;; Fontify the head of the macro
(macrostep-propertize
- (prin1 head (current-buffer))
+ (macrostep-print-sexp head)
'font-lock-face 'macrostep-macro-face))
;; Not a macro form
(insert "(")
- (prin1 head (current-buffer)))
+ (macrostep-print-sexp head quoted-form-p))
;; Print remaining list elements
(setq sexp (cdr sexp))
