Updated the code example so that it fits emacs 24 (seems like the original lisp source is outdated)