reintroduce font page reset, but fix su errors

2 files changed, 31 insertions, 0 deletions

diff --git a/lang.csh b/lang.csh
index 498fd12a..eec5b267 100755
--- a/lang.csh
+++ b/lang.csh
@@ -20,4 +20,23 @@ if ($sourced == 1) then
         endif
     endif
 
+    if ($?SYSFONTACM) then
+        switch ($SYSFONTACM)
+	    case iso01*:
+	    case iso02*:
+	    case iso15*:
+	    case koi*:
+	    case latin2-ucw*:
+	        if ( $?TERM ) then
+		    if ( "$TERM" == "linux" ) then
+		        if ( `/sbin/consoletype` == "vt" ) then
+			    /bin/echo -n -e '\033(K' > /proc/$$/fd/15
+		        endif
+		    endif
+		endif
+		breaksw
+	endsw
+    endif
+    unsetenv SYSFONTACM
+    unsetenv SYSFONT
 endif
diff --git a/lang.sh b/lang.sh
index 320c040f..0a65fdc9 100755
--- a/lang.sh
+++ b/lang.sh
@@ -33,4 +33,16 @@ if [ "$sourced" = 1 ]; then
        unset LINGUAS
     fi
     [ -n "$_XKB_CHARSET" ] && export _XKB_CHARSET || unset _XKB_CHARSET
+
+    if [ -n "$SYSFONTACM" ]; then
+	case $SYSFONTACM in
+	    iso01*|iso02*|iso15*|koi*|latin2-ucw*)
+		if [ "$TERM" = "linux" -a "`/sbin/consoletype`" = "vt" ]; then
+			echo -n -e '\033(K' 2>/dev/null > /proc/$$/fd/0
+		fi
+		;;
+	esac
+    fi
+
+    unset SYSFONTACM SYSFONT
 fi