*** empty log message ***

diff --git a/src/perl/block-graphics-to-ascii b/src/perl/block-graphics-to-ascii
index 1f7a375..a440f42 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 4b6e6eb..e315398 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)