*** empty log message ***

40 files changed, 145 insertions, 50 deletions

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 78310112c1..6cf7253b44 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -1,4 +1,5 @@
-;; Lisp mode, and its idiosyncratic commands.
+;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -614,3 +615,4 @@ means don't indent that line."
 
 (provide 'lisp-mode)
 
+;;; lisp-mode.el ends here
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index db2a4169ae..cc3b189ea3 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -1,4 +1,5 @@
-;; Lisp editing commands for Emacs
+;;; lisp.el --- Lisp editing commands for Emacs
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -260,3 +261,5 @@ function definitions, values or properties are considered."
 	     (with-output-to-temp-buffer " *Completions*"
 	       (display-completion-list list)))
 	   (message "Making completion list...%s" "done")))))
+
+;;; lisp.el ends here
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 3f14afa505..54b177792c 100644
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -1,4 +1,5 @@
-;; Convert buffer of Mocklisp code to real lisp.
+;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -271,3 +272,4 @@
 
 ;Variable pause-writes-files
 
+;;; mlconvert.el ends here
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 521b64ce28..65af46a309 100644
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -1,4 +1,5 @@
-;; Run-time support for mocklisp code.
+;;; mlsupport.el --- run-time support for mocklisp code.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -404,3 +405,4 @@
 
 (provide 'mlsupport)
 
+;;; mlsupport.el ends here
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 7981ef851f..9034732305 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -1,4 +1,5 @@
-;; Emacs side of ledit interface
+;;; ledit.el --- Emacs side of ledit interface
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -141,3 +142,5 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
   (setq mode-name "Ledit")
   (setq major-mode 'ledit-mode)
   (run-hooks 'ledit-mode-hook))
+
+;;; ledit.el ends here
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 3b8e7bbd67..7f3370493c 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,4 +1,5 @@
-;;Load up standardly loaded Lisp files for Emacs.
+;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
+
 ;; This is loaded into a bare Emacs to make a dumpable one.
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
@@ -147,3 +148,5 @@
 
 (or (fboundp 'dump-emacs)
     (eval top-level))
+
+;;; loadup.el ends here
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 296224679b..e7d182fede 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -1,4 +1,5 @@
-;; Print Emacs buffer on line printer.
+;;; lpr.el --- print Emacs buffer on line printer.
+
 ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -94,3 +95,5 @@ See definition of `print-region-1' for calling conventions.")
 	(widen) (erase-buffer)
 	(insert-buffer-substring oldbuf start end)
 	(setq start (point-min) end (point-max)))))
+
+;;; lpr.el ends here
diff --git a/lisp/macros.el b/lisp/macros.el
index 76f1f6fe72..4cd6a34ebe 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -1,4 +1,5 @@
-;; Non-primitive commands for keyboard macros.
+;;; macros.el --- non-primitive commands for keyboard macros.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -173,3 +174,5 @@ and then select the region of un-tablified names and use
 
 ;;;###autoload
 (define-key ctl-x-map "q" 'kbd-macro-query)
+
+;;; macros.el ends here
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index b25edf5cb5..a7d9ef9c3b 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -1,4 +1,5 @@
-;; Utility functions used both by rmail and rnews
+;;; mail-utils.el --- utility functions used both by rmail and rnews
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -200,3 +201,4 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
 
 (provide 'mail-utils)
 
+;;; mail-utils.el ends here
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 056395bc8a..71077a1760 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -1,4 +1,5 @@
-;;; Abbrev-expansion of mail aliases.
+;;; mailabbrev.el --- abbrev-expansion of mail aliases.
+
 ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 ;;; Created: 19 oct 90, Jamie Zawinski <[email protected]>
 ;;; Modified: 5 apr 92, Roland McGrath <[email protected]>
@@ -613,3 +614,5 @@ end of line."
 
       (t ; v19
        (fmakunbound 'expand-mail-aliases)))
+
+;;; mailabbrev.el ends here
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 2765bd561f..e0b44601b9 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -1,4 +1,5 @@
-;; Expand mailing address aliases defined in ~/.mailrc.
+;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
+
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -167,3 +168,5 @@ DEFINITION can be one or more mail addresses separated by commas."
     (if tem
 	(rplacd tem definition)
       (setq mail-aliases (cons (cons name definition) mail-aliases)))))
+
+;;; mailalias.el ends here
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 326d509257..e9d9616758 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -1,6 +1,5 @@
-;;
-;; P O S T . E L
-;;
+;;; post.el --- RMAIL coupler to /usr/uci/post mailer
+
 ;; Yet another mail interface.  this for the rmail system to provide
 ;;  the missing sendmail interface on systems without /usr/lib/sendmail,
 ;;   but with /usr/uci/post.
@@ -90,3 +89,5 @@ site-init."
       (kill-buffer tembuf)
       (if (bufferp errbuf)
 	  (switch-to-buffer errbuf)))))
+
+;;; mailpost.el ends here
diff --git a/lisp/makesum.el b/lisp/makesum.el
index 4274e900e7..99b0452bd1 100644
--- a/lisp/makesum.el
+++ b/lisp/makesum.el
@@ -1,4 +1,5 @@
-;; Generate key binding summary for Emacs
+;;; makesum.el --- generate key binding summary for Emacs
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -99,3 +100,5 @@ Previous contents of that buffer are killed first."
 	(forward-line 1)
 	(setq lines (cdr lines))))
     (goto-char (- (point-max) from-end))))
+
+;;; makesum.el ends here
diff --git a/lisp/man.el b/lisp/man.el
index 790c8a0c1b..c2e0d45ac3 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,4 +1,5 @@
-;; Read in and display parts of Unix manual.
+;;; man.el --- read in and display parts of Unix manual.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -165,3 +166,5 @@ where SECTION is the desired section of the manual, as in \"tty(4)\"."
     (if (equal (substring name -2) ".z")
 	(call-process "pcat" nil t nil name)
       (insert-file-contents name))))
+
+;;; man.el ends here
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index ddf27bdc83..5f4571f4ab 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -1,4 +1,5 @@
-;;; map-ynp.el -- General-purpose boolean question-asker.
+;;; map-ynp.el --- General-purpose boolean question-asker.
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
 ;;; Written by Roland McGrath.
 ;;;
@@ -149,3 +150,5 @@ Returns the number of actions taken."
     (message "")
     ;; Return the number of actions that were taken.
     actions))
+
+;;; map-ynp.el ends here
diff --git a/lisp/medit.el b/lisp/medit.el
index d42e67a26a..9c08ccb2b9 100644
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -1,4 +1,6 @@
-;; Lisp interface between GNU Emacs and MEDIT package. Emacs under MDL.
+;;; medit.el --- Lisp interface between GNU Emacs and MEDIT package.
+
+;; Emacs under MDL.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -113,4 +115,4 @@ Like Mim mode, plus these special commands:
 
 (mim-mode)
 
-
+;;; medit.el ends here
diff --git a/lisp/mhspool.el b/lisp/mhspool.el
index f9ad802ec5..49ed337909 100644
--- a/lisp/mhspool.el
+++ b/lisp/mhspool.el
@@ -1,4 +1,5 @@
-;;; MH folder access using NNTP for GNU Emacs
+;;; mhspool.el --- MH folder access using NNTP for GNU Emacs
+
 ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: mhspool.el,v 1.5 90/03/23 13:25:23 umerin Locked $
@@ -403,3 +404,5 @@ If the stream is opened, return T, otherwise return NIL."
     ))
 
 (provide 'mhspool)
+
+;;; mhspool.el ends here
diff --git a/lisp/mim-mode.el b/lisp/mim-mode.el
index b7aae0a6d1..1c0dec2ed5 100644
--- a/lisp/mim-mode.el
+++ b/lisp/mim-mode.el
@@ -1,4 +1,5 @@
-;; Mim (MDL in MDL) mode.
+;;; mim-mode.el --- Mim (MDL in MDL) mode.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -840,3 +841,4 @@ You need type only enough of the name to be unambiguous."
 
 (provide 'mim-mode)
 
+;;; mim-mode.el ends here
diff --git a/lisp/mim-syntax.el b/lisp/mim-syntax.el
index c9a95b50f2..a9ab16ca25 100644
--- a/lisp/mim-syntax.el
+++ b/lisp/mim-syntax.el
@@ -1,4 +1,5 @@
-;; Syntax checker for Mim (MDL).
+;;; mim-syntax.el --- syntax checker for Mim (MDL).
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -87,5 +88,4 @@ Answers correct or incorrect, cannot point out the error context."
 	  (message "Syntax correct")
 	(error "Syntax incorrect")))))
 
-
-	
+;;; mim-syntax.el ends here
diff --git a/lisp/misc.el b/lisp/misc.el
index db7b3f223b..3eea6ec22b 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -1,4 +1,5 @@
-;; Basic editing commands for Emacs
+;;; misc.el --- basic editing commands for Emacs
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -49,3 +50,5 @@ The characters copied are inserted in the buffer before point."
 			    (min (save-excursion (end-of-line) (point))
 				 (+ n (point)))))))
     (insert string)))
+
+;;; misc.el ends here
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 41940cb622..94d0e4ba5f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1,4 +1,5 @@
-;;; Window system-independent mouse support.
+;;; mouse.el --- window system-independent mouse support.
+
 ;;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;;; This file is part of GNU Emacs.
@@ -455,3 +456,4 @@ This does not delete the region; it acts like \\[kill-ring-save]."
 
 (provide 'mouse)
 
+;;; mouse.el ends here
diff --git a/lisp/netunam.el b/lisp/netunam.el
index 44d828729e..8bfad991cd 100644
--- a/lisp/netunam.el
+++ b/lisp/netunam.el
@@ -1,4 +1,5 @@
-;; HP-UX RFA Commands
+;;; netunam.el --- HP-UX RFA Commands
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -150,3 +151,5 @@ NODE is the network node for the remote machine."
   (delete-char -1)
   (setq rfa-password-accumulator
 	(substring rfa-password-accumulator 0 -1)))
+
+;;; netunam.el ends here
diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index 0cfa097d2f..15afc80504 100644
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -1,4 +1,5 @@
-;;; Spool access using NNTP for GNU Emacs
+;;; nnspool.el --- spool access using NNTP for GNU Emacs
+
 ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
@@ -373,3 +374,5 @@ If the stream is opened, return T, otherwise return NIL."
     ))
 
 (provide 'nnspool)
+
+;;; nnspool.el ends here
diff --git a/lisp/nntp.el b/lisp/nntp.el
index dd33902be7..d1e0dd2fbe 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1,4 +1,5 @@
-;;; NNTP (RFC977) Interface for GNU Emacs
+;;; nntp.el --- NNTP (RFC977) Interface for GNU Emacs
+
 ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: nntp.el,v 3.10 90/03/23 13:25:27 umerin Locked $
@@ -666,3 +667,4 @@ defining this function as macro."
 
 (provide 'nntp)
 
+;;; nntp.el ends here
diff --git a/lisp/novice.el b/lisp/novice.el
index 7a3898014e..c5374e8b8b 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -1,4 +1,5 @@
-;; Handling of disabled commands ("novice mode") for Emacs.
+;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -109,3 +110,4 @@ to future sessions."
    (insert "(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+;;; novice.el ends here
diff --git a/lisp/options.el b/lisp/options.el
index 3abd02910b..86e8d49303 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -1,4 +1,5 @@
-;; Edit Options command for Emacs.
+;;; options.el --- edit Options command for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -123,3 +124,4 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
      (kill-sexp 1)
      (prin1 (symbol-value var) (current-buffer)))))
 
+;;; options.el ends here
diff --git a/lisp/paths.el b/lisp/paths.el
index 50a5880eac..074b979d55 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -1,4 +1,5 @@
-;; Define pathnames for use by various Emacs commands.
+;;; paths.el --- define pathnames for use by various Emacs commands.
+
 ;; Copyright (C) 1986, 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -165,3 +166,5 @@ Append a section-number or section-name to get a directory name.")
       "~/abbrev.def"
     "~/.abbrev_defs")
   "*Default name of file to read abbrevs from.")
+
+;;; paths.el ends here
diff --git a/lisp/play/life.el b/lisp/play/life.el
index 0aceb06560..3ce585d9f1 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -1,4 +1,5 @@
-;; Conway's `Life' for GNU Emacs
+;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 ;; Contributed by Kyle Jones, [email protected]
 
@@ -273,3 +274,4 @@ generations (this defaults to 1)."
 
 (provide 'life)
 
+;;; life.el ends here
diff --git a/lisp/play/meese.el b/lisp/play/meese.el
index 5ba9dfd2ad..5bbe3b1a07 100644
--- a/lisp/play/meese.el
+++ b/lisp/play/meese.el
@@ -1,3 +1,5 @@
+;; meese.el --- protect the impressionable young minds of America...NOT!
+
 (defun protect-innocence-hook ()
   (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
 	   (not (y-or-n-p "Are you over 18? ")))
@@ -12,3 +14,5 @@
 
 (or (memq 'protect-innocence-hook find-file-hooks)
     (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))
+
+;;; meese.el ends here
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index f4d622ad81..01b44c1d35 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -1,4 +1,5 @@
-;;; Multiplication puzzle for GNU Emacs
+;;; mpuz.el --- multiplication puzzle for GNU Emacs
+
 ;;; by Philippe Schnoebelen <[email protected]>
 ;;; Last modified on 11 Nov 1990
 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
@@ -444,5 +445,4 @@ You may abort a game by hitting \\[keyboard-quit]."
 	  (setq list (cons digit list))))
     (mapcar 'mpuz-correct-guess list)))
 
-;;; End of mult-puzzle
-
+;;; mpuz.el ends here
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 24f5225260..19c7249b40 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -1,4 +1,5 @@
-; Modula-2 editing support package
+;;; modula2.el --- Modula-2 editing support package
+
 ; Author Mick Jordan
 ; amended Peter Robinson
 ; ported to GNU Michael Schmidt
@@ -437,3 +438,5 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
 	((string-equal (substring (buffer-name) -3) ".md")
 	 (find-file-other-window
 	  (concat (substring (buffer-name) 0 -3)  ".mi")))))
+
+;;; modula2.el ends here
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 9220495bbf..ddbbf80496 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -1,4 +1,5 @@
-;; Major mode for editing Prolog, and for running Prolog under Emacs
+;;; prolog.el --- major mode for editing and running Prolog under Emacs
+
 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
 ;; Author Masanobu UMEDA ([email protected])
 
@@ -256,3 +257,5 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
   (interactive "P\nr")
   (prolog-consult-region compile beg end)
   (switch-to-buffer "*prolog*"))
+
+;;; prolog.el ends here
diff --git a/lisp/rect.el b/lisp/rect.el
index 06a55a295a..343143e10c 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -1,4 +1,5 @@
-;; Rectangle functions for GNU Emacs.
+;;; rect.el --- rectangle functions for GNU Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -210,3 +211,5 @@ When called from a program, requires two args which specify the corners."
     (delete-char -1)
     (indent-to aftercol)
     (backward-char (- aftercol column))))
+
+;;; rect.el ends here
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 35bf421361..4806273cab 100644
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -1,4 +1,4 @@
-;; GNU Emacs major mode for editing nroff source
+;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-
-
 (defvar nroff-mode-abbrev-table nil
   "Abbrev table used while in nroff mode.")
 
@@ -34,6 +32,7 @@
       (define-key nroff-mode-map "\en" 'forward-text-line)
       (define-key nroff-mode-map "\ep" 'backward-text-line)))
 
+;;;###autoload
 (defun nroff-mode ()
   "Major mode for editing text intended for nroff to format.
 \\{nroff-mode-map}
@@ -200,3 +199,4 @@ turns it on iff arg is positive, otherwise off."
 	(cond ((null arg) (null nroff-electric-mode))
 	      (t (> (prefix-numeric-value arg) 0)))))
 
+;;; nroff-mode.el ends here
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 33b716d812..3580c1e54b 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -1,4 +1,5 @@
-;; Outline mode commands for Emacs
+;;; outline.el --- outline mode commands for Emacs
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -395,3 +396,4 @@ and return that position or nil if it cannot be found."
 	nil
         (point))))
 
