*** empty log message ***

diff --git a/src/perl/block-graphics-to-ascii b/src/perl/block-graphics-to-ascii
index 1f7a37551445b3d8470797eec160bb92dea62399..a440f426f78e4af7c56d7dddd77a027161b7f8c6 100644 (file)
--- 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 4b6e6ebe113dcdb5bab3b9e5dd83447e8c6c7c95..e315398e70c3270fb78d4f93052c1d73f86d47bb 100644 (file)
--- 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)