Some fixes to follow coding conventions.

147 files changed, 455 insertions, 323 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5b409cdc77..3947c239385 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,55 @@
+2001-07-16  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+        * align.el, apropos.el, autorevert.el, battery.el, bookmark.el,
+        calculator.el, calendar/todo-mode.el, complete.el, cus-dep.el,
+        cus-edit.el, cus-face.el, delim-col.el, dos-fns.el, double.el,
+        edmacro.el, elide-head.el, emacs-lisp/autoload.el,
+        emacs-lisp/checkdoc.el, emacs-lisp/cl-compat.el,
+        emacs-lisp/cl-specs.el, emacs-lisp/copyright.el,
+        emacs-lisp/cust-print.el, emacs-lisp/easy-mmode.el,
+        emacs-lisp/elint.el, emacs-lisp/ewoc.el, emacs-lisp/find-func.el,
+        emacs-lisp/pp.el, emacs-lisp/re-builder.el, emacs-lisp/shadow.el,
+        emacs-lisp/sregex.el, emerge.el, emulation/edt-lk201.el,
+        emulation/edt-mapper.el, emulation/edt-pc.el,
+        emulation/edt-vt100.el, emulation/edt.el, emulation/pc-select.el,
+        emulation/tpu-edt.el, emulation/tpu-extras.el,
+        emulation/tpu-mapper.el, emulation/vip.el, expand.el, finder.el,
+        foldout.el, follow.el, format.el, forms-d2.el, forms.el,
+        generic.el, hi-lock.el, hilit-chg.el, hippie-exp.el, info-look.el,
+        international/isearch-x.el, international/iso-cvt.el,
+        international/ogonek.el, international/quail.el,
+        international/utf-8.el, jit-lock.el, language/devan-util.el,
+        language/devanagari.el, language/ethio-util.el,
+        language/ethiopic.el, language/european.el, language/indian.el,
+        language/romanian.el, language/tibet-util.el, language/tibetan.el,
+        mail/feedmail.el, mail/footnote.el, mail/mail-hist.el,
+        mail/mailheader.el, mail/mspools.el, mail/supercite.el,
+        mouse-sel.el, net/browse-url.el, net/net-utils.el,
+        net/quickurl.el, net/snmp-mode.el, net/webjump.el,
+        net/zone-mode.el, pcomplete.el, progmodes/antlr-mode.el,
+        progmodes/autoconf.el, progmodes/cmacexp.el,
+        progmodes/cperl-mode.el, progmodes/cpp.el, progmodes/cwarn.el,
+        progmodes/delphi.el, progmodes/ebnf-bnf.el, progmodes/ebnf-iso.el,
+        progmodes/ebnf-otz.el, progmodes/ebnf-yac.el,
+        progmodes/ebnf2ps.el, progmodes/executable.el,
+        progmodes/fortran.el, progmodes/idlw-shell.el,
+        progmodes/idlw-toolbar.el, progmodes/idlwave.el,
+        progmodes/m4-mode.el, progmodes/mantemp.el,
+        progmodes/meta-mode.el, progmodes/octave-inf.el,
+        progmodes/ps-mode.el, progmodes/scheme.el, progmodes/simula.el,
+        progmodes/tcl.el, ps-bdf.el, ps-mule.el, ps-print.el, recentf.el,
+        rect.el, regi.el, rsz-mini.el, s-region.el, scroll-all.el,
+        shadowfile.el, speedbar.el, term/AT386.el, term/internal.el,
+        term/iris-ansi.el, term/mac-win.el, term/tvi970.el,
+        textmodes/artist.el, textmodes/flyspell.el, textmodes/ispell.el,
+        textmodes/page-ext.el, textmodes/refer.el, textmodes/texinfmt.el,
+        textmodes/texinfo.el, textmodes/texnfo-upd.el,
+        textmodes/two-column.el, time-stamp.el, timezone.el,
+        toolbar/tool-bar.el, vc-rcs.el, vc-sccs.el, view.el, w32-fns.el,
+        which-func.el, whitespace.el, wid-browse.el, widget.el,
+        windmove.el, woman.el, xt-mouse.el: Some fixes to follow coding
+        conventions.
+
 2001-07-16  Gerd Moellmann  <gerd@gnu.org>
 
         * simple.el (set-variable): Require 'cus-edit' instead of
diff --git a/lisp/align.el b/lisp/align.el
index 7c8ad919baa..ad4bd039661 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1,4 +1,4 @@
-;;; align --- align text to a specific column, by regexp
+;;; align.el --- align text to a specific column, by regexp
 
 ;; Copyright (C) 1999, 2000 Free Sofware Foundation
 
diff --git a/lisp/apropos.el b/lisp/apropos.el
index f284b18b199..553b54057d8 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1,4 +1,4 @@
-;;; apropos.el --- apropos commands for users and programmers.
+;;; apropos.el --- apropos commands for users and programmers
 
 ;; Copyright (C) 1989, 1994, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 9ac33c30f65..de07345f21c 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -1,4 +1,4 @@
-;;; autorevert --- revert buffers when files on disk change
+;;; autorevert.el --- revert buffers when files on disk change
 
 ;; Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc.
 
@@ -373,4 +373,4 @@ the timer when no buffers need to be checked."
 (if global-auto-revert-mode
     (global-auto-revert-mode 1))
 
-;; autorevert.el ends here.
+;;; autorevert.el ends here
diff --git a/lisp/battery.el b/lisp/battery.el
index 9ab5d20d0ac..0d81e1debb4 100644
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -1,4 +1,4 @@
-;;; battery.el --- display battery status information.
+;;; battery.el --- display battery status information
 
 ;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 4582a55f948..be0406610cb 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1,4 +1,4 @@
-;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later.
+;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later
 
 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation
 
