Some fixes to follow coding conventions in files maintained by FSF.

125 files changed, 272 insertions, 163 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55481cb0909..1fd4930f2ce 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,42 @@
+2001-07-15  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* abbrevlist.el, array.el, buff-menu.el, calendar/appt.el,
+	case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el,
+	custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el,
+	echistory.el, electric.el, emacs-lisp/authors.el,
+	emacs-lisp/backquote.el, emacs-lisp/byte-opt.el,
+	emacs-lisp/bytecomp.el, emacs-lisp/float.el, emacs-lisp/gulp.el,
+	emacs-lisp/helper.el, emacs-lisp/lisp-mode.el,
+	emacs-lisp/regexp-opt.el, emulation/mlconvert.el,
+	emulation/mlsupport.el, env.el, fast-lock.el, find-dired.el,
+	float-sup.el, frame.el, gnus/gnus-mule.el, gnus/pop3.el, gs.el,
+	gud.el, help-macro.el, hexl.el, imenu.el, info.el, informat.el,
+	international/codepage.el, international/iso-ascii.el,
+	international/iso-insert.el, international/iso-transl.el,
+	international/swedish.el, isearch.el, jka-compr.el, kermit.el,
+	lazy-lock.el, ledit.el, loadup.el, lpr.el, ls-lisp.el, macros.el,
+	mail/blessmail.el, mail/emacsbug.el, mail/mail-extr.el,
+	mail/mailabbrev.el, mail/mailpost.el, mail/rmail.el,
+	mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmsc.el,
+	mail/rmailout.el, mail/rmailsort.el, mail/rmailsum.el,
+	mail/vms-pmail.el, man.el, map-ynp.el, menu-bar.el, misc.el,
+	msb.el, net/ange-ftp.el, net/goto-addr.el, novice.el,
+	obsolete/auto-show.el, obsolete/hilit19.el, obsolete/ooutline.el,
+	obsolete/rnews.el, obsolete/rnewspost.el, options.el, paren.el,
+	paths.el, play/dissociate.el, play/doctor.el, play/hanoi.el,
+	play/meese.el, progmodes/compile.el, progmodes/ebrowse.el,
+	progmodes/hideif.el, progmodes/modula2.el, register.el, rot13.el,
+	saveplace.el, scroll-bar.el, server.el, sort.el, soundex.el,
+	term/bg-mouse.el, term/pc-win.el, term/sup-mouse.el,
+	term/tty-colors.el, terminal.el, textmodes/bib-mode.el,
+	textmodes/makeinfo.el, textmodes/page.el, textmodes/paragraphs.el,
+	textmodes/picture.el, textmodes/scribe.el, textmodes/spell.el,
+	textmodes/tex-mode.el, textmodes/text-mode.el,
+	textmodes/underline.el, thingatpt.el, time.el, timer.el,
+	unused.el, vcursor.el, version.el, vms-patch.el, vmsproc.el,
+	vt100-led.el, window.el: Some fixes to follow coding conventions in
+	files maintained by FSF.
+
 2001-07-13  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* arc-mode.el: A fix to follow coding conventions.
diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el
index 355e24cf5ec..d10679e7aaa 100644
--- a/lisp/abbrevlist.el
+++ b/lisp/abbrevlist.el
@@ -1,4 +1,4 @@
-;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
+;;; abbrevlist.el --- list one abbrev table alphabetically ordered
 
 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 ;; Suggested by a previous version by Gildea.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun list-one-abbrev-table (abbrev-table output-buffer)
diff --git a/lisp/array.el b/lisp/array.el
index d6084650a59..fc128d3a7bc 100644
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -1,4 +1,4 @@
-;;; array.el --- array editing commands for Gnu Emacs
+;;; array.el --- array editing commands for GNU Emacs
 
 ;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 67f72ddd3df..d748fb86d68 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -1,4 +1,4 @@
-;;; buff-menu.el --- buffer menu main function and support functions.
+;;; buff-menu.el --- buffer menu main function and support functions
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 8c8076a8413..aca6cf628db 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -1,4 +1,4 @@
-;;; appt.el --- appointment notification functions.
+;;; appt.el --- appointment notification functions
 
 ;; Copyright (C) 1989, 1990, 1994, 1998 Free Software Foundation, Inc.
 
diff --git a/lisp/case-table.el b/lisp/case-table.el
index 79cc96b5b31..265f9519689 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -1,4 +1,4 @@
-;;; case-table.el --- code to extend the character set and support case tables.
+;;; case-table.el --- code to extend the character set and support case tables
 
 ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/cdl.el b/lisp/cdl.el
index 49de3db4bc2..5dd87f45db0 100644
--- a/lisp/cdl.el
+++ b/lisp/cdl.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun cdl-get-file (filename)
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index c0539d465a0..5d2e1e25e10 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,4 +1,4 @@
-;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
+;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
 
 ;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index d3788508cd3..389da2c0aad 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -1,4 +1,4 @@
-;;; compare-w.el --- compare text between windows for Emacs.
+;;; compare-w.el --- compare text between windows for Emacs
 
 ;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/completion.el b/lisp/completion.el
