X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6594deb0dcec8f1a663fc47b0588a7b4c935a6c5..c7c8b31e4f8ed8de385c0b1a06fd597e8c3acef6:/lisp/novice.el

diff --git a/lisp/novice.el b/lisp/novice.el
index c5374e8b8b..b874754920 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -2,11 +2,14 @@
 
 ;; 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
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; 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.
@@ -89,7 +99,6 @@ to future sessions."
      ;; 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