@@ -77,7 +77,7 @@
 ;; Boy, that's a tough one.  Probably Hong Min, or maybe Emperor's
 ;; Choice (both in Chicago's Chinatown).  Well, both.  How about you?
 
-;;;; Code:
+;;; Code:
 
 (require 'pp)
 
diff --git a/lisp/calculator.el b/lisp/calculator.el
index b337f4c302d..7d6ec114307 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1,10 +1,10 @@
-;;; calculator.el --- A [not so] simple calculator for Emacs.
+;;; calculator.el --- a [not so] simple calculator for Emacs
 
 ;; Copyright (C) 1998, 2000 by Free Software Foundation, Inc.
 
 ;; Author: Eli Barzilay <eli@barzilay.org>
 ;; Keywords: tools, convenience
-;; Time-stamp: <2000-11-19 20:59:59 eli>
+;; Time-stamp: <2001-07-15 11:04:11 pavel>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 397cc4f5156..772157adbc6 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -1,11 +1,11 @@
-;; todo-mode.el -- Major mode for editing TODO list files
+;;; todo-mode.el --- major mode for editing TODO list files
 
 ;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc.
 
 ;; Author: Oliver Seidel <os10000@seidel-space.de>
 ;;   [Not clear the above works, July 2000]
 ;; Created: 2 Aug 1997
-;; Version: $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
+;; Version: $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
 ;; Keywords: calendar, todo
 
 ;; This file is part of GNU Emacs.
@@ -97,7 +97,7 @@
 ;;
 ;;      Which version of todo-mode.el does this documentation refer to?
 ;;
-;;      $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
+;;      $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
 ;;
 ;;  Pre-Requisites
 ;;
diff --git a/lisp/complete.el b/lisp/complete.el
index 2759c2380fc..de58752b636 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -946,4 +946,4 @@ absolute rather than relative to some directory on the SEARCH-PATH."
 
 (provide 'complete)
 
-;;; End.
+;;; complete.el ends here
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 466f9b5be0b..4cb856cc044 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -1,4 +1,4 @@
-;;; cus-dep.el --- Find customization dependencies.
+;;; cus-dep.el --- find customization dependencies
 ;;
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 ;;
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (eval-when-compile (require 'cl))
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 862cbf7d5d5..11c85882f2e 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1,4 +1,4 @@
-;;; cus-edit.el --- Tools for customizing Emacs and Lisp packages.
+;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
 ;;
 ;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index dc2461c0e1e..2a2693c5f1a 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -1,4 +1,4 @@
-;;; cus-face.el -- customization support for faces.
+;;; cus-face.el --- customization support for faces
 ;;
 ;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/delim-col.el b/lisp/delim-col.el
index f24e187ba3c..3f7ca7ecee8 100644
--- a/lisp/delim-col.el
+++ b/lisp/delim-col.el
@@ -1,13 +1,13 @@
-;;; delim-col.el --- Prettify all columns in a region or rectangle.
+;;; delim-col.el --- prettify all columns in a region or rectangle
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:      Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Maintainer:  Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Time-stamp:  <2000/10/28 09:34:15 Vinicius>
-;; Version:     2.1
-;; Keywords:    internal
-;; X-URL:       http://www.cpqd.com.br/~vinicius/emacs/
+;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Time-stamp: <2001-07-15 11:12:35 pavel>
+;; Version: 2.1
+;; Keywords: internal
+;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 09267c28c18..1a727f139d5 100644
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -1,4 +1,4 @@
-;;; dos-fns.el --- MS-Dos specific functions.
+;;; dos-fns.el --- MS-Dos specific functions
 
 ;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc.
 
@@ -244,4 +244,4 @@ that your video hardware might not support 50-line mode."
 
 (provide 'dos-fns)
 
-; dos-fns.el ends here
+;;; dos-fns.el ends here
diff --git a/lisp/double.el b/lisp/double.el
index 84a66d29e43..9287aa7f907 100644
--- a/lisp/double.el
+++ b/lisp/double.el
@@ -1,4 +1,4 @@
-;;; double.el --- Support for keyboard remapping with double clicking
+;;; double.el --- support for keyboard remapping with double clicking
 
 ;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc.
 
@@ -208,4 +208,3 @@ when pressed twice.  See variable `double-map' for details."
 (provide 'double)
 
 ;;; double.el ends here
-
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index d53bdb11359..8a3201567c1 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -722,4 +722,3 @@ If START or END is negative, it counts from the end."
 (provide 'edmacro)
 
 ;;; edmacro.el ends here
-
diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index 9cd592057dc..9a23e622c45 100644
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -1,4 +1,4 @@
-;;; elid-head.el --- hide headers in files
+;;; elide-head.el --- hide headers in files
 
 ;; Copyright (C) 1999 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8af5da987ac..37bc21fab18 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -1,4 +1,4 @@
-;;; autoload.el --- maintain autoloads in loaddefs.el.
+;;; autoload.el --- maintain autoloads in loaddefs.el
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 5bc22cc19de..947fcb3ab9c 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1,4 +1,4 @@
-;;; checkdoc --- Check documentation strings for style requirements
+;;; checkdoc.el --- check documentation strings for style requirements
 
 ;;;  Copyright (C) 1997, 1998, 2001  Free Software Foundation
 
diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el
index 01cf288ea71..9afe4fe426a 100644
--- a/lisp/emacs-lisp/cl-compat.el
+++ b/lisp/emacs-lisp/cl-compat.el
@@ -186,4 +186,3 @@
 (provide 'cl-compat)
 
 ;;; cl-compat.el ends here
-
diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index 9894c994c00..94af9c988ba 100644
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -7,7 +7,7 @@
 ;; LCD Archive Entry:
 ;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org
 ;; |Edebug specs for cl.el
-;; |$Date: 2000/04/13 19:10:09 $|1.1|
+;; |$Date: 2000/08/15 12:39:03 $|1.1|
 
 ;; This file is part of GNU Emacs.
 
@@ -26,13 +26,15 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;;; Commentary:
+;;; Commentary:
 
 ;; These specs are to be used with edebug.el version 3.3 or later and
 ;; cl.el version 2.03 or later, by Dave Gillespie <daveg@synaptics.com>.
 
 ;; This file need not be byte-compiled, but it shouldn't hurt.
 
+;;; Code:
+
 (provide 'cl-specs)
 ;; Do the above provide before the following require.
 ;; Otherwise if you load this before edebug if cl is already loaded
@@ -468,3 +470,4 @@
 (def-edebug-spec loop-d-type-spec
   (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
 
+;;; cl-specs.el ends here
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 7c06b97269d..22898136468 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -165,4 +165,4 @@ copyright, if any, are updated as well."
 ;; coding: emacs-mule
 ;; End:
 
-;; copyright.el ends here
+;;; copyright.el ends here
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index 16f8b5479bd..435465f427b 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -1,4 +1,4 @@
-;;; cust-print.el --- handles print-level and print-circle.
+;;; cust-print.el --- handles print-level and print-circle
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
@@ -689,4 +689,3 @@ See `custom-format' for the details."
 (provide 'cust-print)
 
 ;;; cust-print.el ends here
-
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 9d99e5fe097..8d7f185709b 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -1,4 +1,4 @@
-;;; easy-mmode.el --- easy definition for major and minor modes.
+;;; easy-mmode.el --- easy definition for major and minor modes
 
 ;; Copyright (C) 1997,2000  Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index d6c5ed3a29c..32538c45580 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -1,4 +1,4 @@
-;;; elint.el -- Lint Emacs Lisp
+;;; elint.el --- Lint Emacs Lisp
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -806,4 +806,3 @@ If no documentation could be found args will be `unknown'."
 (provide 'elint)
 
 ;;; elint.el ends here
-
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index a83dc0415b2..6bb26507ec2 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -1,4 +1,4 @@
-;;; ewoc.el -- Utility to maintain a view of a list of objects in a buffer
+;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer
 
 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000   Free Software Foundation
 
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index fa6007d585a..f15b92d1507 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -43,7 +43,7 @@
 ;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's
 ;; "fff.el").
 
-;;;; Code:
+;;; Code:
 
 (require 'loadhist)
 
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 926706a7307..8c51c2f6d70 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -21,7 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
+
 (defgroup pp nil
   "Pretty printer for Emacs Lisp."
   :prefix "pp-"
@@ -162,4 +165,4 @@ Ignores leading comment characters."
 
 (provide 'pp)                           ; so (require 'pp) works
 
-;;; pp.el ends here.
+;;; pp.el ends here
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index e3667cbc78e..11cf0f6ab2f 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -1,4 +1,4 @@
-;;; re-builder.el --- Building Regexps with visual feedback
+;;; re-builder.el --- building Regexps with visual feedback
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 159036b7bfc..4d7477cb69e 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -1,4 +1,4 @@
-;;; shadow.el --- Locate Emacs Lisp file shadowings.
+;;; shadow.el --- locate Emacs Lisp file shadowings
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el
index d19689817c3..1200e7b3c30 100644
--- a/lisp/emacs-lisp/sregex.el
+++ b/lisp/emacs-lisp/sregex.el
@@ -606,4 +606,3 @@ has one of the following forms:
 (provide 'sregex)
 
 ;;; sregex.el ends here
-
diff --git a/lisp/emerge.el b/lisp/emerge.el
index 332c8b46995..551ba3503e1 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -2,6 +2,8 @@
 
 ;;; The author has placed this file in the public domain.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Dale R. Worley <worley@world.std.com>
 ;; Version: 5fsf
 ;; Keywords: unix, tools
@@ -19,6 +21,8 @@
 ;; LOST DATA OR LOST PROFITS, OR FOR ANY SPECIAL, INCIDENTAL OR CONSEQUENTIAL
 ;; DAMAGES.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el
index 2aeb6aac742..cdbe34060ac 100644
--- a/lisp/emulation/edt-lk201.el
+++ b/lisp/emulation/edt-lk201.el
@@ -1,4 +1,4 @@
-;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
+;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
 
 ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
 
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
@@ -39,6 +39,9 @@
 ;; F1 - F5 are not available on many DEC VT series terminals.
 ;; However, this is not always the case.  So support for F1 - F5 is
 ;; provided here and in lisp/term/lk201.el.
+
+;;; Code:
+
 (defconst *EDT-keys*
   '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) 
     ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -53,3 +56,5 @@
     ("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
     ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
     ("F19" . [f19]) ("F20" . [f20])))
+
+;;; edt-lk201.el ends here
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 9b60f9f1fd0..7f74ab60f95 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -1,4 +1,4 @@
-;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs
+;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
 
 ;; Copyright (C) 1994, 1995, 2000, 2001  Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el
index 0cd9ece4498..2b6aa25b061 100644
--- a/lisp/emulation/edt-pc.el
+++ b/lisp/emulation/edt-pc.el
@@ -1,4 +1,4 @@
-;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards
+;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
 
 ;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
 
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
@@ -68,6 +68,9 @@
 ;; and F17 through F20 do not exist on the PC, so the EDT emulation is
 ;; configured below to ignore attempts to bind functions to those keys.
 ;;
+
+;;; Code:
+
 (defconst *EDT-keys*
   '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) 
     ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -83,3 +86,5 @@
     ("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" )
     ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
     ("F19" . "" ) ("F20" . "" )))
+
+;;; edt-pc.el ends here
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index 42f81cd6f56..283b7827c73 100644
--- a/lisp/emulation/edt-vt100.el
+++ b/lisp/emulation/edt-vt100.el
@@ -1,4 +1,4 @@
-;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals
+;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
 
 ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
 
@@ -23,12 +23,15 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Usage:
+;;; Commentary:
 
 ;;  See edt-user.doc in the Emacs etc directory.
 
 ;; ====================================================================
 
+
+;;; Code:
+
 ;; Get keyboard function key mapping to EDT keys.
 (load "edt-lk201" nil t)
 
@@ -42,3 +45,5 @@
 (defun edt-set-term-width-132 ()
   "Set terminal width to 132 columns."
   (vt100-wide-mode 1))
+
+;;; edt-vt100.el ends here
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 2912da5df28..d54c0bba8cb 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1,4 +1,4 @@
-;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19
+;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
 
 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index fde3672f3a8..c8c3331ba31 100644
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -77,6 +77,8 @@
 ;;    other programs.
 ;;
 
+;;; Code:
+
 ;;;; Customization:
 (defgroup pc-select nil
   "Emulate pc bindings."
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 21891d24862..f17ff953884 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1071,7 +1071,7 @@ kills modified buffers without asking."
   (interactive)
   (let ((list (tpu-make-file-buffer-list (buffer-list))))
     (setq list (delq (current-buffer) list))
-    (if (not list) (error "No other buffers."))
+    (if (not list) (error "No other buffers"))
     (switch-to-buffer (car (reverse list)))))
 
 (defun tpu-make-file-buffer-list (buffer-list)
@@ -1343,7 +1343,7 @@ The text is saved for the tpu-paste command."
            (delete-region beg end)
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-store-text nil
   "Copy the selected region to the cut buffer without deleting it.
@@ -1365,7 +1365,7 @@ The text is saved for the tpu-paste command."
                (buffer-substring (tpu-match-beginning) (tpu-match-end)))
          (tpu-unset-match))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-cut (arg)
   "Copy selected region to the cut buffer.  In the absence of an
@@ -1392,7 +1392,7 @@ argument, delete the selected region too."
            (if (not arg) (delete-region beg end))
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-delete-current-line (num)
   "Delete one or specified number of lines after point.
@@ -1532,7 +1532,7 @@ With argument reinserts the character that many times."
                           (not case-replace) (not tpu-regexp-p))
            (tpu-unset-match)))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-substitute (num)
   "Replace the selected region with the contents of the cut buffer, and
@@ -1548,7 +1548,7 @@ A negative argument means replace all occurrences of the search string."
                (tpu-search-internal-core tpu-search-last-string)))
            (setq num (1- num))))
         (t
-         (error "No selection active."))))
+         (error "No selection active"))))
 
 (defun tpu-lm-replace (from to)
   "Interactively search for OLD-string and substitute NEW-string."
@@ -1558,7 +1558,7 @@ A negative argument means replace all occurrences of the search string."
   (let ((doit t) (strings 0))
 
     ;; Can't replace null strings
-    (if (string= "" from) (error "No string to replace."))
+    (if (string= "" from) (error "No string to replace"))
 
     ;; Find the first occurrence
     (tpu-set-search)
@@ -1631,7 +1631,7 @@ are performed without asking.  Only works in forward direction."
 or each line in the entire buffer if no region is selected."
   (interactive
    (list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist)))
-  (if (string= "" text) (error "No string specified."))
+  (if (string= "" text) (error "No string specified"))
   (cond ((tpu-mark)
          (save-excursion
            (if (> (point) (tpu-mark)) (exchange-point-and-mark))
@@ -1649,7 +1649,7 @@ or each line in the entire buffer if no region is selected."
 or each line of the entire buffer if no region is selected."
   (interactive
    (list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist)))
-  (if (string= "" text) (error "No string specified."))
+  (if (string= "" text) (error "No string specified"))
   (cond ((tpu-mark)
          (save-excursion
            (if (> (point) (tpu-mark)) (exchange-point-and-mark))
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index 479af176526..465b923f891 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -1,4 +1,4 @@
-;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
+;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
 
 ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index ba6d032fd6a..39aae2cf2a7 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -1,4 +1,4 @@
-;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file
+;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
 
 ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 588a6c6e319..6db67394ead 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -817,7 +817,7 @@ is the name of the register for COM."
           (com (car (cdr (cdr vip-d-com))))
           (reg (nth 3 vip-d-com)))
       (if (null val) (setq val (car (cdr vip-d-com))))
-      (if (null m-com) (error "No previous command to repeat."))
+      (if (null m-com) (error "No previous command to repeat"))
       (setq vip-use-register reg)
       (funcall m-com (cons val com)))))
 
@@ -1499,7 +1499,7 @@ used.  This behaviour is controlled by the sign of prefix numeric value."
   (let ((com (vip-getcom arg)))
     (if (numberp arg)
         (if (or (> arg 99) (< arg 1))
-            (error "Prefix must be between 1 and 99.")
+            (error "Prefix must be between 1 and 99")
           (goto-char
            (if (> (point-max) 80000)
                (* (/ (point-max) 100) arg)
@@ -1693,7 +1693,7 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   "Repeat previous search."
   (interactive "P")
   (let ((val (vip-p-val arg)) (com (vip-getcom arg)))
-    (if (null vip-s-string) (error "No previous search string."))
+    (if (null vip-s-string) (error "No previous search string"))
     (vip-search vip-s-string vip-s-forward arg)
     (if com (vip-execute-com 'vip-search-next val com))))
 
@@ -1701,7 +1701,7 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   "Repeat previous search in the reverse direction."
   (interactive "P")
   (let ((val (vip-p-val arg)) (com (vip-getcom arg)))
-    (if (null vip-s-string) (error "No previous search string."))
+    (if (null vip-s-string) (error "No previous search string"))
     (vip-search vip-s-string (not vip-s-forward) arg)
     (if com (vip-execute-com 'vip-search-Next val com))))
 
@@ -1742,11 +1742,11 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
           (if (null buffer-name)
               (current-buffer)
             (get-buffer buffer-name)))
-    (if (null buffer) (error "Buffer %s nonexistent." buffer-name))
+    (if (null buffer) (error "Buffer %s nonexistent" buffer-name))
     (if (or (not (buffer-modified-p buffer))
             (y-or-n-p "Buffer is modified, are you sure? "))
         (kill-buffer buffer)
-      (error "Buffer not killed."))))
+      (error "Buffer not killed"))))
 
 (defun vip-find-file ()
   "Visit file in the current window."
diff --git a/lisp/expand.el b/lisp/expand.el
index deb4a5f8577..0e700c1d2a4 100644
--- a/lisp/expand.el
+++ b/lisp/expand.el
@@ -1,4 +1,4 @@
-;;; expand.el --- make abbreviations more usable.
+;;; expand.el --- make abbreviations more usable
 
 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/finder.el b/lisp/finder.el
index a64e797a366..2d843e0fdf9 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -116,6 +116,7 @@ no arguments compiles from `load-path'."
       (find-file "finder-inf.el")
       (erase-buffer)
       (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
+      (insert ";; This file is part of GNU Emacs.\n")
       (insert ";; Keywords: help\n")
       (insert ";;; Commentary:\n")
       (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
diff --git a/lisp/foldout.el b/lisp/foldout.el
index 4a2aa2b06a5..94d30467e5e 100644
--- a/lisp/foldout.el
+++ b/lisp/foldout.el
@@ -1,4 +1,4 @@
-;;; foldout.el --- Folding extensions for outline-mode and outline-minor-mode.
+;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
@@ -568,4 +568,3 @@ Valid modifiers are shift, control, meta, alt, hyper and super.")
 (provide 'foldout)
 
 ;;; foldout.el ends here
-
diff --git a/lisp/follow.el b/lisp/follow.el
index 92ad5829e4d..8b62c622812 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -1,4 +1,4 @@
-;;; follow.el --- Minor mode, Synchronize windows showing the same buffer.
+;;; follow.el --- synchronize windows showing the same buffer
 
 ;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/format.el b/lisp/format.el
index 8309ec958bb..561c5e4d785 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -462,7 +462,7 @@ the value of `foo'."
       (cdr list)
     (let ((p list))
       (while (not (eq (cdr p) cons))
-        (if (null p) (error "format-delq-cons: not an element."))
+        (if (null p) (error "format-delq-cons: not an element"))
         (setq p (cdr p)))
       ;; Now (cdr p) is the cons to delete
       (setcdr p (cdr cons))
diff --git a/lisp/forms-d2.el b/lisp/forms-d2.el
index 22331292e14..7cb8b0c77fd 100644
--- a/lisp/forms-d2.el
+++ b/lisp/forms-d2.el
@@ -3,8 +3,14 @@
 ;; Author: Johan Vromans <jvromans@squirrel.nl>
 ;; Created: 1989
 
+;; This file is part of GNU Emacs.
+
+;;; Commentary:
+
 ;; This sample forms exploit most of the features of forms mode.
 
+;;; Code:
+
 ;; Set the name of the data file.
 (setq forms-file "forms-d2.dat")
 
@@ -78,3 +84,5 @@ used to fill to the column."
      ))
 
 ;; That's all, folks!
+
+;;; forms-d2.el ends here
diff --git a/lisp/forms.el b/lisp/forms.el
index 27a9da38133..0a25e77bd73 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -301,10 +301,10 @@
 (provide 'forms)                        ;;; official
 (provide 'forms-mode)                   ;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.40 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.41 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.40 1999/11/13 22:05:56 gerd Exp $")
+  $Id: forms.el,v 2.41 2001/02/07 23:40:52 fx Exp $")
 
 (defcustom forms-mode-hooks nil
   "Hook run upon entering Forms mode."
@@ -1219,7 +1219,7 @@ Commands:                        Equivalent keys in read-only mode:
 
       ;; Need a file to do this.
       (if (not (file-exists-p forms-file))
-          (error "Need existing file or explicit 'forms-number-of-records'.")
+          (error "Need existing file or explicit 'forms-number-of-records'")
 
         ;; Visit the file and extract the first record.
         (setq forms--file-buffer (find-file-noselect forms-file))
@@ -2090,4 +2090,4 @@ Usage: (setq forms-number-of-fields
           (goto-char (point-max))
           (insert ret)))))
 
-;;; forms.el ends here.
+;;; forms.el ends here
diff --git a/lisp/generic.el b/lisp/generic.el
index fd2ac80afa0..7f2051329c9 100644
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -1,4 +1,4 @@
-;;; generic.el --- Defining simple major modes with comment and font-lock.
+;;; generic.el --- defining simple major modes with comment and font-lock
 ;;
 ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index e37cb94d1a9..86e62eea052 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -1,4 +1,4 @@
-;;; hi-lock.el --- Minor mode for interactive automatic highlighting.
+;;; hi-lock.el --- minor mode for interactive automatic highlighting
 
 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
 
@@ -22,7 +22,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Commentary
+;;; Commentary:
 ;; 
 ;;  With the hi-lock commands text matching interactively entered
 ;;  regexp's can be highlighted.  For example, `M-x highlight-regexp
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index 5da5d729e62..c5fb972a7ad 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -853,11 +853,11 @@ changes are made, so \\[highlight-changes-next-change] and
     (if (buffer-modified-p buf-a)
         (if (y-or-n-p (format "OK to save %s?  " file-a))
                        (save-buffer buf-a)
-          (error "Buffer must be saved before comparing with a file.")))
+          (error "Buffer must be saved before comparing with a file")))
     (if (and existing-buf (buffer-modified-p buf-b))
         (if (y-or-n-p (format "OK to save %s?  " file-b))
                        (save-buffer buf-b)
-          (error "Cannot compare with a file in an unsaved buffer.")))
+          (error "Cannot compare with a file in an unsaved buffer")))
     (highlight-changes-mode 'active)
     (if existing-buf (with-current-buffer buf-b
                        (highlight-changes-mode 'active)))
diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el
index 830f6480322..11aa65205e0 100644
--- a/lisp/hippie-exp.el
+++ b/lisp/hippie-exp.el
@@ -1,4 +1,4 @@
-;;; hippie-exp.el --- expand text trying various ways to find its expansion.
+;;; hippie-exp.el --- expand text trying various ways to find its expansion
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
diff --git a/lisp/info-look.el b/lisp/info-look.el
index d790c3cf178..eccf7dcd6c4 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -1,4 +1,4 @@
-;;; info-look.el --- major-mode-sensitive Info index lookup facility.
+;;; info-look.el --- major-mode-sensitive Info index lookup facility
 ;; An older version of this was known as libc.el.
 
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el
index bd49321dd5e..6f45540b292 100644
--- a/lisp/international/isearch-x.el
+++ b/lisp/international/isearch-x.el
@@ -25,6 +25,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el
index 44821419a31..7374c7f5d41 100644
--- a/lisp/international/iso-cvt.el
+++ b/lisp/international/iso-cvt.el
@@ -1,4 +1,4 @@
-;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
+;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
 ;; This file was formerly called gm-lingo.el.
 
 ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc.
diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el
index 43a051f9f7e..6f8a30b8f05 100644
--- a/lisp/international/ogonek.el
+++ b/lisp/international/ogonek.el
@@ -318,7 +318,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix."
           (format "%s (default %s): " prompt 
                   (char-to-string (eval default-prefix-var))))))
     (if (> (length prefix-string) 1)
-        (error "! Only one character expected.") 
+        (error "! Only one character expected") 
       ;; set the default prefix character to the one just read
       (set default-prefix-var
            (if (string= prefix-string "") 
@@ -333,7 +333,7 @@ Before returning a result test whether the string ENCODING is in
 the list `ogonek-name-encoding-alist'"
   (let ((code-list (assoc encoding ogonek-name-encoding-alist)))
     (if (null code-list)
-      (error "! Name `%s' not known in `ogonek-name-encoding-alist'."
+      (error "! Name `%s' not known in `ogonek-name-encoding-alist'"
                encoding)
       (cdr code-list))))
 
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 088fb84e8e7..6a26b344bfa 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1,4 +1,4 @@
-;;; quail.el --- Provides simple input method for multilingual text
+;;; quail.el --- provides simple input method for multilingual text
 
 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el
index 1bb0c52d3d3..85f60409567 100644
--- a/lisp/international/utf-8.el
+++ b/lisp/international/utf-8.el
@@ -1,4 +1,4 @@
-;;; utf-8.el --- Limited UTF-8 decoding/encoding support
+;;; utf-8.el --- limited UTF-8 decoding/encoding support
 
 ;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -375,3 +375,5 @@ lower-casing commands won't work with them."
    (valid-codes (0 . 255))))
 
 (define-coding-system-alias 'utf-8 'mule-utf-8)
+
+;;; utf-8.el ends here
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index d406189f684..cf97a443646 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -1,4 +1,4 @@
-;;; jit-lock.el --- just-in-time fontification.
+;;; jit-lock.el --- just-in-time fontification
 
 ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
 
@@ -451,4 +451,4 @@ will take place when text is fontified stealthily."
   
 (provide 'jit-lock)
 
-;; jit-lock.el ends here
+;;; jit-lock.el ends here
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index be15f2d5b31..f77ac2d4214 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -1,4 +1,4 @@
-;;; devan-util.el --- Support for Devanagari Script Composition
+;;; devan-util.el --- support for Devanagari Script Composition
 
 ;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
 
@@ -1281,8 +1281,8 @@ If there's no corresponding narrow character, return CHAR as is."
 ;;
 (provide 'devan-util)
 
-;;; devan-util.el end here
-
 ;; Local Variables:
 ;; coding: iso-2022-7bit
 ;; End:
+
+;;; devan-util.el ends here
diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index 1be6e270037..e0f3e783b0a 100644
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -1,4 +1,4 @@
-;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; -*-
+;;; devanagari.el --- support for Devanagari -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
@@ -28,6 +28,7 @@
 ;; History:
 ;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
 ;; 1997.1.20 fixed some bugs.
+
 ;;; Code:
 
 (make-coding-system
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 5dde78ec832..68bfc7b1c9c 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -24,6 +24,8 @@
 
 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Information for exiting Ethiopic environment.
@@ -1296,7 +1298,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
             composite t))
      ;; neither gemination nor fidel
      ((not (eq (char-charset ch) 'ethiopic))
-      (error "Not a valid character.")))
+      (error "Not a valid character")))
 
     ;; set frequently referred character features
     (setq ch     (ethio-char-to-ethiocode ch)
@@ -1306,7 +1308,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
     (if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000
             (and (>= ch 448) (<= ch 452)) ;; \~X - \~A
             (>= ch 458))                  ;; private punctuations
-        (error "Not a valid character."))
+        (error "Not a valid character"))
 
     (setq
      newch
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 15ad961167a..27c7e77f4b7 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -1,4 +1,4 @@
-;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*-
+;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -24,6 +24,8 @@
 
 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
 
+;;; Commentary:
+
 ;;; Code:
 
 (define-ccl-program ccl-encode-ethio-font
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 9e9e10ae402..ad7353bae72 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -1,4 +1,4 @@
-;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
+;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 190e3769f3f..617c20123be 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -1,4 +1,4 @@
-;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*-
+;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 795876547d2..2ca780dd1bb 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -1,4 +1,4 @@
-;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*-
+;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; -*-
 
 ;; Copyright (C) 1998 Free Software Foundation.
 
@@ -43,5 +43,4 @@
 
 (provide 'romanian)
 
-;; romanian.el ends here
-
+;;; romanian.el ends here
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index af10e94d344..54938ffe635 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -26,11 +26,13 @@
 
 ;; Created: Feb. 17. 1997
 
-;; History:
+;;; History:
 ;; 1997.03.13 Modification in treatment of text properties;
 ;;            Support for some special signs and punctuations.
 ;; 1999.10.25 Modification for a new composition way by K.Handa.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
@@ -350,4 +352,4 @@ See also docstring of the function tibetan-compose-region."
 
 (provide 'tibet-util)
 
-;;; language/tibet-util.el ends here.
+;;; tibet-util.el ends here
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index a6824887702..4f9068c0263 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -1,4 +1,4 @@
-;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*-
+;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -29,6 +29,8 @@
 ;; History:
 ;; 1997.03.13 Modification for special signs and punctuations. 
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; Tibetan Character set.
@@ -625,4 +627,4 @@ This also matches some punctuation characters which need conversion.")
 
 (provide 'tibetan)
 
-;;; language/tibetan.el ends here
+;;; tibetan.el ends here
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 477a966a1e3..2d21c9c45c5 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1,6 +1,8 @@
 ;;; feedmail.el --- assist other email packages to massage outgoing messages
 ;;; This file is in the public domain.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Bill Carpenter <bill@bubblegum.net>, <bill@carpenter.ORG>
 ;; Version: 8
 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
@@ -2667,4 +2669,5 @@ been weeded out."
       (point-marker))))
 
 (provide 'feedmail)
+
 ;;; feedmail.el ends here
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 3a86a39b147..a10751b10cf 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,4 +1,4 @@
-;;; footnote.el --- Footnote support for message mode  -*- coding: iso-latin-1;-*-
+;;; footnote.el --- footnote support for message mode  -*- coding: iso-latin-1;-*-
 
 ;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
 
@@ -670,7 +670,7 @@ specified, jump to the text of that footnote."
             (goto-char (point-max))
             (re-search-backward (concat "^" footnote-section-tag-regexp))
             (forward-line 1))
-        (error "I don't see a footnote here.")))))
+        (error "I don't see a footnote here")))))
 
 (defun Footnote-back-to-message (&optional arg)
   "Move cursor back to footnote referent.
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index 3cecbba0a55..8d48eeda51a 100644
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -1,4 +1,4 @@
-;;; mail-hist.el --- Headers and message body history for outgoing mail.
+;;; mail-hist.el --- headers and message body history for outgoing mail
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
@@ -245,7 +245,7 @@ This function normally would be called when the message is sent."
           (ding)
           (message "No history for \"%s\"." header))
       (if (ring-empty-p ring)
-          (error "\"%s\" ring is empty." header)
+          (error "\"%s\" ring is empty" header)
         (and repeat
              (delete-region (car mail-hist-last-bounds)
                             (cdr mail-hist-last-bounds)))
@@ -293,4 +293,4 @@ received mail."
 
 (provide 'mail-hist)
 
-;; mail-hist.el ends here
+;;; mail-hist.el ends here
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index f378411ce4d..163b2ecd5ec 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -1,4 +1,4 @@
-;;; mailheader.el --- Mail header parsing, merging, formatting
+;;; mailheader.el --- mail header parsing, merging, formatting
 
 ;; Copyright (C) 1996 by Free Software Foundation, Inc.
 
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 5ddd4e3f9ad..2075ca8b7a1 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -1,4 +1,4 @@
-;;; mspools.el --- show mail spools waiting to be read.
+;;; mspools.el --- show mail spools waiting to be read
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -403,5 +403,5 @@ nil."
       nil)))
 
 (provide 'mspools)
-;;; mspools.el ends here
 
+;;; mspools.el ends here
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 6b66f2843bc..dd5ce02946f 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -32,7 +32,9 @@
 ;; |Mail and news reply citation package
 ;; |1993/09/22 18:58:46|3.1|
 
-;; Code:
+;;; Commentary:
+
+;;; Code:
 
 
 (require 'regi)
@@ -2096,7 +2098,7 @@ cited."
             (looking-at "^[ \t]*$")
             (consp arg))
         (insert (sc-mail-field "sc-citation"))
-      (error "Line is already cited."))))
+      (error "Line is already cited"))))
 
 (defun sc-version (arg)
   "Echo the current version of Supercite in the minibuffer.
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index eed64d6c851..c77f1c63f53 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -1,4 +1,4 @@
-;;; mouse-sel.el --- Multi-click selection support for Emacs 19
+;;; mouse-sel.el --- multi-click selection support for Emacs 19
 
 ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
 
@@ -737,4 +737,4 @@ If `mouse-yank-at-point' is non-nil, insert at point instead."
 
 (provide 'mouse-sel)
 
-;; mouse-sel.el ends here.
+;;; mouse-sel.el ends here
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 3b516c26692..cebdb2fdcda 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1,4 +1,4 @@
-;;; browse-url.el --- Pass a URL to a WWW browser
+;;; browse-url.el --- pass a URL to a WWW browser
 
 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
 ;;   Free Software Foundation, Inc.
@@ -1012,13 +1012,13 @@ used instead of `browse-url-new-window-flag'."
           (switch-to-buffer buf)))
       (if (eq (following-char) ?_)
           (cond ((eq browse-url-lynx-input-field 'warn)
-                 (error "Please move out of the input field first."))
+                 (error "Please move out of the input field first"))
                 ((eq browse-url-lynx-input-field 'avoid)
                  (while (and (eq (following-char) ?_) (> n 0))
                    (term-send-down) ; down arrow
                    (sit-for browse-url-lynx-input-delay))
                  (if (eq (following-char) ?_)
-                     (error "Cannot move out of the input field, sorry.")))))
+                     (error "Cannot move out of the input field, sorry")))))
       (term-send-string proc (concat "g" ; goto
                                      "\C-u" ; kill default url
                                      url
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index 579123a5dd3..f0e091ccc7f 100644
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -1,11 +1,11 @@
-;;; net-utils.el --- Network functions
+;;; net-utils.el --- network functions
 
 ;; Copyright (C) 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
 
 ;; Author:  Peter Breton <pbreton@cs.umb.edu>
 ;; Created: Sun Mar 16 1997
 ;; Keywords: network communications
-;; Time-stamp: <2000-10-04 22:39:05 pbreton>
+;; Time-stamp: <2001-07-15 00:34:52 pavel>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 4076c5ae7f2..0751aec4286 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -1,4 +1,4 @@
-;;; quickurl.el --- Insert an URL based on text at point in buffer.
+;;; quickurl.el --- insert an URL based on text at point in buffer
 
 ;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
 
@@ -7,7 +7,7 @@
 ;; Created: 1999-05-28
 ;; Keywords: hypermedia
 
-;; 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/net/snmp-mode.el b/lisp/net/snmp-mode.el
index 8753cceda25..227eccd4757 100644
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -1,4 +1,4 @@
-;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
+;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
 
 ;; Copyright (C) 1995,1998  Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;; INTRODUCTION
 ;; ------------
 ;; This package provides a major mode for editing SNMP MIBs.  It
@@ -82,6 +84,8 @@
 ;; Enabling global-font-lock-mode is also sufficient.
 ;;
 
+;;; Code:
+
 ;;;----------------------------------------------------------------------------
 ;;
 ;;                          Customize these:
@@ -713,4 +717,4 @@ controls whether case is significant."
 
 (provide 'snmp-mode)
 
-;; snmp-mode.el ends here
+;;; snmp-mode.el ends here
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index c55a12c45e8..53e97ae8f1b 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -287,14 +287,14 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
                        ((symbolp expr)
                         (if (fboundp expr)
                             (funcall expr name)
-                          (error "WebJump URL function \"%s\" undefined." 
+                          (error "WebJump URL function \"%s\" undefined" 
                                  expr)))
-                       (t (error "WebJump URL expression for \"%s\" invalid."
+                       (t (error "WebJump URL expression for \"%s\" invalid"
                                  name)))))))
 
 (defun webjump-builtin (expr name)
   (if (< (length expr) 1)
-      (error "WebJump URL builtin for \"%s\" empty." name))
+      (error "WebJump URL builtin for \"%s\" empty" name))
   (let ((builtin (aref expr 0)))
     (cond
      ((eq builtin 'mirrors)
@@ -307,12 +307,12 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
      ((eq builtin 'simple-query)
       (webjump-builtin-check-args expr name 3)
       (webjump-do-simple-query name (aref expr 1) (aref expr 2) (aref expr 3)))
-     (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid."
+     (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid"
                builtin name)))))
 
 (defun webjump-builtin-check-args (expr name count)
   (or (= (length expr) (1+ count))
-      (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args."
+      (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args"
              (aref expr 0) name count)))
 
 (defun webjump-choose-mirror (name urls)
@@ -400,4 +400,4 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 
 (provide 'webjump)
 
-;; webjump.el ends here
+;;; webjump.el ends here
diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el
index 2a534d8a6d0..d1528aa1794 100644
--- a/lisp/net/zone-mode.el
+++ b/lisp/net/zone-mode.el
@@ -1,4 +1,4 @@
-;;; zone-mode.el -- major mode for editing DNS zone files.
+;;; zone-mode.el --- major mode for editing DNS zone files
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;;
 ;;; See the comments in ``define-derived-mode zone-mode''
 ;;; (the last function in this file)
@@ -52,7 +54,7 @@
                ((not (string= old-date cur-date))
                 "00") ;; reset sequeence number
                ((>= old-seq-num 99)
-                (error "Serial number's sequenece cannot increment beyond 99."))
+                (error "Serial number's sequenece cannot increment beyond 99"))
                (t
                 (format "%02d" (1+ old-seq-num)))))
              (old-serial (concat old-date old-seq))
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 0ef1cbd05c7..521471a1da1 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -1,4 +1,4 @@
-;;; pcomplete --- programmable completion
+;;; pcomplete.el --- programmable completion
 
 ;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation
 
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 8d2f3c6f961..1047ddf600f 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -1,4 +1,4 @@
-;;; antlr-mode.el --- Major mode for ANTLR grammar files
+;;; antlr-mode.el --- major mode for ANTLR grammar files
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 ;;
@@ -1532,8 +1532,6 @@ Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
                      indent-tabs-mode (cadddr elem)
                      alist nil))))))
 
-;;; antlr-mode.el ends here
-
 ; LocalWords:  antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
 ; LocalWords:  Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev
 ; LocalWords:  ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
@@ -1541,3 +1539,5 @@ Used in `antlr-mode'.  Also a useful function in `java-mode-hook'."
 ; LocalWords:  VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen
 ; LocalWords:  VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens
 ; LocalWords:  sclass evocab ivocab importVocab deps glibs supers sep dep lang
+
+;;; antlr-mode.el ends here
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index a90e9766d61..69bf7aab775 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -1,10 +1,10 @@
-;;; autoconf.el --- Mode for editing Autoconf configure.in files.
+;;; autoconf.el --- mode for editing Autoconf configure.in files
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: languages
-;; $Revision: $
+;; $Revision: 1.1 $
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 96aef6ad9d2..a701da6e808 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;; USAGE =============================================================
 
 ;; In C mode C-C C-e is bound to c-macro-expand.  The result of the
@@ -84,6 +86,7 @@
 ;; If the start point of the region is inside a macro definition the
 ;; macro expansion is often inaccurate.
 
+;;; Code:
 
 (require 'cc-mode)
 
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 395d3011c42..42377f5beb6 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1001,7 +1001,7 @@ the faces: please specify bold, italic, underline, shadow and box.)
       (defmacro cperl-ps-extend-face-list (arg)
         `(ps-extend-face-list ,arg))
     (defmacro cperl-ps-extend-face-list (arg)
-      `(error "This version of Emacs has no `ps-extend-face-list'.")))
+      `(error "This version of Emacs has no `ps-extend-face-list'")))
   ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
   ;; macros instead of defsubsts don't work on Emacs, so we do the
   ;; expansion manually.  Any other suggestions?
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 590795a5540..53105b43b25 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -1,4 +1,4 @@
-;;; cpp.el --- Highlight or hide text according to cpp conditionals.
+;;; cpp.el --- highlight or hide text according to cpp conditionals
 
 ;; Copyright (C) 1994, 1995 Free Software Foundation
 
diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el
index bb6ac183555..b251487c9d5 100644
--- a/lisp/progmodes/cwarn.el
+++ b/lisp/progmodes/cwarn.el
@@ -1,4 +1,4 @@
-;;; cwarn.el --- Highlight suspicious C and C++ constructions.
+;;; cwarn.el --- highlight suspicious C and C++ constructions
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index c3e9a9e264f..8af7d07e2a3 100644
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1,4 +1,4 @@
-;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
+;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
 
 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
 
@@ -65,11 +65,15 @@
 (provide 'delphi)
 
 (defconst delphi-version
-  (let ((revision "$Revision: 3.4 $"))
+  (let ((revision "$Revision: 3.5 $"))
     (string-match ": \\([^ ]+\\)" revision)
     (match-string 1 revision))
   "Version of this delphi mode.")
 ;;; $Log: delphi.el,v $
+;;; Revision 3.5  2001/01/26 20:54:03  fx
+;;; (delphi-comment-face, delphi-string-face)
+;;; (delphi-keyword-face, delphi-other-face): Fix :type.
+;;;
 ;;; Revision 3.4  2000/02/09 07:04:15  blaak
 ;;; Make resourcestring a declaration region, like const and var.
 ;;;
@@ -2029,3 +2033,5 @@ no args, if that value is non-nil."
        (delphi-progress-done))))
 
   (run-hooks 'delphi-mode-hook))
+
+;;; delphi.el ends here
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index 436d4421ec3..1b748b3b9c3 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -1,11 +1,11 @@
-;;; ebnf-bnf --- Parser for EBNF
+;;; ebnf-bnf.el --- parser for EBNF
 
 ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:29:04 vinicius>
+;; Time-stamp: <2001-07-15 01:02:12 pavel>
 ;; Version:    1.5
 
 ;; This file is part of GNU Emacs.
@@ -107,7 +107,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -132,7 +132,7 @@
     (goto-char start)
     (setq token (ebnf-bnf-lex))
     (and (eq token 'end-of-input)
-         (error "Invalid EBNF file format."))
+         (error "Invalid EBNF file format"))
     (while (not (eq token 'end-of-input))
       (ebnf-message-float
        "Parsing...%s%%"
@@ -154,12 +154,12 @@
         body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-        (error "Invalid header production."))
+        (error "Invalid header production"))
     (or (eq (ebnf-bnf-lex) 'equal)
-        (error "Invalid production: missing `='."))
+        (error "Invalid production: missing `='"))
     (setq body (ebnf-body))
     (or (eq (car body) 'period)
-        (error "Invalid production: missing `.'."))
+        (error "Invalid production: missing `.'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-bnf-lex)
@@ -217,7 +217,7 @@
        (let ((kind (ebnf-node-kind node)))
          (cond
           ((eq kind 'ebnf-generate-non-terminal)
-           (error "Exception sequence should not contain a non-terminal."))
+           (error "Exception sequence should not contain a non-terminal"))
           ((eq kind 'ebnf-generate-repeat)
            (ebnf-no-non-terminal (ebnf-node-separator node)))
           ((memq kind '(ebnf-generate-optional ebnf-generate-except))
@@ -240,7 +240,7 @@
       (ebnf-term token)
     (let ((times ebnf-bnf-lex))
       (or (eq (ebnf-bnf-lex) 'repeat)
-          (error "Missing `*'."))
+          (error "Missing `*'"))
       (ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex))))))
 
 
@@ -314,13 +314,13 @@
    ((eq token 'begin-group)
     (let ((body (ebnf-body)))
       (or (eq (car body) 'end-group)
-          (error "Missing `)'."))
+          (error "Missing `)'"))
       (cdr body)))
    ;; optional
    ((eq token 'begin-optional)
     (let ((body (ebnf-body)))
       (or (eq (car body) 'end-optional)
-          (error "Missing `]'."))
+          (error "Missing `]'"))
       (ebnf-token-optional (cdr body))))
    ;; list
    ((eq token 'begin-list)
@@ -341,7 +341,7 @@
        ((eq token 'end-zero-or-more)
         (ebnf-make-zero-or-more list-part sep-part))
        (t
-        (error "Missing `}+', `}*' or `}'."))
+        (error "Missing `}+', `}*' or `}'"))
        )))
    ;; no term
    (t
@@ -441,7 +441,7 @@ See documentation for variable `ebnf-bnf-lex'."
         'end-of-input)
        ;; error
        ((eq token 'error)
-        (error "Illegal character."))
+        (error "Illegal character"))
        ;; default
        ((eq token 'default)
         (forward-char)
@@ -450,7 +450,7 @@ See documentation for variable `ebnf-bnf-lex'."
             (prog1
                 (ebnf-bnf-lex)
               (setq ebnf-default-p t))
-          (error "Illegal `default' element.")))
+          (error "Illegal `default' element")))
        ;; integer
        ((eq token 'integer)
         (setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
@@ -533,7 +533,7 @@ See documentation for variable `ebnf-bnf-lex'."
          (forward-char)
          t)
         (t
-         (error "Illegal character."))
+         (error "Illegal character"))
         ))
 
 
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el
index c5716f4a6ea..024063f19ec 100644
--- a/lisp/progmodes/ebnf-iso.el
+++ b/lisp/progmodes/ebnf-iso.el
@@ -1,11 +1,11 @@
-;;; ebnf-iso --- Parser for ISO EBNF
+;;; ebnf-iso.el --- parser for ISO EBNF
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:25:16 vinicius>
+;; Time-stamp: <2001-07-15 01:03:20 pavel>
 ;; Version:    1.5
 
 ;; This file is part of GNU Emacs.
@@ -117,7 +117,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -145,7 +145,7 @@
     (goto-char start)
     (setq token (ebnf-iso-lex))
     (and (eq token 'end-of-input)
-         (error "Invalid ISO EBNF file format."))
+         (error "Invalid ISO EBNF file format"))
     (while (not (eq token 'end-of-input))
       (ebnf-message-float
        "Parsing...%s%%"
@@ -167,12 +167,12 @@
         body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-        (error "Invalid meta identifier syntax rule."))
+        (error "Invalid meta identifier syntax rule"))
     (or (eq (ebnf-iso-lex) 'equal)
-        (error "Invalid syntax rule: missing `='."))
+        (error "Invalid syntax rule: missing `='"))
     (setq body (ebnf-iso-definition-list))
     (or (eq (car body) 'period)
-        (error "Invalid syntax rule: missing `;' or `.'."))
+        (error "Invalid syntax rule: missing `;' or `.'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-iso-lex)
@@ -233,7 +233,7 @@
   (if (eq token 'integer)
       (let ((times ebnf-iso-lex))
         (or (eq (ebnf-iso-lex) 'repeat)
-            (error "Missing `*'."))
+            (error "Missing `*'"))
         (ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex))))
     (ebnf-iso-primary token)))
 
@@ -273,20 +273,20 @@
           ((eq token 'begin-group)
            (let ((body (ebnf-iso-definition-list)))
              (or (eq (car body) 'end-group)
-                 (error "Missing `)'."))
+                 (error "Missing `)'"))
              (cdr body)))
           ;; optional sequence
           ((eq token 'begin-optional)
            (let ((body (ebnf-iso-definition-list)))
              (or (eq (car body) 'end-optional)
-                 (error "Missing `]' or `/)'."))
+                 (error "Missing `]' or `/)'"))
              (ebnf-token-optional (cdr body))))
           ;; repeated sequence
           ((eq token 'begin-zero-or-more)
            (let* ((body   (ebnf-iso-definition-list))
                   (repeat (cdr body)))
              (or (eq (car body) 'end-zero-or-more)
-                 (error "Missing `}' or `:)'."))
+                 (error "Missing `}' or `:)'"))
              (ebnf-make-zero-or-more repeat)))
           ;; empty
           (t
@@ -426,7 +426,7 @@ See documentation for variable `ebnf-iso-lex'."
         'end-of-input)
        ;; error
        ((eq token 'error)
-        (error "Illegal character."))
+        (error "Illegal character"))
        ;; integer
        ((eq token 'integer)
         (setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
@@ -451,7 +451,7 @@ See documentation for variable `ebnf-iso-lex'."
                             (ebnf-trim-right
                              (ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
         (and ebnf-no-meta-identifier
-             (error "Exception sequence should not contain a meta identifier."))
+             (error "Exception sequence should not contain a meta identifier"))
         'non-terminal)
        ;; begin optional, begin list or begin group
        ((eq token 'left-parenthesis)
@@ -511,7 +511,7 @@ See documentation for variable `ebnf-iso-lex'."
     (while (> pair 0)
       (skip-chars-forward ebnf-iso-comment-chars ebnf-limit)
       (cond ((>= (point) ebnf-limit)
-             (error "Missing end of comment: `*)'."))
+             (error "Missing end of comment: `*)'"))
             ((= (following-char) ?*)
              (skip-chars-forward "*" ebnf-limit)
              (when (= (following-char) ?\))
@@ -525,7 +525,7 @@ See documentation for variable `ebnf-iso-lex'."
                (forward-char)
                (setq pair (1+ pair))))
             (t
-             (error "Illegal character."))
+             (error "Illegal character"))
             ))))
 
 
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 224ce9f6433..0969f873bb7 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -1,11 +1,11 @@
-;;; ebnf-otz --- Syntatic chart OpTimiZer
+;;; ebnf-otz.el --- syntatic chart OpTimiZer
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 14:54:41 vinicius>
+;; Time-stamp: <2001-07-15 01:03:33 pavel>
 ;; Version:    1.0
 
 ;; This file is part of GNU Emacs.
@@ -39,7 +39,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf2ps)
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index a0a7f7048b9..317a193f399 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -1,11 +1,11 @@
-;;; ebnf-yac --- Parser for Yacc/Bison
+;;; ebnf-yac.el --- parser for Yacc/Bison
 
 ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp: <2000/12/19 15:47:23 vinicius>
+;; Time-stamp: <2001-07-15 01:04:02 pavel>
 ;; Version:    1.1
 
 ;; This file is part of GNU Emacs.
@@ -70,7 +70,7 @@
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ebnf-otz)
@@ -109,9 +109,9 @@
     (goto-char start)
     (setq token (ebnf-yac-lex))
     (and (eq token 'end-of-input)
-         (error "Invalid Yacc/Bison file format."))
+         (error "Invalid Yacc/Bison file format"))
     (or (eq (ebnf-yac-definitions token) 'yac-separator)
-        (error "Missing `%%%%'."))
+        (error "Missing `%%%%'"))
     (setq token (ebnf-yac-lex))
     (while (not (memq token '(end-of-input yac-separator)))
       (ebnf-message-float
@@ -140,9 +140,9 @@
               (setq token (ebnf-yac-lex))
               (when (eq token 'open-angle)
                 (or (eq (ebnf-yac-lex) 'non-terminal)
-                    (error "Missing type name."))
+                    (error "Missing type name"))
                 (or (eq (ebnf-yac-lex) 'close-angle)
-                    (error "Missing `>'."))
+                    (error "Missing `>'"))
                 (setq token (ebnf-yac-lex)))
               (setq token               (ebnf-yac-name-list token)
                     ebnf-yac-token-list (nconc (cdr token)
@@ -163,12 +163,12 @@
         body)
     (setq ebnf-action nil)
     (or (eq token 'non-terminal)
-        (error "Invalid rule name."))
+        (error "Invalid rule name"))
     (or (eq (ebnf-yac-lex) 'colon)
-        (error "Invalid rule: missing `:'."))
+        (error "Invalid rule: missing `:'"))
     (setq body (ebnf-yac-alternative))
     (or (eq (car body) 'period)
-        (error "Invalid rule: missing `;'."))
+        (error "Invalid rule: missing `;'"))
     (setq body (cdr body))
     (ebnf-eps-add-production header)
     (cons (ebnf-yac-lex)
@@ -243,7 +243,7 @@
                      token (ebnf-yac-lex))
                (eq token 'comma))
         (or (eq (ebnf-yac-lex) 'non-terminal)
-            (error "Missing token name."))))
+            (error "Missing token name"))))
     (cons token names)))
 
 
@@ -332,7 +332,7 @@ See documentation for variable `ebnf-yac-lex'."
         'end-of-input)
        ;; error
        ((eq token 'error)
-        (error "Illegal character."))
+        (error "Illegal character"))
        ;; "string"
        ((eq token 'string)
         (setq ebnf-yac-lex (ebnf-get-string))
@@ -405,7 +405,7 @@ See documentation for variable `ebnf-yac-lex'."
        ((= (following-char) ?\')
         (ebnf-string " -&(-~" ?\' "character"))
        (t
-        (error "Illegal character."))
+        (error "Illegal character"))
        )))
   (ebnf-yac-skip-spaces))
 
@@ -448,7 +448,7 @@ See documentation for variable `ebnf-yac-lex'."
     (while not-end
       (skip-chars-forward ebnf-yac-comment-chars ebnf-limit)
       (cond ((>= (point) ebnf-limit)
-             (error "Missing end of comment: `*/'."))
+             (error "Missing end of comment: `*/'"))
             ((= (following-char) ?*)
              (skip-chars-forward "*" ebnf-limit)
              (when (= (following-char) ?/)
@@ -456,7 +456,7 @@ See documentation for variable `ebnf-yac-lex'."
                (forward-char)
                (setq not-end nil)))
             (t
-             (error "Illegal character."))
+             (error "Illegal character"))
             ))))
 
 
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 1eb251f49c5..0ee3bda26f8 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1,11 +1,11 @@
-;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
+;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
 
 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author:     Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, ebnf, PostScript
-;; Time-stamp:        <2001/02/02 15:23:39 vinicius>
+;; Time-stamp:        <2001-07-15 01:05:00 pavel>
 ;; Version:   3.5
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
 
@@ -1000,7 +1000,7 @@ Please send all bug fixes and enhancements to
 ;;
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; code:
+;;; Code:
 
 
 (require 'ps-print)
@@ -4974,7 +4974,7 @@ end
      ;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
      (skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
      (if (or (eobp) (/= (following-char) eos-char))
-         (error "Illegal %s: missing `%c'." kind eos-char)
+         (error "Illegal %s: missing `%c'" kind eos-char)
        (forward-char)
        (1- (point))))))
 
@@ -4992,7 +4992,7 @@ end
       (goto-char (+ (point) n 1))))
   (if (= (preceding-char) ?\")
       (1- (point))
-    (error "Missing `\"'.")))
+    (error "Missing `\"'")))
 
 
 (defun ebnf-trim-right (str)
@@ -5300,5 +5300,4 @@ end
 
 (provide 'ebnf2ps)
 
-
 ;;; ebnf2ps.el ends here
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index eecaab17e3d..ce2b0b68cbb 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -284,4 +284,4 @@ file modes."
 
 (provide 'executable)
 
-;; executable.el ends here
+;;; executable.el ends here
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 4618ab8ae89..f921e59782d 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -813,7 +813,7 @@ See also `fortran-window-create-momentarily'."
           (other-window 1)
           (switch-to-buffer " fortran-window-extra" t)
           (select-window (previous-window))))
-    (error (message "No room for Fortran window.")
+    (error (message "No room for Fortran window")
            'error)))
 
 (defun fortran-window-create-momentarily (&optional arg)
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 3451610ce8e..ec1729becaa 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1,10 +1,10 @@
-;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs.
+;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs
 ;; Copyright (c) 1999, 2000 Free Software Foundation
 
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:13:34 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el
index 8ae95d772b4..0247d037e62 100644
--- a/lisp/progmodes/idlw-toolbar.el
+++ b/lisp/progmodes/idlw-toolbar.el
@@ -1,9 +1,9 @@
-;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE
+;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
 ;; Copyright (c) 1999, 2000 Free Software Foundation
 
 ;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:14:24 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
@@ -873,5 +873,3 @@ static char * file[] = {
 (provide 'idlwave-toolbar)
 
 ;;; idlw-toolbar.el ends here
-
-
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index f18189c948f..03f78af3acf 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4,10 +4,10 @@
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
 ;; Version: 4.7
-;; Date: $Date: 2000/12/11 12:44:44 $
+;; Date: $Date: 2000/12/19 11:12:40 $
 ;; Keywords: languages
 
-;; This file is part of the 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
@@ -4256,7 +4256,7 @@ will pop up."
                 (file-name-directory idlwave-libinfo-file))
                (not (string= "" (file-name-nondirectory 
                                  idlwave-libinfo-file))))
-    (error "`idlwave-libinfo-file' does not point to file in accessible directory."))
+    (error "`idlwave-libinfo-file' does not point to file in accessible directory"))
   
   (cond
    ((and arg idlwave-path-alist
@@ -5952,7 +5952,7 @@ The list is cashed in `idlwave-class-info' for faster access."
         (let* ((class (nth 2 (idlwave-current-routine))))
           ;; Check if we are in a class routine
           (unless class
-            (error "Not in a method procedure or function."))
+            (error "Not in a method procedure or function"))
           ;; Check if we need to update the "current" class
           (if (not (equal class idlwave-current-tags-class))
               (idlwave-prepare-class-tag-completion class))
@@ -6200,7 +6200,7 @@ Works for system routines and keywords only."
   (if idlwave-help-is-loaded
       t  ;; everything is OK.
     (let* ((dir (or (idlwave-help-directory)
-                    (error "Online Help is not installed (idlwave-help-directory is unknown).")))
+                    (error "Online Help is not installed (idlwave-help-directory is unknown)")))
            (lfile1 (expand-file-name "idlw-help.elc" dir))
            (lfile2 (expand-file-name "idlw-help.el" dir))
            (hfile (expand-file-name "idlw-help.txt" dir)))
@@ -6260,7 +6260,7 @@ prefix arg, the class property is cleared out."
       (if (car module)
           (apply 'idlwave-display-calling-sequence
                  (idlwave-fix-module-if-obj_new module))
-        (error "Don't know which calling sequence to show.")))))
+        (error "Don't know which calling sequence to show")))))
 
 (defun idlwave-resolve (&optional arg)
   "Call RESOLVE on the module name at point.
@@ -6364,10 +6364,10 @@ use.  With ARG force class query for object methods."
      ((null entry)
       (error "Nothing known about a module %s" name2))
      ((eq (car source) 'system)
-      (error "Source code for system routine %s is not available." 
+      (error "Source code for system routine %s is not available" 
              name2))
      ((equal (cdr source) "")
-      (error "Source code for routine %s is not available."
+      (error "Source code for routine %s is not available"
              name2))
      ((memq (car source) '(buffer lib compiled))
       (setq buf1 
@@ -6663,7 +6663,7 @@ If we do not know about MODULE, just return KEYWORD literally."
       (error "No %s %s known %s" type name
              (if initial-class (concat "in class " initial-class) "")))
      ((or (null name) (equal name ""))
-      (error "No function or procedure call at point."))
+      (error "No function or procedure call at point"))
      ((null calling-seq)
       (error "Calling sequence of %s %s is not available" type name))
      (t
@@ -6945,7 +6945,7 @@ with this command."
         (not (idlwave-shell-is-running)))
     (error "Shell is not running"))
    ((null idlwave-compiled-routines)
-    (error "No compiled routines.  Maybe you need to update with `C-c C-i'."))
+    (error "No compiled routines.  Maybe you need to update with `C-c C-i'"))
    (t
     (idlwave-list-load-path-shadows nil idlwave-compiled-routines
                                     "in the shell"))))
@@ -7603,5 +7603,3 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
 (provide 'idlwave)
 
 ;;; idlwave.el ends here
-
-
diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index 78c32490e1c..d16409092e1 100644
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -172,4 +172,4 @@
 ;;;               "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit" 
 ;;;               "m4_m4_undefine" "m4_undivert"))
 
-;;; m4.el ends here
+;;; m4-mode.el ends here
diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el
index 6c1ca3af27d..9b8fa4a6ea3 100644
--- a/lisp/progmodes/mantemp.el
+++ b/lisp/progmodes/mantemp.el
@@ -1,4 +1,4 @@
-;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output.
+;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index fff1a39e7a5..ec53cd1957b 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -1,4 +1,4 @@
-;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources.
+;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el
index dd26918e4e2..1274c3eff31 100644
--- a/lisp/progmodes/octave-inf.el
+++ b/lisp/progmodes/octave-inf.el
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'octave-mod)
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 3d011672d8e..772374de6ab 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -1,4 +1,4 @@
-;;; ps-mode.el --- PostScript mode for GNU Emacs.
+;;; ps-mode.el --- PostScript mode for GNU Emacs
 
 ;; Copyright (C) 1999 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 78aed798e1b..f4c8df155f1 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -1,4 +1,4 @@
-;;; scheme.el --- Scheme (and DSSSL) editing mode.
+;;; scheme.el --- Scheme (and DSSSL) editing mode
 
 ;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index a7321711c9d..1ed49836807 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -259,7 +259,7 @@ for SIMULA mode to function correctly."
                                                (match-beginning 2)
                                                (match-end 2)))))
     (if (not (and major minor))
-        (error "Cannot figure out the major and minor version numbers."))
+        (error "Cannot figure out the major and minor version numbers"))
     ;; calculate the major version
     (cond
      ((= major 18) (setq major 'v18))   ;Emacs 18
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 9e54726b81d..f6e559ac8cf 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1,4 +1,4 @@
-;; tcl.el --- Tcl code editing commands for Emacs
+;;; tcl.el --- Tcl code editing commands for Emacs
 
 ;; Copyright (C) 1994, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
 
@@ -6,7 +6,7 @@
 ;; Author: Tom Tromey <tromey@busco.lanl.gov>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
-;; Version: $Revision: 1.61 $
+;; Version: $Revision: 1.62 $
 
 ;; This file is part of GNU Emacs.
 
@@ -132,7 +132,7 @@
            (require 'imenu))
        ()))
 
-(defconst tcl-version "$Revision: 1.61 $")
+(defconst tcl-version "$Revision: 1.62 $")
 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
 
 ;;
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 4e19eae6b9e..66c3faf3cb1 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -1,11 +1,11 @@
-;;; ps-bdf.el --- BDF font file handler for ps-print.
+;;; ps-bdf.el --- BDF font file handler for ps-print
 
 ;; Copyright (C) 1998,99,2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 
 ;; Keywords: wp, BDF, font, PostScript
-;; Maintainer:  Kenichi Handa <handa@etl.go.jp>
-;; Time-stamp:  <2001/03/05 09:04:32 vinicius>
+;; Maintainer: Kenichi Handa <handa@etl.go.jp>
+;; Time-stamp: <2001-07-15 12:25:51 pavel>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 43ddd180ecb..e0c48db79f5 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1,13 +1,13 @@
-;;; ps-mule.el --- Provide multi-byte character facility to ps-print.
+;;; ps-mule.el --- provide multi-byte character facility to ps-print
 
 ;; Copyright (C) 1998,99,00,2001 Free Software Foundation, Inc.
 
-;; Author:      Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Author:      Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
+;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;;      Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;; Maintainer:  Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
-;; Maintainer:  Vinicius Jose Latorre <vinicius@cpqd.com.br>
-;; Keywords:    wp, print, PostScript, multibyte, mule
-;; Time-stamp:  <2001/03/16 18:50:59 Handa>
+;;      Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Keywords: wp, print, PostScript, multibyte, mule
+;; Time-stamp: <2001/03/16 18:50:59 Handa>
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index dce8bda7e37..515bf134427 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3597,7 +3597,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
             ((fboundp 'x-color-values)
              (ps-e-x-color-values x-color))
             (t
-             (error "No available function to determine X color values."))))
+             (error "No available function to determine X color values"))))
 
          (defalias 'ps-face-foreground-name 'face-foreground)
          (defalias 'ps-face-background-name 'face-background)
