comparison lisp/novice.el @ 2379:06abd963ec25

(enable-and-notify) Added. Inspired by Roland McGrath's LCD package enable-me.

2378:c5d0140aa7b6

	(progn (forward-line 1) (point))))
   (goto-char (point-max))
   (insert "(put '" (symbol-name command) " 'disabled t)\n")
   (save-buffer)))

;;; novice.el ends here

2379:06abd963ec25

	(progn (forward-line 1) (point))))
   (goto-char (point-max))
   (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