index 5d6eed2e205..152f72cab3d 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -1204,7 +1204,7 @@ Must be called after `find-exact-completion'."
 
 (defun locate-completion-db-error ()
   ;; recursive error: really scrod
-  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report."))
+  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report"))
 
 ;; WRITES
 (defun add-completion-to-tail-if-new (string)
diff --git a/lisp/custom.el b/lisp/custom.el
index f8ffaeac1a1..4a8a0aedb21 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1,4 +1,4 @@
-;;; custom.el -- Tools for declaring and initializing options.
+;;; custom.el --- tools for declaring and initializing options
 ;;
 ;; Copyright (C) 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/derived.el b/lisp/derived.el
index 8dc20972787..28b1a99bd27 100644
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -1,4 +1,4 @@
-;;; derived.el --- allow inheritance of major modes.
+;;; derived.el --- allow inheritance of major modes
 ;;; (formerly mode-clone.el)
 
 ;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 31883fe012a..911bfb20abf 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -123,7 +123,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
   "Change the group of the marked (or next ARG) files."
   (interactive "P")
   (if (memq system-type '(ms-dos windows-nt))
-      (error "chgrp not supported on this system."))
+      (error "chgrp not supported on this system"))
   (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
 
 ;;;###autoload
@@ -131,7 +131,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
   "Change the owner of the marked (or next ARG) files."
   (interactive "P")
   (if (memq system-type '(ms-dos windows-nt))
-      (error "chown not supported on this system."))
+      (error "chown not supported on this system"))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
 
 ;; Process all the files in FILES in batches of a convenient size,
@@ -452,7 +452,7 @@ the list of file names explicitly with the FILE-LIST argument."
     (while (/= 0 arg)
       (setq file (dired-get-filename nil t))
       (if (not file)
-	  (error "Can only kill file lines.")
+	  (error "Can only kill file lines")
 	(save-excursion (and file
 			     (dired-goto-subdir file)
 			     (dired-kill-subdir)))
@@ -1902,7 +1902,7 @@ Lower levels are unaffected."
 	    dir (file-name-directory (directory-file-name dir))))
     ;;(setq dir (expand-file-name dir))
     (or (dired-goto-subdir dir)
-	(error "Cannot go up to %s - not in this tree." dir))))
+	(error "Cannot go up to %s - not in this tree" dir))))
 
 ;;;###autoload
 (defun dired-tree-down ()
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 44d7a4298d8..452d99285c9 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -1,4 +1,4 @@
-;;; disp-table.el --- functions for dealing with char tables.
+;;; disp-table.el --- functions for dealing with char tables
 
 ;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc.
 
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (put 'display-table 'char-table-extra-slots 6)
diff --git a/lisp/dos-vars.el b/lisp/dos-vars.el
index d6a81ba0f55..ee008d2094a 100644
--- a/lisp/dos-vars.el
+++ b/lisp/dos-vars.el
@@ -1,4 +1,4 @@
-;;; dos-vars.el --- MS-Dos specific user options.
+;;; dos-vars.el --- MS-Dos specific user options
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (defgroup dos-fns nil
   "MS-DOS specific functions."
   :group 'environment)
diff --git a/lisp/echistory.el b/lisp/echistory.el
index 8e04d7eb01d..221d9176f51 100644
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'electric)			; command loop
diff --git a/lisp/electric.el b/lisp/electric.el
index 8a155b324d5..d4678a7e3e2 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -1,4 +1,4 @@
-;;; electric.el --- window maker and Command loop for `electric' modes.
+;;; electric.el --- window maker and Command loop for `electric' modes
 
 ;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 909f741f88c..50de167ae33 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -468,4 +468,4 @@ the Emacs source tree, from which to build the file."
     (authors root)
     (write-file file)))
 
-;; authors.el ends here
+;;; authors.el ends here
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index ea5fd54094c..04078815d2e 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -210,4 +210,4 @@ Vectors work just like lists.  Nested backquotes are permitted."
 	tail))
      (t (cons 'list heads)))))
 
-;; backquote.el ends here
+;;; backquote.el ends here
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 86ccb7fc51c..cbfc9a6bb09 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1,4 +1,4 @@
-;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
+;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
 
 ;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
 
@@ -188,7 +188,7 @@
 
 (defun byte-compile-log-lap-1 (format &rest args)
   (if (aref byte-code-vector 0)
-      (error "The old version of the disassembler is loaded.  Reload new-bytecomp as well."))
+      (error "The old version of the disassembler is loaded.  Reload new-bytecomp as well"))
   (byte-compile-log-1
    (apply 'format format
      (let (c a)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4c6881e0b0a..ae74752d9e6 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1,4 +1,4 @@
-;;; bytecomp.el --- compilation of Lisp code into byte code.
+;;; bytecomp.el --- compilation of Lisp code into byte code
 
 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000
 ;;   Free Software Foundation, Inc.
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.82 $")
+(defconst byte-compile-version "$Revision: 2.83 $")
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/emacs-lisp/float.el b/lisp/emacs-lisp/float.el
index 69cfa251c89..53d31c6e33a 100644
--- a/lisp/emacs-lisp/float.el
+++ b/lisp/emacs-lisp/float.el
@@ -1,4 +1,4 @@
-;;; float.el --- obsolete floating point arithmetic package.
+;;; float.el --- obsolete floating point arithmetic package
 
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el
index 877e62255b3..39cc1b98c09 100644
--- a/lisp/emacs-lisp/gulp.el
+++ b/lisp/emacs-lisp/gulp.el
@@ -1,4 +1,4 @@
-;;; gulp.el --- Ask for updates for Lisp packages
+;;; gulp.el --- ask for updates for Lisp packages
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index d2f7100fe17..574694654bf 100644
--- a/lisp/emacs-lisp/helper.el
+++ b/lisp/emacs-lisp/helper.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; hey, here's a helping hand.
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index a66d553d93a..6e476ab8fcf 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -1,4 +1,4 @@
-;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
+;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index e849cd60b96..b6fac1355c1 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -1,4 +1,4 @@
-;;; regexp-opt.el --- generate efficient regexps to match strings.
+;;; regexp-opt.el --- generate efficient regexps to match strings
 
 ;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 5b56358d3a3..78e3dc29cab 100644
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -1,4 +1,4 @@
-;;; mlconvert.el --- 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.
 
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index ab32291dbfe..25f32bcb2c0 100644
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -1,4 +1,4 @@
-;;; mlsupport.el --- run-time support for mocklisp code.
+;;; mlsupport.el --- run-time support for mocklisp code
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/env.el b/lisp/env.el
index 4981fe68b4e..1824bd378ce 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -1,4 +1,4 @@
-;;; env.el --- functions to manipulate environment variables.
+;;; env.el --- functions to manipulate environment variables
 
 ;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el
index 68b6683305a..bc32f31ce53 100644
--- a/lisp/fast-lock.el
+++ b/lisp/fast-lock.el
@@ -1,4 +1,4 @@
-;;; fast-lock.el --- Automagic text properties caching for fast Font Lock mode.
+;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
 
@@ -7,7 +7,7 @@
 ;; Keywords: faces files
 ;; Version: 3.14
 
-;;; This file is part of GNU Emacs.
+;; 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
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index e39d58c8c4b..a58d510f20c 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'dired)
diff --git a/lisp/float-sup.el b/lisp/float-sup.el
index 5a93f5fec05..eb186a48095 100644
--- a/lisp/float-sup.el
+++ b/lisp/float-sup.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Provide a meaningful error message if we are running on
diff --git a/lisp/frame.el b/lisp/frame.el
index 5eceff5ba6b..7720b796e8f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1,4 +1,4 @@
-;;; frame.el --- multi-frame management independent of window systems.
+;;; frame.el --- multi-frame management independent of window systems
 
 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001
 ;;   Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar frame-creation-function nil
diff --git a/lisp/gnus/gnus-mule.el b/lisp/gnus/gnus-mule.el
index f8100ee6402..0f8c41cc6cb 100644
--- a/lisp/gnus/gnus-mule.el
+++ b/lisp/gnus/gnus-mule.el
@@ -1,4 +1,4 @@
-;;; gnus-mule.el --- Provide backward compatibility function to GNUS
+;;; gnus-mule.el --- provide backward compatibility function to GNUS
 
 ;; Copyright (C) 1995,1997 Free Software Foundation, Inc.
 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
@@ -28,6 +28,8 @@
 ;; This file provides the function `gnus-mule-add-group' for backward
 ;; compatibility with old version of Gnus included in Emacs 20.
 