@@ -3630,7 +3630,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
                     x-color
                   (ps-x-make-color-instance color))))
               (t
-               (error "No available function to determine X color values.")))))
+               (error "No available function to determine X color values")))))
 
          (defun ps-face-foreground-name (face)
            (ps-xemacs-color-name (face-foreground face)))
@@ -3676,7 +3676,7 @@ Note: No major/minor-mode is activated and no local variables are evaluated for
         (with-temp-buffer
           (insert-file-contents filename)
           (buffer-string))
-      (error "ps-print PostScript prologue `%s' file was not found."
+      (error "ps-print PostScript prologue `%s' file was not found"
              filename))))
 
 
diff --git a/lisp/recentf.el b/lisp/recentf.el
index b1a141eb7a8..461edf069f0 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -1,4 +1,4 @@
-;; recentf.el --- setup a menu of recently opened files
+;;; recentf.el --- setup a menu of recently opened files
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/rect.el b/lisp/rect.el
index 4d9f034d9b6..3c71173d0f6 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -1,4 +1,4 @@
-;;; rect.el --- rectangle functions for GNU Emacs.
+;;; rect.el --- rectangle functions for GNU Emacs
 
 ;; Copyright (C) 1985, 1999, 2000, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/regi.el b/lisp/regi.el
index 81674d19988..c0cae5b5771 100644
--- a/lisp/regi.el
+++ b/lisp/regi.el
@@ -26,6 +26,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 
@@ -252,4 +254,5 @@ useful information:
 
 
 (provide 'regi)
+
 ;;; regi.el ends here
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el
index 73f83a3fb54..1e046622e5f 100644
--- a/lisp/rsz-mini.el
+++ b/lisp/rsz-mini.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Noah Friedman <friedman@splode.com>
 ;; Keywords: minibuffer, window, frame, display
 
-;; $Id: rsz-mini.el,v 1.27 1999/09/13 20:49:05 gerd Exp $
+;; $Id: rsz-mini.el,v 1.28 2000/12/06 19:36:57 fx Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -81,4 +81,4 @@
 
 (provide 'rsz-mini)
 
-;; rsz-mini.el ends here
+;;; rsz-mini.el ends here
diff --git a/lisp/s-region.el b/lisp/s-region.el
index 1e0dbadc48d..f7cabf012b7 100644
--- a/lisp/s-region.el
+++ b/lisp/s-region.el
@@ -1,4 +1,4 @@
-;;; s-region.el --- set region using shift key.
+;;; s-region.el --- set region using shift key
 
 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
 
@@ -121,4 +121,4 @@ to global keymap."
 
 (provide 's-region)
 
-;; s-region.el ends here.
+;;; s-region.el ends here
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 47c5efff8d3..23e0848450e 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -1,4 +1,4 @@
-;;; scroll-all.el -- scroll all buffers together minor mode
+;;; scroll-all.el --- scroll all buffers together minor mode
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -22,7 +22,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; Commentary
+;;; Commentary:
 ;;    This mode allows multiple buffers to be 'locked' so that scrolling
 ;;    up or down lines in any buffer causes all the buffers to mirror
 ;;    the scrolling.  It hooks into the post-command-hook to check for
@@ -37,6 +37,8 @@
 ;;    Rick Macdonald <rickm@vsl.com>
 ;;    Anders Lindgren <andersl@csd.uu.se>
 
+;;; Code:
+
 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
 
 ;;;###autoload
@@ -132,4 +134,4 @@ use either M-x customize or the function `scroll-all-mode'."
 
 (provide 'scroll-all)
 
-;; scroll-all.el ends here
+;;; scroll-all.el ends here
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 4fc3243b0d9..cc17568581b 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -842,4 +842,3 @@ look for files that have been changed and need to be copied to other systems."
 (provide 'shadowfile)
 
 ;;; shadowfile.el ends here
-
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 12f99e28015..122532362da 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1,4 +1,4 @@
-;;; speedbar --- quick access to files and tags in a frame
+;;; speedbar.el --- quick access to files and tags in a frame
 
 ;;; Copyright (C) 1996, 97, 98, 99, 2000, 01 Free Software Foundation
 
@@ -4337,7 +4337,8 @@ If we have an image associated with it, use that image."
             (def-edebug-spec speedbar-with-writable def-body)))
 
 (provide 'speedbar)
-;;; speedbar ends here
 
 ;; run load-time hooks
 (run-hooks 'speedbar-load-hook)
+
+;;; speedbar.el ends here
diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el
index d006450380b..eae65d2fbd0 100644
--- a/lisp/term/AT386.el
+++ b/lisp/term/AT386.el
@@ -33,7 +33,7 @@
   ;; The terminal initialization should already have set up some keys
   (setq AT386-keypad-map (lookup-key function-key-map "\e["))
   (if (not (keymapp AT386-keypad-map))
-      (error "What?  Your AT386 termcap/terminfo has no keycaps in it."))
+      (error "What?  Your AT386 termcap/terminfo has no keycaps in it"))
 
   ;; Equivalents of these are set up automatically by termcap/terminfo
   ;;  (define-key AT386-keypad-map "A" [up])
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index ba0199ae6f1..aeda2b6c03e 100644
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; ---------------------------------------------------------------------------
@@ -714,4 +716,3 @@ list.  You can (and should) also run it whenever the value of
 (standard-display-8bit 127 255)
 
 ;;; internal.el ends here
-
diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el
index e4da16f077e..7a0df10ed17 100644
--- a/lisp/term/iris-ansi.el
+++ b/lisp/term/iris-ansi.el
@@ -1,4 +1,4 @@
-;; term/iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps
+;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -21,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (define-key function-key-map "\e[120q" [S-escape])
 (define-key function-key-map "\e[121q" [C-escape])
 
@@ -318,4 +322,4 @@
 (define-key function-key-map "\e[196q" [C-delete])
 (define-key function-key-map "\e[197q" [M-delete])
 
-;;; term/iris-ansi.el ends here
+;;; iris-ansi.el ends here
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 8a55ff2a139..2e1e43df81d 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1,4 +1,4 @@
-;;; mac-win.el --- support for "Macintosh windows".
+;;; mac-win.el --- support for "Macintosh windows"
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; ---------------------------------------------------------------------------
@@ -966,4 +968,3 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 
 ;;; mac-win.el ends here
-
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index 200ba315534..23b507bef4a 100644
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -123,4 +123,4 @@ With a negative argument, select numeric keypad mode."
 
 (tvi970-set-keypad-mode 1)
 
-;;; tv970 ends here
+;;; tvi970.el ends here
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index d5670acb2da..a918e720b7f 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -5493,4 +5493,4 @@ The event, EV, is the mouse event."
 ;; Don't hesitate to ask me any questions.
 
 
-;; artist.el ends here
+;;; artist.el ends here
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 0498820b4fb..19d2b99bcf7 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1,11 +1,11 @@
-;;; flyspell.el --- On-the-fly spell checker
+;;; flyspell.el --- on-the-fly spell checker
 
 ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Manuel Serrano <Manuel.Serrano@unice.fr>
 ;; Keywords: convenience
 
-;;; 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
@@ -2096,4 +2096,5 @@ This function is meant to be added to 'flyspell-incorrect-hook'."
   (set (abbrev-symbol old table) new))
   
 (provide 'flyspell)
+
 ;;; flyspell.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 9b9a5a632bd..eebd32f2ec0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1,9 +1,9 @@
-;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2
+;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
 
 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
 
-;; Author:           Ken Stevens <k.stevens@ieee.org>
-;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
+;; Author:           Ken Stevens <k.stevens@ieee.org>
+;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
 ;; Stevens Mod Date: Fri Aug  4 09:41:50 PDT 2000
 ;; Stevens Revision: 3.4
 ;; Status          : Release with 3.1.12+ and 3.2.0+ ispell.
@@ -1357,7 +1357,7 @@ quit          spell session exited."
         (setq ispell-filter (cdr ispell-filter)) ; remove extra \n
         (if (and ispell-filter (listp ispell-filter))
             (if (> (length ispell-filter) 1)
-                (error "Ispell and its process have different character maps.")
+                (error "Ispell and its process have different character maps")
               (setq poss (ispell-parse-output (car ispell-filter)))))
         (cond ((eq poss t)
                (or quietly
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c5f50fe2840..3b04d3787be 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -718,7 +718,7 @@ to the same line in the pages buffer."
       (progn
         (setq pages-buffer nil
               pages-pos-list nil)
-        (error "Buffer in which pages were found is deleted.")))
+        (error "Buffer in which pages were found is deleted")))
   (beginning-of-line)
   (let* ((pages-number (1- (count-lines (point-min) (point))))
          (pos (nth pages-number pages-pos-list))
@@ -806,5 +806,4 @@ to the same line in the pages buffer."
 ;;; Place `provide' at end of file.
 (provide 'page-ext)
 
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
-
+;;; page-ext.el ends here
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 3a80efd981f..9cb10914984 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -1,4 +1,4 @@
-;;; refer.el --- look up references in bibliography files.
+;;; refer.el --- look up references in bibliography files
 
 ;; Copyright (C) 1992, 1996 Free Software Foundation, Inc.
 
@@ -175,7 +175,7 @@ found on the last refer-find-entry or refer-find-next-entry."
          (if (looking-at
               "[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,")
              (buffer-substring (match-beginning 1) (match-end 1))
-           (error "Cannot find key for entry in file %s."
+           (error "Cannot find key for entry in file %s"
                   (car refer-saved-state))))))
     (if (not (= (point) old-point))
       (set-mark old-point))))
