Commit 34d0b451 authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Ensure query strings and info strings are printable

parent 23bc3eec
......@@ -96,7 +96,7 @@
*pixmap-buffer* (info-gc info)
(- (+ (info-ilw info) (* posx (info-ilw info))) (info-x info))
(info-y-display-coords info posy)
(format nil "~A" line)))
(ensure-printable (format nil "~A" line))))
(+ posx (length line))))
(clear-pixmap-buffer (info-window info) (info-gc info))
(loop for line in (info-list info)
......
......@@ -137,7 +137,7 @@
(xlib:draw-glyphs *pixmap-buffer* *query-gc*
(+ 10 dec)
(+ (* 2 (+ (xlib:max-char-ascent *query-font*) (xlib:max-char-descent *query-font*))) 5)
*query-string*)
(ensure-printable *query-string*))
(setf (xlib:gcontext-foreground *query-gc*) (get-color *query-cursor-color*))
(xlib:draw-line *pixmap-buffer* *query-gc*
(+ 10 (* *query-pos* (xlib:max-char-width *query-font*)) dec)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment