Samium Gromoff's [patch](https://mailman.common-lisp.net/pipermail/linedit-devel/2007-March/000014.html)