@@ -395,4 +395,3 @@ found on the last refer-find-entry or refer-find-next-entry."
     files))
 
 ;;; refer.el ends here
-
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 91caa8a9859..01f49921b4c 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1,4 +1,4 @@
-;;; texinfmt.el --- format Texinfo files into Info files.
+;;; texinfmt.el --- format Texinfo files into Info files
 
 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 
 ;;               1994, 1995, 1996, 1997, 1998, 2000, 2001
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; Emacs lisp functions to convert Texinfo files to Info files.
@@ -362,7 +364,7 @@ if large.  You can use Info-split to do this manually."
     (save-excursion
       (goto-char (point-min))
       (or (search-forward "@setfilename" nil t)
-          (error "Texinfo file needs an `@setfilename FILENAME' line."))
+          (error "Texinfo file needs an `@setfilename FILENAME' line"))
       (setq texinfo-command-end (point))
       (setq outfile (texinfo-parse-line-arg)))
 
@@ -1105,10 +1107,10 @@ Leave point after argument."
   (goto-char texinfo-command-end)
   (skip-chars-forward " \t")
   (or (eolp)
-      (error "Extraneous text at end of command line."))
+      (error "Extraneous text at end of command line"))
   (goto-char texinfo-command-start)
   (or (bolp)
-      (error "Extraneous text at beginning of command line."))
+      (error "Extraneous text at beginning of command line"))
   (delete-region (point) (progn (forward-line 1) (point))))
 
 (defun texinfo-discard-line-with-args ()
@@ -1670,7 +1672,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
   (texinfo-discard-line)
   (let ((next (1+ (car (cdr (car texinfo-stack))))))
     (if (> next ?z)
-        (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
+        (error "More than 26 items in @alphaenumerate; get a bigger alphabet"))
     (setcar (cdr (car texinfo-stack)) next)
     (insert "\b  " next ". \n"))
   (forward-line -1))
@@ -1680,7 +1682,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.")
   (texinfo-discard-line)
   (let ((next (1+ (car (cdr (car texinfo-stack))))))
     (if (> next ?Z)
-        (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
+        (error "More than 26 items in @capsenumerate; get a bigger alphabet"))
     (setcar (cdr (car texinfo-stack)) next)
     (insert "\b  " next ". \n"))
   (forward-line -1))
@@ -2045,7 +2047,7 @@ This command is executed when texinfmt sees @item inside @multitable."
       (while (search-forward "@tab" nil t)
         (setq tab-number (1+ tab-number)))
       (if (/= tab-number (length table-widths))
-          (error "Wrong number of @tab's in a @multitable row.")))
+          (error "Wrong number of @tab's in a @multitable row")))
     (goto-char (point-min))
 ;; 2. Format each cell, and copy to a rectangle
     ;; buffer looks like this:    A1  @tab  A2  @tab  A3