+;;; Code:
+
 (require 'gnus-sum)
 
 ;;;###autoload
@@ -69,4 +71,4 @@ rather than using this function."
 
 (provide 'gnus-mule)
 
-;; gnus-mule.el ends here
+;;; gnus-mule.el ends here
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index ed265af8dee..99148388aa8 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -123,7 +123,7 @@ Used for APOP authentication.")
 	  ((equal 'pass pop3-authentication-scheme)
 	   (pop3-user process pop3-maildrop)
 	   (pop3-pass process))
-	  (t (error "Invalid POP3 authentication scheme.")))
+	  (t (error "Invalid POP3 authentication scheme")))
     (setq message-count (car (pop3-stat process)))
     (pop3-quit process)
     message-count))
@@ -293,7 +293,7 @@ If NOW, use that time instead."
   (pop3-send-command process (format "USER %s" user))
   (let ((response (pop3-read-response process t)))
     (if (not (and response (string-match "+OK" response)))
-	(error (format "USER %s not valid." user)))))
+	(error (format "USER %s not valid" user)))))
 
 (defun pop3-pass (process)
   "Send authentication information to the server."
diff --git a/lisp/gs.el b/lisp/gs.el
index 89a21e19fcb..1399e4258a9 100644
--- a/lisp/gs.el
+++ b/lisp/gs.el
@@ -173,4 +173,4 @@ the form \"WINDOW-ID PIXMAP-ID\".  Value is non-nil if successful."
 
 (provide 'gs)
 
-;; gs.el ends here.
+;;; gs.el ends here
diff --git a/lisp/gud.el b/lisp/gud.el
index 9119a2b9497..52bfacf6338 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -289,13 +289,13 @@ off the specialized speedbar mode."
 				  'speedbar-highlight-face
 				  (cond ((eq ff 'gud-gdb-find-file)
 					 'gud-gdb-goto-stackframe)
-					(t (error "Should never be here.")))
+					(t (error "Should never be here")))
 				  (car frames) t))
 	(setq frames (cdr frames)))
 ;      (let ((selected-frame
 ;	     (cond ((eq ff 'gud-gdb-find-file)
 ;		    (gud-gdb-selected-frame-info buffer))
-;		   (t (error "Should never be here."))))))
+;		   (t (error "Should never be here"))))))
       )
     (setq gud-last-speedbar-stackframe gud-last-last-frame)))
 
@@ -464,7 +464,7 @@ available with older versions of GDB."
     (and gud-gdb-complete-list
 	 (string-match "^Undefined command: \"complete\""
 		       (car gud-gdb-complete-list))
-	 (error "This version of GDB doesn't support the `complete' command."))
+	 (error "This version of GDB doesn't support the `complete' command"))
     ;; Sort the list like readline.
     (setq gud-gdb-complete-list
 	  (sort gud-gdb-complete-list (function string-lessp)))
@@ -692,7 +692,7 @@ and source-file directory for your debugger."
 	   (not (and (boundp 'tags-file-name)
 		     (stringp tags-file-name)
 		     (file-exists-p tags-file-name))))
-      (error "The sdb support requires a valid tags table to work."))
+      (error "The sdb support requires a valid tags table to work"))
 
   (gud-common-init command-line 'gud-sdb-massage-args
 		   'gud-sdb-marker-filter 'gud-sdb-find-file)
@@ -1197,14 +1197,14 @@ directories if your program contains sources from more than one directory."
 	;; -e goes with the next arg, so shift one extra.
 	(or (funcall shift)
 	    ;; -e as the last arg is an error in Perl.
-	    (error "No code specified for -e."))
+	    (error "No code specified for -e"))
 	(setq seen-e t))
       (funcall shift))
 
     (unless seen-e
       (if (or (not args)
 	      (string-match "^-" (car args)))
-	  (error "Can't use stdin as the script to debug."))
+	  (error "Can't use stdin as the script to debug"))
       ;; This is the program name.
       (funcall shift))
 
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index becc1684f57..19add581969 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -1,10 +1,10 @@
-;;; help-macro.el --- Makes command line help such as help-for-help
+;;; help-macro.el --- makes command line help such as help-for-help
 
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Lynn Slater <lrs@indetech.com>
 ;; Maintainer: FSF
-;; Created: : Mon Oct  1 11:42:39 1990
+;; Created: Mon Oct  1 11:42:39 1990
 ;; Adapted-By: ESR
 
 ;; This file is part of GNU Emacs.
@@ -29,7 +29,7 @@
 ;; This file supplies the macro make-help-screen which constructs
 ;; single character dispatching with browsable help such as that provided
 ;; by help-for-help. This can be used to make many modes easier to use; for
-;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map
+;; example, the GNU Emacs Empire Tool uses this for every "nested" mode map
 ;; called from the main mode map.
 
 ;;       The name of this package was changed from help-screen.el to
diff --git a/lisp/hexl.el b/lisp/hexl.el
index f4f2d21c098..e44da8cacda 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1,4 +1,4 @@
-;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
+;;; hexl.el --- edit a file in a hex dump format using the hexl filter
 
 ;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/imenu.el b/lisp/imenu.el
index b799c68c6e2..832834afaf8 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -1,4 +1,4 @@
-;;; imenu.el --- Framework for mode-specific buffer indexes.
+;;; imenu.el --- framework for mode-specific buffer indexes
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
 
@@ -59,7 +59,7 @@
 ;;  [christian] - Christian Egli Christian.Egli@hcsd.hac.com
 ;;  [karl] - Karl Fogel kfogel@floss.life.uiuc.edu
 
