Mercurial > emacs
diff lisp/novice.el @ 2379:06abd963ec25
(enable-and-notify) Added. Inspired by Roland McGrath's LCD package
enable-me.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Sat, 27 Mar 1993 01:58:24 +0000 |
parents | f287613dfc28 |
children | afb11b3822c2 |
line wrap: on
line diff
--- a/lisp/novice.el Sat Mar 27 01:58:22 1993 +0000 +++ b/lisp/novice.el Sat Mar 27 01:58:24 1993 +0000 @@ -120,4 +120,13 @@ (insert "(put '" (symbol-name command) " 'disabled t)\n") (save-buffer))) +;;;###autoload +(defun enable-and-notify (&rest args) + "A novice hook for non-novices." + (put this-command 'disabled nil) + (message "You typed %s. %s was disabled. It's enabled now." + (key-description (this-command-keys)) this-command) + (sit-for 0) + (call-interactively this-command)) + ;;; novice.el ends here