@@ -4131,7 +4133,7 @@ Each file will be processed even if an error occurred previously.
 For example, invoke
   \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
   (if (not noninteractive)
-      (error "batch-texinfo-format may only be used -batch."))
+      (error "batch-texinfo-format may only be used -batch"))
   (let ((version-control t)
         (auto-save-default nil)
         (find-file-run-dired nil)
@@ -4188,4 +4190,4 @@ For example, invoke
 ;;; Place `provide' at end of file.
 (provide 'texinfmt)
 
-;;; texinfmt.el ends here.
+;;; texinfmt.el ends here
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 3d470ffb78b..04ae6fb5a8b 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -25,6 +25,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (or (fboundp 'defgroup)
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index c1df0a6fca3..a474e4c716c 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -538,7 +538,7 @@ Signal an error if not end of menu."
   (save-excursion
     (if (re-search-forward "^@end menu" nil t)
         (point)
-      (error "Menu does not have an end."))))
+      (error "Menu does not have an end"))))
 
 (defun texinfo-delete-old-menu (beginning first)
   "Delete the old menu.  Point must be in or after menu.
@@ -626,7 +626,7 @@ complements the node name rather than repeats it as a title does."
         ;; "Double colon" entry line; menu entry and node name are the same,
        ((search-forward "::" (save-excursion (end-of-line) (point)) t)
         (if (looking-at "[ \t]*[^ \t\n]+")
-            (error "Descriptive text already exists."))
+            (error "Descriptive text already exists"))
         (skip-chars-backward ": \t")
         (setq node-name (buffer-substring beginning (point))))
 
@@ -639,7 +639,7 @@ complements the node name rather than repeats it as a title does."
                                (save-excursion (forward-line 1) (point)) t)
             (progn
               (if (looking-at "[ \t]*[^ \t\n]+")
-                  (error "Descriptive text already exists."))
+                  (error "Descriptive text already exists"))
               (skip-chars-backward "., \t")
               (setq node-name (buffer-substring beginning (point))))
           ;; Menu entry line ends in a return.
@@ -648,9 +648,9 @@ complements the node name rather than repeats it as a title does."
           (skip-chars-backward " \t\n")
           (setq node-name (buffer-substring beginning (point)))
           (if (= 0 (length node-name))
-              (error "No node name on this line.")
+              (error "No node name on this line")
             (insert "."))))
-       (t (error "No node name on this line.")))
+       (t (error "No node name on this line")))
       ;; Search for node that matches node name, and copy the section title.
       (if (re-search-forward
            (concat
@@ -674,7 +674,7 @@ complements the node name rather than repeats it as a title does."
                    (progn (end-of-line)
                           (skip-chars-backward " \t")
                           (point)))))
-        (error "Cannot find node to match node name in menu entry.")))
+        (error "Cannot find node to match node name in menu entry")))
     ;; Return point to the menu and insert the title.
     (end-of-line)
     (delete-region
@@ -990,7 +990,7 @@ and leave point on the line before the `@end menu' line."
                       (goto-char end-of-menu)
                       ;; handle multi-line description
                       (if (not (re-search-backward "^\\* " nil t))
-                          (error "No entries in menu."))
+                          (error "No entries in menu"))
                       (point))))
     (while (< (point) last-entry)
       (if (re-search-forward  "^\\* " end-of-menu t)
@@ -1487,7 +1487,7 @@ Info `g*' command is inadequate."
       ;; update a single node
       (let ((auto-fill-function nil) (auto-fill-hook nil))
         (if (not (re-search-backward "^@node" (point-min) t))
-            (error "Node line not found before this position."))
+            (error "Node line not found before this position"))
         (texinfo-sequentially-update-the-node)
         (message
          "Done...sequentially updated the node .  You may save the buffer."))
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index a4c965a6966..b231a285675 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -5,6 +5,8 @@
 ;; Author: Daniel Pfeiffer <occitan@esperanto.org>
 ;; Adapted-By: ESR, Daniel Pfeiffer
 
+;; This file is part of GNU Emacs.
+
 ;; Esperanto:                            English:
 
 ;; ^Ci dosiero estas ero de GNU Emacs.   This file is part of GNU Emacs.
@@ -33,6 +35,7 @@
 ;; Free Software Foundation, 59 Temple Place - Suite 330
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
 ;;; Komentario:                          Commentary:
 
@@ -284,7 +287,7 @@ minus this value."
                 (kill-local-variable '2C-mode)
                 (kill-local-variable 'mode-line-format)
                 nil)))
-      (if req (error "You must first set two-column minor mode."))))
+      (if req (error "You must first set two-column minor mode"))))
 
 
 
@@ -385,7 +388,7 @@ accepting the proposed default buffer.
       (set-buffer b2)
       (and (2C-other)
            (not (eq b1 (2C-other)))
-           (error "Buffer already associated with buffer `%s'."
+           (error "Buffer already associated with buffer `%s'"
                   (buffer-name (2C-other))))
       (setq b1 (and (assq '2C-window-width (buffer-local-variables))
                     2C-window-width)))
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index c5129f3b651..dba5062908e 100644
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -3,7 +3,9 @@
 ;; Copyright 1989, 1993, 1994, 1995, 1997, 2000, 2001
 ;;;     Free Software Foundation, Inc.
 
-;; Maintainer's Time-stamp: <2000-12-04 16:06:50 gildea>
+;; This file is part of GNU Emacs.
+
+;; Maintainer's Time-stamp: <2001-07-15 12:35:58 pavel>
 ;; Maintainer: Stephen Gildea <gildea@alum.mit.edu>
 ;; Keywords: tools
 
diff --git a/lisp/timezone.el b/lisp/timezone.el
index 66e62b1af0f..7e1fe70ee33 100644
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar timezone-world-timezones
diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 302f6f3d937..afba8aa17f9 100644
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -1,4 +1,4 @@
-;;; tool-bar.el --- Setting up the tool bar
+;;; tool-bar.el --- setting up the tool bar
 ;;
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index 7eb3a7ca3fc..e33a9c6fdd4 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-rcs.el,v 1.18 2001/02/01 17:42:03 fx Exp $
+;; $Id: vc-rcs.el,v 1.19 2001/03/10 10:50:16 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -24,7 +24,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Commentary:   see vc.el
+;;; Commentary:
+
+;; See vc.el
 
 ;;; Code:
 
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index 2eb66b9f2e7..49692cd0727 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-sccs.el,v 1.10 2001/03/10 10:51:22 spiegel Exp $
+;; $Id: vc-sccs.el,v 1.11 2001/03/29 11:49:22 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -418,6 +418,3 @@ If NAME is nil or a version number string it's just passed through."
 (provide 'vc-sccs)
 
 ;;; vc-sccs.el ends here
-
-
-
diff --git a/lisp/view.el b/lisp/view.el
index 32bd23b449f..1b15bad4437 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -1,4 +1,4 @@
-;;; view.el --- peruse file or buffer without editing.
+;;; view.el --- peruse file or buffer without editing
 
 ;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000
 ;;   Free Software Foundation, Inc.
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 018390d4b4a..71f1610646f 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -1,4 +1,4 @@
-;;; w32-fns.el --- Lisp routines for Windows NT.
+;;; w32-fns.el --- Lisp routines for Windows NT
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
diff --git a/lisp/which-func.el b/lisp/which-func.el
index 1bcd0ea97c9..8f58d396ba0 100644
--- a/lisp/which-func.el
+++ b/lisp/which-func.el
@@ -1,4 +1,4 @@
-;;; which-func.el --- Print current function in mode line
+;;; which-func.el --- print current function in mode line
 
 ;; Copyright (C) 1994, 1997, 1998, 2001 Free Software Foundation, Inc.
 
@@ -219,4 +219,4 @@ If no function name is found, return nil."
 
 (provide 'which-func)
 
-;; which-func.el ends here
+;;; which-func.el ends here
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index c5b061dd585..184b199a53b 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1,11 +1,11 @@
-;;; whitespace.el --- Warn about and clean bogus whitespaces in the file.
+;;; whitespace.el --- warn about and clean bogus whitespaces in the file
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
 
 ;; Author: Rajesh Vaidheeswarran <rv@gnu.org>
 ;; Keywords: convenience
 
-;; $Id: $
+;; $Id: whitespace.el,v 1.15 2001/03/22 21:31:51 rv Exp $
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el
index fb573fe814c..f93e1d9611a 100644
--- a/lisp/wid-browse.el
+++ b/lisp/wid-browse.el
@@ -1,4 +1,4 @@
-;;; wid-browse.el --- Functions for browsing widgets.
+;;; wid-browse.el --- functions for browsing widgets
 ;;
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 ;;
@@ -122,7 +122,7 @@ if that value is non-nil."
               (get widget 'widget-type)
             (and (consp widget)
                  (get (widget-type widget) 'widget-type)))
-    (error "Not a widget."))
+    (error "Not a widget"))
   ;; Create the buffer.
   (if (symbolp widget)
       (let ((buffer (format "*Browse %s Widget*" widget)))
@@ -299,4 +299,4 @@ With arg, turn widget mode on if and only if arg is positive."
 
 (provide 'wid-browse)
 
-;; wid-browse.el ends here
+;;; wid-browse.el ends here
diff --git a/lisp/widget.el b/lisp/widget.el
index 24198a9d6f6..ffe8682b616 100644
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -1,4 +1,4 @@
-;;; widget.el --- a library of user interface components.
+;;; widget.el --- a library of user interface components
 ;;
 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
 ;;
@@ -95,4 +95,4 @@ The third argument DOC is a documentation string for the widget."
 
 (provide 'widget)
 
-;; widget.el ends here
+;;; widget.el ends here
diff --git a/lisp/windmove.el b/lisp/windmove.el
index e171225409a..e7c6b3daaae 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -1,4 +1,4 @@
-;;; windmove.el --- directional window-selection routines.
+;;; windmove.el --- directional window-selection routines
 ;;
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 ;;
diff --git a/lisp/woman.el b/lisp/woman.el
index 21cd901f404..c837e5306da 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -2,12 +2,12 @@
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
-;; Author:              Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Maintainer:          Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Keywords:            help, man, UN*X, manual
-;; Adapted-By:          Eli Zaretskii <eliz@is.elta.co.il>
-;; Version:             see `woman-version'
-;; URL:                 http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
+;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Keywords: help, man, UN*X, manual
+;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il>
+;; Version: see `woman-version'
+;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index ef32a802ad4..863a3c9189d 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -1,4 +1,4 @@
-;;; xt-mouse.el --- Support the mouse when emacs run in an xterm.
+;;; xt-mouse.el --- support the mouse when emacs run in an xterm
 
 ;; Copyright (C) 1994, 2000 Free Software Foundation