From 7c294a5ff514071e442e86cf98c1605ea06b39b1 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Tue, 10 Jan 2006 04:49:54 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/block-graphics-to-ascii | 2 ++
 src/rxvtperl.xs                  | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/src/perl/block-graphics-to-ascii b/src/perl/block-graphics-to-ascii
index 1f7a3755..a440f426 100644
--- a/src/perl/block-graphics-to-ascii
+++ b/src/perl/block-graphics-to-ascii
@@ -1,5 +1,7 @@
 #! perl
 
+# simple example that uses the add_lines hook to filter unicode and vt100 line/box graphics
+
 #                  ─━│┃┄┅┆┇┈┉┊┋┌┍┎┏┐┑┒┓└┕┖┗┘┙┚┛├┝┞┟┠┡┢┣┤┥┦┧┨┩┪┫┬┭┮┯┰┱┲┳┴┵┶┷┸┹┺┻┼┽┾┿╀╁╂╃╄╅╆╇╈╉╊╋╌╍╎╏
 my $rep_unicode = "--||--||--||++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--||"
 #                  ═║╒╓╔╕╖╗╘╙╚╛╜╝╞╟╠╡╢╣╤╥╦╧╨╩╪╫╬╭╮╯╰╱╲ ╳╴╵╶╷╸╹╺╻╼╽╾╿▀▁▂▃▄▅▆▇█▉▊▋▌▍▎▏▐░▒▓▔▕▖▗▘▙▚▛▜▝▞▟
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 4b6e6ebe..e315398e 100644
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -1320,6 +1320,13 @@ rxvt_term::screen_cur (...)
           }
 }
 
+char
+rxvt_term::cur_charset ()
+	CODE:
+        RETVAL = THIS->charsets [THIS->screen.charset];
+	OUTPUT:
+        RETVAL
+
 int
 rxvt_term::selection_grab (U32 eventtime)
 
-- 
2.34.1