🚀 go-pugleaf

In article <MASUTANI.92Sep11140254@balios.wrc.honda.co.jp> masutani@wrc.honda.co.jp writes:

 |> $@KqC+!wK\ED5;=Q8&5f=j$H?=$7$^$9!#(J
 ...
 |> $@$=$3$G!"(JCaps Lock $@$r(J Ctrl $@$NBe$o$j(J$@$K;H$$$?$$$N$G$9$,!"$I$J$?$+$=$N(J
 |> $@J}K!$r65$($F$$$?$@$1$^$;$s$G$7$g$&$+!)(J
 |> 	    1. nemacs $@$N$J$+(J$@$@$1(J
 |> 	    2. $@>o$K(J
 |> $@$N$I$A$i$G$b9=$$$^$;$s!##O#S$O(J IRIX System V Release 3.3.2 $@$G$9!#(J

IRIX3.3.2$@$O(JNeWS$@%&%#%s%I%&3HD%$N(J4SightWindow$@$J$N$G(JX$@$N@_DjJ}K!$O;H$($^$;$s!#(J
$@%[!<%`!&%G%#%l%/%H%j$N(Jstartup.ps$@$K(J$@<!$N$b$N$rF~$l$F$_$F2<$5$$!#(J
$@0JA0(Jcomp.sys.sgi$@$KN.$l$F$$$?$b$N$G$9!#(J

--- $@$O$8$^$j(J ---
/replacekeys { % origkeyvals_array changedkeyvals_array -> -
        {
                /changedvals exch def
                /origvals exch def
                /keysdict origvals length dict def
                keysdict begin
                        0 1 origvals length 1 sub {
                                dup origvals exch get changedvals
                                3 2 roll get def
                        } for
                end
                createevent dup begin
                        /Name origvals def
                        /Priority 2 def
                        /Exclusivity true def
                end
                expressinterest
                {
                        awaitevent dup dup begin
                        /Name get keysdict exch get /Name exch def
                        end
                        redistributeevent
                } loop
        } fork pop pop pop
} def

% lcap	    ctrl
[ 28420 ] [ 28419 ] replacekeys

--- $@$*$o$j(J ---

IRIX4.0.x$@$J$i(J.xsession$@$K!"(J

    /usr/bin/X11/xmodmap -e 'add control = Caps_Lock'

$@$rF~$l$F$*$/$@$1$G$$$$$G$7$g$&!#(J
--
matumot@nkk.co.jp (matumot%nkk.co.jp@uunet.uu.net)
Masayuki Matsumoto
Electronics Div., NKK corporation