From: root <root>
Date: Tue, 10 Jan 2006 04:49:54 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=7c294a5ff514071e442e86cf98c1605ea06b39b1;p=dana%2Furxvt.git

*** empty log message ***
---

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)