;{{{}}} (deffun check-out ( toggle-viewmode shell-command "co " "-l " "$ORIFILE )) (deffun check-in ( save-file toggle-viewmode shell-command "ci " "-u " "$ORIFILE ))