+;;; outline.el ends here
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c17fa18755..13f331c431 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -1,6 +1,5 @@
-;;;; page-ext.el
+;;; page-ext.el --- page handling commands
 
-;;; Page handling commands
 ;;; by Robert J. Chassell
 
 ;;; You may use these commands to handle an address list or other
@@ -742,4 +741,5 @@ to the same line in the pages buffer."
   (make-local-variable 'pages-pos-list)
   (make-local-variable 'pages-directory-buffer-narrowing-p))
 
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
+;;; page-ext.el ends here
+
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index 576e23a756..935e19bdba 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -1,4 +1,5 @@
-;; Page motion commands for emacs.
+;;; page.el --- page motion commands for emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -89,6 +90,7 @@ thus showing a page other than the one point was originally in."
 			(if (and (eolp) (not (bobp)))
 			    (forward-line 1))
 			(point)))))
+(put 'narrow-to-page 'disabled t)
 
 (defun count-lines-page ()
   "Report number of lines on current page, and how many are before or after point."
@@ -123,3 +125,5 @@ thus showing a page other than the one point was originally in."
 	(message "Page %d, line %d"
 		 count
 		 (1+ (count-lines (point) opoint)))))))
+
+;;; page.el ends here
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 55b9fc6e45..2235c0b903 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -1,4 +1,5 @@
-;; Paragraph and sentence parsing.
+;;; paragraphs.el --- paragraph and sentence parsing.
+
 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -228,3 +229,5 @@ With arg, repeat, or kill forward to Nth end of sentence if negative arg -N."
   "Interchange this (next) and previous sentence."
   (interactive "*p")
   (transpose-subr 'forward-sentence arg))
+
+;;; paragraphs.el ends here
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index a72dee496a..516ccd646d 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -1,4 +1,5 @@
-;; "Picture mode" -- editing using quarter-plane screen model.
+;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -559,3 +560,4 @@ With no argument strips whitespace from end of every line in Picture buffer
 
 (provide 'picture)
 
+;;; picture.el ends here
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index cba3a2ba0f..e0eb0614d7 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -1,4 +1,5 @@
-;; Convert refer-style bibliographic entries to ones usable by latex bib
+;;; refbib.el --- convert refer-style references to ones usable by Latex bib
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -709,3 +710,5 @@ To see this message again, perform
 (message "r2b loaded")
 
 (provide 'refer-to-bibtex)
+
+;;; refbib.el ends here