From 265f36c1e6c8db598742778dc64f9799896f5dc1 Mon Sep 17 00:00:00 2001 From: Vasilij Schneidermann Date: Mon, 11 Jan 2021 22:41:00 +0100 Subject: [PATCH] Avoid unprintable literals --- lui-irc-colors.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lui-irc-colors.el b/lui-irc-colors.el index 9b16ead2..98fe7506 100644 --- a/lui-irc-colors.el +++ b/lui-irc-colors.el @@ -127,22 +127,22 @@ This is an appropriate function for `lui-pre-output-hook'." (replace-match "") (setq start (point)) (cond - ((string= code "") + ((string= code "\x02") (setq boldp (not boldp))) - ((string= code "") + ((string= code "\x16") (setq inversep (not inversep))) - ((string= code "") + ((string= code "\x1D") (setq italicp (not italicp))) - ((string= code "") + ((string= code "\x1F") (setq underlinep (not underlinep))) - ((string= code "") + ((string= code "\x0F") (setq boldp nil inversep nil italicp nil underlinep nil fg nil bg nil)) - ((string= code "") + ((string= code "\x03") (if (looking-at "\\([0-9][0-9]?\\)\\(,\\([0-9][0-9]?\\)\\)?") (progn (setq fg (string-to-number (match-string 1))