;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
-;; Maintainer: FSF
-;; Last-Modified: 22 May 1991
-
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Keywords: internal, help
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;; Code:
+;;; Commentary:
+
+;; This mode provides a hook which is, by default, attached to various
+;; putatively dangerous commands in a (probably futile) attempt to
+;; prevent lusers from shooting themselves in the feet.
+
+;;; Code:
;; This function is called (by autoloading)
;; to handle any disabled command.
;; 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