;; Must have been disabled by default.
(goto-char (point-max))
(insert "\n(put '" (symbol-name command) " 'disabled nil)\n"))
- (setq foo (buffer-modified-p))
(save-buffer)))
;;;###autoload
(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