-;;; Code
+;;; Code:
 
 (eval-when-compile (require 'cl))
 
diff --git a/lisp/info.el b/lisp/info.el
index d29f3c9d55c..91344b850fb 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1,4 +1,4 @@
-;;; info.el --- info package for Emacs.
+;;; info.el --- info package for Emacs
 
 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
 ;;  Free Software Foundation, Inc.
diff --git a/lisp/informat.el b/lisp/informat.el
index cb26c64fbaf..baec500ec78 100644
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -439,7 +439,7 @@ Must be used only with -batch, and kills Emacs on completion.
 Each file will be processed even if an error occurred previously.
 For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
   (if (not noninteractive)
-      (error "batch-info-validate may only be used -batch."))
+      (error "batch-info-validate may only be used -batch"))
   (let ((version-control t)
 	(auto-save-default nil)
 	(find-file-run-dired nil)
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 871148f6fbe..112edc12b23 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -1,4 +1,4 @@
-;;; codepage.el --- MS-DOS/MS-Windows specific coding systems.
+;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -665,4 +665,4 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal."
 
 (provide 'codepage)
 
-;; codepage.el ends here
+;;; codepage.el ends here
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el
index 14550a05c81..9dafdb38592 100644
--- a/lisp/international/iso-ascii.el
+++ b/lisp/international/iso-ascii.el
@@ -1,4 +1,4 @@
-;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
+;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
 
 ;; Copyright (C) 1987, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/international/iso-insert.el b/lisp/international/iso-insert.el
index c3e064e0421..c88333b85f0 100644
--- a/lisp/international/iso-insert.el
+++ b/lisp/international/iso-insert.el
@@ -1,4 +1,4 @@
-;;; iso-insert.el --- insert functions for ISO 8859/1.
+;;; iso-insert.el --- insert functions for ISO 8859/1
 
 ;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index 0dd73c5edb1..8cc27b120f7 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -1,4 +1,4 @@
-;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
+;;; iso-transl.el --- keyboard input definitions for ISO 8859/1
 
 ;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/international/swedish.el b/lisp/international/swedish.el
index 103d7259cf9..05229b2e9e5 100644
--- a/lisp/international/swedish.el
+++ b/lisp/international/swedish.el
@@ -1,4 +1,4 @@
-;;; swedish.el --- miscellaneous functions for dealing with Swedish.
+;;; swedish.el --- miscellaneous functions for dealing with Swedish
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index d523a5f891e..672f559c2ba 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1,4 +1,4 @@
-;;; isearch.el --- incremental search minor mode.
+;;; isearch.el --- incremental search minor mode
 
 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index ae63d71c92e..1239fb39744 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Commentary: 
+;;; Commentary:
 
 ;; This package implements low-level support for reading, writing,
 ;; and loading compressed files.  It hooks into the low-level file
@@ -917,4 +917,4 @@ Returns the new status of auto compression (non-nil means on)."
 
 (provide 'jka-compr)
 
-;; jka-compr.el ends here.
+;;; jka-compr.el ends here
diff --git a/lisp/kermit.el b/lisp/kermit.el
index cd7ddebd779..ee4f0d54480 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -1,4 +1,4 @@
-;;; kermit.el --- additions to shell mode for use with kermit, etc.
+;;; kermit.el --- additions to shell mode for use with kermit
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
diff --git a/lisp/lazy-lock.el b/lisp/lazy-lock.el
index d5597d38a40..ef18b8a1ae6 100644
--- a/lisp/lazy-lock.el
+++ b/lisp/lazy-lock.el
@@ -1,4 +1,4 @@
-;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode.
+;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001
 ;;   Free Software Foundation, Inc.
@@ -8,7 +8,7 @@
 ;; Keywords: faces files
 ;; Version: 2.11
 
-;;; This file is part of GNU Emacs.
+;; 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
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 66ebe146a23..0094d515de4 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
-;; Keyword: languages
+;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 6291a9b803f..dc91a6b086e 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,4 +1,4 @@
-;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
+;;; loadup.el --- load up standardly loaded Lisp files for Emacs
 
 ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 9b24a7352d1..213a6d05af2 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -1,9 +1,9 @@
-;;; lpr.el --- print Emacs buffer on line printer.
+;;; lpr.el --- print Emacs buffer on line printer
 
 ;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.
 
-;; Maintainer:	FSF
-;; Keywords:	unix
+;; Maintainer: FSF
+;; Keywords: unix
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index d8f52df45ea..aeada6ef886 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -2,10 +2,10 @@
 
 ;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc.
 
-;; Author:		Sebastian Kremer <sk@thp.uni-koeln.de>
-;; Modified by:		Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
-;; Maintainer:		FSF
-;; Keywords:		unix, dired
+;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
+;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
+;; Maintainer: FSF
+;; Keywords: unix, dired
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/macros.el b/lisp/macros.el
index 354ab82a467..0857dd3c2db 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -1,4 +1,4 @@
-;;; macros.el --- non-primitive commands for keyboard macros.
+;;; macros.el --- non-primitive commands for keyboard macros
 
 ;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc.
 
@@ -43,7 +43,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
   (and (fboundp symbol)
        (not (stringp (symbol-function symbol)))
        (not (vectorp (symbol-function symbol)))
-       (error "Function %s is already defined and not a keyboard macro."
+       (error "Function %s is already defined and not a keyboard macro"
 	      symbol))
   (if (string-equal symbol "")
       (error "No command name given"))
@@ -281,7 +281,7 @@ and then select the region of un-tablified names and use
   (or macro
       (progn
 	(if (null last-kbd-macro)
-	    (error "No keyboard macro has been defined."))
+	    (error "No keyboard macro has been defined"))
 	(setq macro last-kbd-macro)))
   (save-excursion
     (let ((end-marker (progn
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index dc4c749c31a..0721369a677 100644
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -1,4 +1,4 @@
-;;; blessmail.el --- Decide whether movemail needs special privileges.
+;;; blessmail.el --- decide whether movemail needs special privileges
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 0b4cfeaaaa9..ccccdddea58 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -1,4 +1,4 @@
-;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
+;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list
 
 ;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc.
 
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 5a7f5370340..0fd3414df04 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1,4 +1,4 @@
-;;; mail-extr.el --- extract full name and address from RFC 822 mail header.
+;;; mail-extr.el --- extract full name and address from RFC 822 mail header
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 3794fa6cd32..818255ffafa 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -1,4 +1,4 @@
-;;; mailabbrev.el --- abbrev-expansion of mail aliases.
+;;; mailabbrev.el --- abbrev-expansion of mail aliases
 
 ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000
 ;;	Free Software Foundation, Inc.
@@ -638,4 +638,4 @@ Don't use this command in Lisp programs!
 (if mail-abbrevs-mode
     (mail-abbrevs-enable))
 
-;;; mailabbrev.el ends here.
+;;; mailabbrev.el ends here
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index f7548a94c05..f8198c9e97d 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -3,6 +3,8 @@
 ;; This is in the public domain
 ;; since Delp distributed it without a copyright notice in 1986.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Gary Delp <delp@huey.Udel.Edu>
 ;; Maintainer: FSF
 ;; Created: 13 Jan 1986
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d55c070b403..e35932f64df 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1,4 +1,4 @@
-;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
+;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
 
 ;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001
 ;;		Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
@@ -1875,7 +1877,7 @@ It returns t if it got any new messages."
   (goto-char beg)
   (forward-line 1)
   (if (/= (following-char) ?0)
-      (error "Bad format in RMAIL file."))
+      (error "Bad format in RMAIL file"))
   (let ((inhibit-read-only t)
 	(delta (- (buffer-size) end)))
     (delete-char 1)
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 17a83cf1eba..a24292381a8 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -1,4 +1,4 @@
-;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message.
+;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message
 
 ;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'rmail)
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 4b5d73045aa..693fbc68428 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -1,4 +1,4 @@
-;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
+;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs
 
 ;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Global to all RMAIL buffers.  It exists primarily for the sake of
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el
index ad302785358..7a0871f1414 100644
--- a/lisp/mail/rmailmsc.el
+++ b/lisp/mail/rmailmsc.el
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 5bfe38a6e70..d135ad193b3 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -1,4 +1,4 @@
-;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
+;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file
 
 ;; Copyright (C) 1985, 1987, 1993, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'rmail)
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index 48113907802..8e00f3e4d55 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -1,4 +1,4 @@
-;;; rmailsort.el --- Rmail: sort messages.
+;;; rmailsort.el --- Rmail: sort messages
 
 ;; Copyright (C) 1990, 1993, 1994, 2001 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'sort)
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 3964274edc3..9bcdd0c36ff 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -105,7 +105,7 @@ Emacs will list the header line in the RMAIL-summary."
   (interactive "sRegexp to summarize by: ")
   (if (string= regexp "")
       (setq regexp (or rmail-last-regexp
-			 (error "No regexp specified."))))
+			 (error "No regexp specified"))))
   (setq rmail-last-regexp regexp)
   (rmail-new-summary (concat "regexp " regexp)
 		     (list 'rmail-summary-by-regexp regexp)
diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el
index ed723d12e79..7fe7771d350 100644
--- a/lisp/mail/vms-pmail.el
+++ b/lisp/mail/vms-pmail.el
@@ -1,4 +1,4 @@
-;;; vms-pmail.el --- use Emacs as the editor within VMS mail.
+;;; vms-pmail.el --- use Emacs as the editor within VMS mail
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;
diff --git a/lisp/man.el b/lisp/man.el
index 2454b48ded9..c7a2d43153c 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -2,10 +2,10 @@
 
 ;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
 
-;; Author:		Barry A. Warsaw <bwarsaw@cen.com>
+;; Author: Barry A. Warsaw <bwarsaw@cen.com>
 ;; Maintainer: FSF
-;; Keywords:		help
-;; Adapted-By:		ESR, pot
+;; Keywords: help
+;; Adapted-By: ESR, pot
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index e986ae87359..21e6aec67df 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -1,4 +1,4 @@
-;;; map-ynp.el --- General-purpose boolean question-asker.
+;;; map-ynp.el --- general-purpose boolean question-asker
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 0963629a397..d6509792672 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1,4 +1,4 @@
-;;; menu-bar.el --- define a default menu bar.
+;;; menu-bar.el --- define a default menu bar
 
 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
 
@@ -25,6 +25,8 @@
 
 ;; Avishai Yacobi suggested some menu rearrangements.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; User options:
diff --git a/lisp/misc.el b/lisp/misc.el
index 9590d490ec9..ca9f6aabca5 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun copy-from-above-command (&optional arg)
diff --git a/lisp/msb.el b/lisp/msb.el
index fe9906cf933..7eb26338373 100644
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -1,4 +1,4 @@
-;;; msb.el --- Customizable buffer-selection with multiple menus.
+;;; msb.el --- customizable buffer-selection with multiple menus
 
 ;; Copyright (C) 1993, 94, 95, 97, 98, 99, 2000, 2001
 ;;  Free Software Foundation, Inc.
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fb2f8120c4c..12aaaa58fe5 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4834,9 +4834,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
   ;; think so, because expand-filename should have already short-circuited
   ;; them.
   (cond ((string-equal dir-name "/")
-	 (error "Cannot get listing for fictitious \"/\" directory."))
+	 (error "Cannot get listing for fictitious \"/\" directory"))
 	((string-match "^/[-A-Z0-9_$]+:/$" dir-name)
-	 (error "Cannot get listing for device."))
+	 (error "Cannot get listing for device"))
 	((ange-ftp-fix-name-for-vms dir-name))))
 
 (or (assq 'vms ange-ftp-fix-dir-name-func-alist)
@@ -5353,7 +5353,7 @@ Other orders of $ and _ seem to all work just fine.")
 ;; Remember that there are no directories in MTS.
 (defun ange-ftp-fix-dir-name-for-mts (dir-name)
   (if (string-equal dir-name "/")
-      (error "Cannot get listing for fictitious \"/\" directory.")
+      (error "Cannot get listing for fictitious \"/\" directory")
     (let ((dir-name (ange-ftp-fix-name-for-mts dir-name)))
       (cond
        ((string-equal dir-name "")
@@ -5542,7 +5542,7 @@ Other orders of $ and _ seem to all work just fine.")
 (defun ange-ftp-fix-dir-name-for-cms (dir-name)
   (cond
    ((string-equal "/" dir-name)
-    (error "Cannot get listing for fictitious \"/\" directory."))
+    (error "Cannot get listing for fictitious \"/\" directory"))
    ((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name)
     (let* ((minidisk (substring dir-name (match-beginning 1) (match-end 1)))
 	   ;; host and user are bound in the call to ange-ftp-send-cmd
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index bb75508935f..497052b8ab9 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -239,4 +239,4 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
 
 (provide 'goto-addr)
 
-;;; goto-addr.el ends here.
+;;; goto-addr.el ends here
diff --git a/lisp/novice.el b/lisp/novice.el
index 348774a90fa..c22e685aef3 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -1,4 +1,4 @@
-;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
+;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/obsolete/auto-show.el b/lisp/obsolete/auto-show.el
index 93323f6c8c1..9a813374551 100644
--- a/lisp/obsolete/auto-show.el
+++ b/lisp/obsolete/auto-show.el
@@ -1,9 +1,11 @@
 ;;; auto-show.el --- perform automatic horizontal scrolling as point moves
 ;;; This file is in the public domain.
 
-;;; Keywords: scroll display convenience
-;;; Author: Pete Ware <ware@cis.ohio-state.edu>
-;;; Maintainer: FSF
+;; This file is part of GNU Emacs.
+
+;; Keywords: scroll display convenience
+;; Author: Pete Ware <ware@cis.ohio-state.edu>
+;; Maintainer: FSF
 
 ;;; Commentary:
 
@@ -46,5 +48,4 @@ to auto-show from your init file and code."
 
 (provide 'auto-show)
 
-;; auto-show.el ends here
-
+;;; auto-show.el ends here
diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el
index a324de3b1bf..0adcb88a678 100644
--- a/lisp/obsolete/hilit19.el
+++ b/lisp/obsolete/hilit19.el
@@ -1,4 +1,4 @@
-;;; hilit19.el --- customizable highlighting for Emacs19
+;;; hilit19.el --- customizable highlighting for Emacs 19
 
 ;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
 
@@ -26,7 +26,7 @@
 
 ;;; Commentary:
 
-;; Hilit19.el is a customizable highlighting package for Emacs19.  It supports
+;; Hilit19.el is a customizable highlighting package for Emacs 19.  It supports
 ;; not only source code highlighting, but also Info, RMAIL, VM, gnus...
 ;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in
 ;; about 25 different modes.
@@ -1512,4 +1512,4 @@ number of backslashes."
 
 (provide 'hilit19)
 
-;;; hilit19 ends here.
+;;; hilit19.el ends here
diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el
index f2a324bd0f1..ea7ac542031 100644
--- a/lisp/obsolete/ooutline.el
+++ b/lisp/obsolete/ooutline.el
@@ -1,4 +1,4 @@
-;;; outline.el --- outline mode commands for Emacs
+;;; ooutline.el --- outline mode commands for Emacs
 
 ;; Copyright (C) 1986, 1993, 1994, 1997 Free Software Foundation, Inc.
 
@@ -582,4 +582,4 @@ Stop at the first and last subheadings of a superior heading."
 
 (provide 'outline)
 
-;;; outline.el ends here
+;;; ooutline.el ends here
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el
index b1570917ee6..03f99ff9098 100644
--- a/lisp/obsolete/rnews.el
+++ b/lisp/obsolete/rnews.el
@@ -1,4 +1,4 @@
-;;; rnews.el --- USENET news reader for gnu emacs
+;;; rnews.el --- USENET news reader for GNU Emacs
 
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
@@ -51,6 +51,8 @@
 ;;	tower@gnu.org Nov 21 1986
 ;; added tower@gnu.org 22 Apr 87
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'mail-utils)
diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el
index 7788164b4d0..546195e37bd 100644
--- a/lisp/obsolete/rnewspost.el
+++ b/lisp/obsolete/rnewspost.el
@@ -52,6 +52,8 @@
 ;;; >> Nuked by Mly to autoload those functions again, as the duplication of
 ;;; >>  code was making maintenance too difficult.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'sendmail)
diff --git a/lisp/options.el b/lisp/options.el
index f6620824a87..b7684034695 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -1,4 +1,4 @@
-;;; options.el --- edit Options command for Emacs.
+;;; options.el --- edit Options command for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/paren.el b/lisp/paren.el
index 40e99bea0ef..b2d4775ccb2 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -1,4 +1,4 @@
-;;; paren.el --- highlight matching paren.
+;;; paren.el --- highlight matching paren
 
 ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/paths.el b/lisp/paths.el
index 6648898464c..78d4ff0acfa 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -1,4 +1,4 @@
-;;; paths.el --- define pathnames for use by various Emacs commands.
+;;; paths.el --- define pathnames for use by various Emacs commands
 
 ;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index fab3ed92559..b8458f63fa4 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -1,4 +1,4 @@
-;;; dissociate.el --- scramble text amusingly for Emacs.
+;;; dissociate.el --- scramble text amusingly for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index eed63bca9df..7811c7c0047 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1,4 +1,4 @@
-;;; doctor.el --- psychological help for frustrated users.
+;;; doctor.el --- psychological help for frustrated users
 
 ;; Copyright (C) 1985, 1987, 1994, 1996, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 8b98f067be9..fd8223eb6b2 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -7,6 +7,7 @@
 ; Author (a) 1985, Damon Anton Permezel
 ; This is in the public domain
 ; since he distributed it without copyright notice in 1985.
+;; This file is part of GNU Emacs.
 ;
 ; Support for horizontal poles, large numbers of rings, real-time,
 ; faces, defcustom, and Towers of Unix added in 1999 by Alakazam
diff --git a/lisp/play/meese.el b/lisp/play/meese.el
index f62ce3c702a..30793af6db7 100644
--- a/lisp/play/meese.el
+++ b/lisp/play/meese.el
@@ -3,6 +3,8 @@
 ;; This is in the public domain on account of being distributed since
 ;; 1985 or 1986 without a copyright notice.
 
+;; This file is part of GNU Emacs.
+
 ;; Maintainer: FSF
 ;; Keywords: games
 
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 3d0c399cf7c..3eff86d2ce4 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1,4 +1,4 @@
-;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
+;;; compile.el --- run compiler as inferior of Emacs, parse error messages
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 4b62a90e115..688f9d60c0a 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -4509,5 +4509,4 @@ EVENT is the mouse event."
 ;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
 ;;; End:
 
-;;; ebrowse.el ends here.    
-
+;;; ebrowse.el ends here
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index be29de4b4f1..37f95f25041 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -1,4 +1,4 @@
-;;; hide-ifdef-mode.el --- hides selected code within ifdef.
+;;; hideif.el --- hides selected code within ifdef
 
 ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
 
@@ -1075,4 +1075,3 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
 (provide 'hideif)
 
 ;;; hideif.el ends here
-
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 3c4ee33ebe0..15b716feaec 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -5,6 +5,8 @@
 ;; Maintainer: FSF
 ;; Keywords: languages
 
+;; This file is part of GNU Emacs.
+
 ;; The authors distributed this without a copyright notice
 ;; back in 1988, so it is in the public domain.  The original included
 ;; the following credit:
diff --git a/lisp/register.el b/lisp/register.el
index 940ae584683..e609e8bfb73 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -1,4 +1,4 @@
-;;; register.el --- register commands for Emacs.
+;;; register.el --- register commands for Emacs
 
 ;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/rot13.el b/lisp/rot13.el
index a3307ea352e..fcb349c03e5 100644
--- a/lisp/rot13.el
+++ b/lisp/rot13.el
@@ -1,8 +1,8 @@
-;;; rot13.el --- display a buffer in rot13.
+;;; rot13.el --- display a buffer in rot13
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
-;; Author: Howard Gayle:
+;; Author: Howard Gayle
 ;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 2be03700d15..c8088536d71 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -1,4 +1,4 @@
-;;; saveplace.el --- automatically save place in files.
+;;; saveplace.el --- automatically save place in files
 
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
@@ -238,4 +238,3 @@ To save places automatically in all files, put this in your `.emacs' file:
 (provide 'saveplace) ; why not...
 
 ;;; saveplace.el ends here
-
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 4ab77a542e1..493a271cf23 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -1,4 +1,4 @@
-;;; scroll-bar.el --- window system-independent scroll bar support.
+;;; scroll-bar.el --- window system-independent scroll bar support
 
 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001
 ;;  Free Software Foundation, Inc.
diff --git a/lisp/server.el b/lisp/server.el
index c86c08532b6..6b055e89bc6 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1,4 +1,4 @@
-;;; server.el --- Lisp code for GNU Emacs running as server process.
+;;; server.el --- Lisp code for GNU Emacs running as server process
 
 ;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000, 2001
 ;;	 Free Software Foundation, Inc.
diff --git a/lisp/sort.el b/lisp/sort.el
index 33f523c9533..7a835b635e8 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -1,4 +1,4 @@
-;;; sort.el --- commands to sort text in an Emacs buffer.
+;;; sort.el --- commands to sort text in an Emacs buffer
 
 ;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/soundex.el b/lisp/soundex.el
index 2a33d538695..89094e326e4 100644
--- a/lisp/soundex.el
+++ b/lisp/soundex.el
@@ -29,7 +29,7 @@
 ;; The Soundex algorithm maps English words into representations of
 ;; how they sound.  Words with vaguely similar sound map to the same string.
 
-;;; Code: 
+;;; Code:
 
 (defvar soundex-alist
   '((?B . "1") (?F . "1") (?P . "1") (?V . "1")
@@ -73,4 +73,4 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
 
 (provide 'soundex)
 
-;; soundex.el ends here
+;;; soundex.el ends here
diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index 23c32e4cc6b..e4b78d18ea3 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -1,4 +1,4 @@
-;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
+;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse
 
 ;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
 
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;  Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index ac73c3ac4ed..c18636e2f97 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -1,4 +1,4 @@
-;;; pc-win.el --- setup support for `PC windows' (whatever that is).
+;;; pc-win.el --- setup support for `PC windows' (whatever that is)
 
 ;; Copyright (C) 1994, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (load "term/internal" nil t)
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index 13fb796e399..849569e1847 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -26,6 +26,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;  User customization option:
diff --git a/lisp/term/tty-colors.el b/lisp/term/tty-colors.el
index e0f80d15042..0a818a5c734 100644
--- a/lisp/term/tty-colors.el
+++ b/lisp/term/tty-colors.el
@@ -1008,3 +1008,5 @@ A color is considered gray if the 3 components of its RGB value are equal."
 	   (setq count (1+ count)))
       (setq colors (cdr colors)))
     count))
+
+;;; tty-colors.el ends here
diff --git a/lisp/terminal.el b/lisp/terminal.el
index 7b2f4d76adb..865b917d20a 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1,4 +1,4 @@
-;;; terminal.el --- terminal emulator for GNU Emacs.
+;;; terminal.el --- terminal emulator for GNU Emacs
 
 ;; Copyright (C) 1986,87,88,89,93,94 Free Software Foundation, Inc.
 
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 9ccbd517ea0..ef9a7f67864 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -1,4 +1,4 @@
-;;; bib-mode.el --- bib-mode, major mode for editing bib files.
+;;; bib-mode.el --- major mode for editing bib files
 
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
@@ -30,6 +30,7 @@
 ;;   and appropriate keys are presented for various kinds of entries.
 
 ;;; Code:
+
 (defgroup bib nil
   "Major mode for editing bib files."
   :prefix "bib-"
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index 0beccbc5fc7..718d96ed5ac 100644
--- a/lisp/textmodes/makeinfo.el
+++ b/lisp/textmodes/makeinfo.el
@@ -253,4 +253,3 @@ line LINE of the window, or centered if LINE is nil."
 (provide 'makeinfo)
 
 ;;; makeinfo.el ends here
-
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index e8f5b5d6bbf..7bf8631a3f5 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -1,4 +1,4 @@
-;;; page.el --- page motion commands for emacs.
+;;; page.el --- page motion commands for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 4ecc0c2d433..172c2cdf35c 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -1,4 +1,4 @@
-;;; paragraphs.el --- paragraph and sentence parsing.
+;;; paragraphs.el --- paragraph and sentence parsing
 
 ;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001
 ;;    Free Software Foundation, Inc.
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index d1f87fa0b54..25e60eb4809 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -1,4 +1,4 @@
-;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
+;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model
 
 ;; Copyright (C) 1985, 1994 Free Software Foundation, Inc.
 
@@ -397,7 +397,7 @@ stops computed are displayed in the minibuffer with `:' at each stop."
 	      (skip-chars-forward " \t")
 	      (setq tabs (cons (current-column) tabs)))
 	    (if (null tabs)
-		(error "No characters in set %s on this line."
+		(error "No characters in set %s on this line"
 		       (regexp-quote picture-tab-chars))))))
       (setq tab-stop-list tabs)
       (let ((blurb (make-string (1+ (nth (1- (length tabs)) tabs)) ?\ )))
@@ -486,7 +486,7 @@ shifting existing text.  Leaves mark at one corner of rectangle and
 point at the other (diagonally opposed) corner."
   (interactive "P")
   (if (not (consp picture-killed-rectangle))
-      (error "No rectangle saved.")
+      (error "No rectangle saved")
     (picture-insert-rectangle picture-killed-rectangle insertp)))
 
 (defun picture-yank-at-click (click arg)
@@ -508,7 +508,7 @@ of rectangle and point at the other (diagonally opposed) corner."
   (interactive "cRectangle from register: \nP")
   (let ((rectangle (get-register register)))
     (if (not (consp rectangle))
-	(error "Register %c does not contain a rectangle." register)
+	(error "Register %c does not contain a rectangle" register)
       (picture-insert-rectangle rectangle insertp))))
 
 (defun picture-insert-rectangle (rectangle &optional insertp)
@@ -698,7 +698,7 @@ Note that Picture mode commands will work outside of Picture mode, but
 they are not defaultly assigned to keys."
   (interactive)
   (if (eq major-mode 'picture-mode)
-      (error "You are already editing a picture.")
+      (error "You are already editing a picture")
     (make-local-variable 'picture-mode-old-local-map)
     (setq picture-mode-old-local-map (current-local-map))
     (use-local-map picture-mode-map)
@@ -735,7 +735,7 @@ With no argument strips whitespace from end of every line in Picture buffer
   otherwise just return to previous mode."
   (interactive "P")
   (if (not (eq major-mode 'picture-mode))
-      (error "You aren't editing a Picture.")
+      (error "You aren't editing a Picture")
     (if (not nostrip) (delete-trailing-whitespace))
     (setq mode-name picture-mode-old-mode-name)
     (use-local-map picture-mode-old-local-map)
diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el
index 0123ce82d5f..d1b5aedf3c6 100644
--- a/lisp/textmodes/scribe.el
+++ b/lisp/textmodes/scribe.el
@@ -1,4 +1,4 @@
-;;; scribe.el --- scribe mode, and its idiosyncratic commands.
+;;; scribe.el --- scribe mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index e8fe420a842..1923c867fb7 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -1,4 +1,4 @@
-;;; spell.el --- spelling correction interface for Emacs.
+;;; spell.el --- spelling correction interface for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index e74f64ef23b..07dcee289b2 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,4 +1,4 @@
-;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
+;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
 
 ;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999
 ;;       Free Software Foundation, Inc.
@@ -26,6 +26,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Pacify the byte-compiler
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 41728618cbd..e6d3e0548b2 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -1,4 +1,4 @@
-;;; text-mode.el --- text mode, and its idiosyncratic commands.
+;;; text-mode.el --- text mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985, 1992, 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index a7e6d30bd5c..d6f08b5deea 100644
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -1,4 +1,4 @@
-;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
+;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 9f8c3bdb8a8..d0ede90ed35 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -1,4 +1,4 @@
-;;; thingatpt.el --- Get the `thing' at point
+;;; thingatpt.el --- get the `thing' at point
 
 ;; Copyright (C) 1991,92,93,94,95,96,97,1998,2000
 ;;  Free Software Foundation, Inc.
@@ -395,4 +395,4 @@ Signal an error if the entire string was not used."
 ;;;###autoload
 (defun list-at-point ()   (form-at-point 'list 'listp))
 
-;; thingatpt.el ends here.
+;;; thingatpt.el ends here
diff --git a/lisp/time.el b/lisp/time.el
index f879fdd5ca8..8357556df1a 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,4 +1,4 @@
-;;; time.el --- display time, load and mail indicator in mode line of Emacs.
+;;; time.el --- display time, load and mail indicator in mode line of Emacs
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/timer.el b/lisp/timer.el
index e860f843095..3820b57365e 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -1,4 +1,4 @@
-;;; timer.el --- run a function with args at some time in future.
+;;; timer.el --- run a function with args at some time in future
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/unused.el b/lisp/unused.el
index 1cb956b213f..6439bb21ee7 100644
--- a/lisp/unused.el
+++ b/lisp/unused.el
@@ -1,7 +1,9 @@
-;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
+;;; unused.el --- editing commands in GNU Emacs that turned out not to be used
 ;;; This file is in the public domain, as it was distributed in
 ;;; 1985 or 1986 without a copyright notice.  Written by RMS.
 
+;; This file is part of GNU Emacs.
+
 ;; Maintainer: FSF
 ;; Keywords: emulations
 
diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index 3c7afbb5b0b..492d660b3a2 100644
--- a/lisp/vcursor.el
+++ b/lisp/vcursor.el
@@ -1,4 +1,4 @@
-;;; vcursor.el --- manipulate an alternative ("virtual") cursor.
+;;; vcursor.el --- manipulate an alternative ("virtual") cursor
 
 ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc.
 
@@ -808,7 +808,7 @@ out how much to copy."
    ((and (overlayp vcursor-overlay) (overlay-start vcursor-overlay))
     t)
    (arg nil)
-   (t (error "The virtual cursor is not active now.")))
+   (t (error "The virtual cursor is not active now")))
   )
 
 (defun vcursor-disable (&optional arg)
@@ -1161,4 +1161,4 @@ Disabling the vcursor automatically turns this off."
 
 (provide 'vcursor)
 
-;; vcursor.el ends here
+;;; vcursor.el ends here
diff --git a/lisp/version.el b/lisp/version.el
index 297174e4606..f408e6e5b4b 100644
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -1,4 +1,4 @@
-;;; version.el --- record version number of Emacs.
+;;; version.el --- record version number of Emacs
 
 ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001
 ;;;   Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defconst emacs-version "21.0.105" "\
diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index f0669a97682..3d8a9c59647 100644
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -1,4 +1,4 @@
-;;; vms-patch.el --- override parts of files.el for VMS.
+;;; vms-patch.el --- override parts of files.el for VMS
 
 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))
diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el
index 020dcb304d0..14f9b2903ad 100644
--- a/lisp/vmsproc.el
+++ b/lisp/vmsproc.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar display-subprocess-window nil
diff --git a/lisp/vt100-led.el b/lisp/vt100-led.el
index 17d3e3a53e7..88819da9c23 100644
--- a/lisp/vt100-led.el
+++ b/lisp/vt100-led.el
@@ -1,4 +1,4 @@
-;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones.
+;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar led-state (make-vector 5 nil)
diff --git a/lisp/window.el b/lisp/window.el
index e3d451c5382..a5535dcd8da 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1,4 +1,4 @@
-;;; window.el --- GNU Emacs window commands aside from those written in C.
+;;; window.el --- GNU Emacs window commands aside from those written in C
 
 ;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001
 ;;  Free Software Foundation, Inc.
@@ -22,7 +22,6 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-
 ;;; Commentary:
 
 ;; Window tree functions.