[nongnu] elpa/macrostep 51d5b6a 036/110: Fix a bug with printing the first element of a list.

[ELPA Syncer]

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

    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))