[elpa] externals/marginalia 88faa59 089/241: marginalia-annotate-variable: ensure that control characters are escaped

[Stefan Monnier]

branch: externals/marginalia
commit 88faa59f8f91fa815e178838cdee3c8735a5b8c2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia-annotate-variable: ensure that control characters are escaped
    
    otherwise newlines and bidi characters make problems
---
 marginalia.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index c34628b..0ceefa9 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -402,8 +402,11 @@ Similar to `marginalia-annotate-symbol', but does not show 
symbol class."
   (when-let (sym (intern-soft cand))
     (marginalia--fields
      ((marginalia--symbol-class sym) :face 'marginalia-modified)
-     ((if (boundp sym) (symbol-value sym) 'unbound)
-      :truncate (/ marginalia-truncate-width 3) :format "%S" :face 
'marginalia-variable)
+     ((let ((print-escape-newlines t)
+            (print-escape-control-characters t)
+            (print-escape-multibyte t))
+        (prin1-to-string (if (boundp sym) (symbol-value sym) 'unbound)))
+      :truncate (/ marginalia-truncate-width 3) :face 'marginalia-variable)
      ((documentation-property sym 'variable-documentation)
       :truncate marginalia-truncate-width :face 'marginalia-documentation))))