changeset 38412:253f761ad37b

Some fixes to follow coding conventions in files maintained by FSF.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 15 Jul 2001 16:15:35 +0000
parents 2fc02d49a9a4
children a26d9b55abb6
files lisp/ChangeLog lisp/abbrevlist.el lisp/array.el lisp/buff-menu.el lisp/calendar/appt.el lisp/case-table.el lisp/cdl.el lisp/cmuscheme.el lisp/compare-w.el lisp/completion.el lisp/custom.el lisp/derived.el lisp/dired-aux.el lisp/disp-table.el lisp/dos-vars.el lisp/echistory.el lisp/electric.el lisp/emacs-lisp/authors.el lisp/emacs-lisp/backquote.el lisp/emacs-lisp/byte-opt.el lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/float.el lisp/emacs-lisp/gulp.el lisp/emacs-lisp/helper.el lisp/emacs-lisp/lisp-mode.el lisp/emacs-lisp/regexp-opt.el lisp/emulation/mlconvert.el lisp/emulation/mlsupport.el lisp/env.el lisp/fast-lock.el lisp/find-dired.el lisp/float-sup.el lisp/frame.el lisp/gnus/gnus-mule.el lisp/gnus/pop3.el lisp/gs.el lisp/gud.el lisp/help-macro.el lisp/hexl.el lisp/imenu.el lisp/info.el lisp/informat.el lisp/international/codepage.el lisp/international/iso-ascii.el lisp/international/iso-insert.el lisp/international/iso-transl.el lisp/international/swedish.el lisp/isearch.el lisp/jka-compr.el lisp/kermit.el lisp/lazy-lock.el lisp/ledit.el lisp/loadup.el lisp/lpr.el lisp/ls-lisp.el lisp/macros.el lisp/mail/blessmail.el lisp/mail/emacsbug.el lisp/mail/mail-extr.el lisp/mail/mailabbrev.el lisp/mail/mailpost.el lisp/mail/rmail.el lisp/mail/rmailedit.el lisp/mail/rmailkwd.el lisp/mail/rmailmsc.el lisp/mail/rmailout.el lisp/mail/rmailsort.el lisp/mail/rmailsum.el lisp/mail/vms-pmail.el lisp/man.el lisp/map-ynp.el lisp/menu-bar.el lisp/misc.el lisp/msb.el lisp/net/ange-ftp.el lisp/net/goto-addr.el lisp/novice.el lisp/obsolete/auto-show.el lisp/obsolete/hilit19.el lisp/obsolete/ooutline.el lisp/obsolete/rnews.el lisp/obsolete/rnewspost.el lisp/options.el lisp/paren.el lisp/paths.el lisp/play/dissociate.el lisp/play/doctor.el lisp/play/hanoi.el lisp/play/meese.el lisp/progmodes/compile.el lisp/progmodes/ebrowse.el lisp/progmodes/hideif.el lisp/progmodes/modula2.el lisp/register.el lisp/rot13.el lisp/saveplace.el lisp/scroll-bar.el lisp/server.el lisp/sort.el lisp/soundex.el lisp/term/bg-mouse.el lisp/term/pc-win.el lisp/term/sup-mouse.el lisp/term/tty-colors.el lisp/terminal.el lisp/textmodes/bib-mode.el lisp/textmodes/makeinfo.el lisp/textmodes/page.el lisp/textmodes/paragraphs.el lisp/textmodes/picture.el lisp/textmodes/scribe.el lisp/textmodes/spell.el lisp/textmodes/tex-mode.el lisp/textmodes/text-mode.el lisp/textmodes/underline.el lisp/thingatpt.el lisp/time.el lisp/timer.el lisp/unused.el lisp/vcursor.el lisp/version.el lisp/vms-patch.el lisp/vmsproc.el lisp/vt100-led.el lisp/window.el
diffstat 125 files changed, 272 insertions(+), 163 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/ChangeLog	Sun Jul 15 16:15:35 2001 +0000
@@ -1,3 +1,42 @@
+2001-07-15  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* abbrevlist.el, array.el, buff-menu.el, calendar/appt.el,
+	case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el,
+	custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el,
+	echistory.el, electric.el, emacs-lisp/authors.el,
+	emacs-lisp/backquote.el, emacs-lisp/byte-opt.el,
+	emacs-lisp/bytecomp.el, emacs-lisp/float.el, emacs-lisp/gulp.el,
+	emacs-lisp/helper.el, emacs-lisp/lisp-mode.el,
+	emacs-lisp/regexp-opt.el, emulation/mlconvert.el,
+	emulation/mlsupport.el, env.el, fast-lock.el, find-dired.el,
+	float-sup.el, frame.el, gnus/gnus-mule.el, gnus/pop3.el, gs.el,
+	gud.el, help-macro.el, hexl.el, imenu.el, info.el, informat.el,
+	international/codepage.el, international/iso-ascii.el,
+	international/iso-insert.el, international/iso-transl.el,
+	international/swedish.el, isearch.el, jka-compr.el, kermit.el,
+	lazy-lock.el, ledit.el, loadup.el, lpr.el, ls-lisp.el, macros.el,
+	mail/blessmail.el, mail/emacsbug.el, mail/mail-extr.el,
+	mail/mailabbrev.el, mail/mailpost.el, mail/rmail.el,
+	mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmsc.el,
+	mail/rmailout.el, mail/rmailsort.el, mail/rmailsum.el,
+	mail/vms-pmail.el, man.el, map-ynp.el, menu-bar.el, misc.el,
+	msb.el, net/ange-ftp.el, net/goto-addr.el, novice.el,
+	obsolete/auto-show.el, obsolete/hilit19.el, obsolete/ooutline.el,
+	obsolete/rnews.el, obsolete/rnewspost.el, options.el, paren.el,
+	paths.el, play/dissociate.el, play/doctor.el, play/hanoi.el,
+	play/meese.el, progmodes/compile.el, progmodes/ebrowse.el,
+	progmodes/hideif.el, progmodes/modula2.el, register.el, rot13.el,
+	saveplace.el, scroll-bar.el, server.el, sort.el, soundex.el,
+	term/bg-mouse.el, term/pc-win.el, term/sup-mouse.el,
+	term/tty-colors.el, terminal.el, textmodes/bib-mode.el,
+	textmodes/makeinfo.el, textmodes/page.el, textmodes/paragraphs.el,
+	textmodes/picture.el, textmodes/scribe.el, textmodes/spell.el,
+	textmodes/tex-mode.el, textmodes/text-mode.el,
+	textmodes/underline.el, thingatpt.el, time.el, timer.el,
+	unused.el, vcursor.el, version.el, vms-patch.el, vmsproc.el,
+	vt100-led.el, window.el: Some fixes to follow coding conventions in
+	files maintained by FSF.
+
 2001-07-13  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* arc-mode.el: A fix to follow coding conventions.
--- a/lisp/abbrevlist.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/abbrevlist.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
+;;; abbrevlist.el --- list one abbrev table alphabetically ordered
 
 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 ;; Suggested by a previous version by Gildea.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun list-one-abbrev-table (abbrev-table output-buffer)
--- a/lisp/array.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/array.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; array.el --- array editing commands for Gnu Emacs
+;;; array.el --- array editing commands for GNU Emacs
 
 ;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
 
--- a/lisp/buff-menu.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/buff-menu.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; buff-menu.el --- buffer menu main function and support functions.
+;;; buff-menu.el --- buffer menu main function and support functions
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
 
--- a/lisp/calendar/appt.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/calendar/appt.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; appt.el --- appointment notification functions.
+;;; appt.el --- appointment notification functions
 
 ;; Copyright (C) 1989, 1990, 1994, 1998 Free Software Foundation, Inc.
 
--- a/lisp/case-table.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/case-table.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; case-table.el --- code to extend the character set and support case tables.
+;;; case-table.el --- code to extend the character set and support case tables
 
 ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
 
--- a/lisp/cdl.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/cdl.el	Sun Jul 15 16:15:35 2001 +0000
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun cdl-get-file (filename)
--- a/lisp/cmuscheme.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/cmuscheme.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el.
+;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el
 
 ;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
 
--- a/lisp/compare-w.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/compare-w.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; compare-w.el --- compare text between windows for Emacs.
+;;; compare-w.el --- compare text between windows for Emacs
 
 ;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
 
--- a/lisp/completion.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/completion.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1204,7 +1204,7 @@
 
 (defun locate-completion-db-error ()
   ;; recursive error: really scrod
-  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report."))
+  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report"))
 
 ;; WRITES
 (defun add-completion-to-tail-if-new (string)
--- a/lisp/custom.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/custom.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; custom.el -- Tools for declaring and initializing options.
+;;; custom.el --- tools for declaring and initializing options
 ;;
 ;; Copyright (C) 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 ;;
--- a/lisp/derived.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/derived.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; derived.el --- allow inheritance of major modes.
+;;; derived.el --- allow inheritance of major modes
 ;;; (formerly mode-clone.el)
 
 ;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
--- a/lisp/dired-aux.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/dired-aux.el	Sun Jul 15 16:15:35 2001 +0000
@@ -123,7 +123,7 @@
   "Change the group of the marked (or next ARG) files."
   (interactive "P")
   (if (memq system-type '(ms-dos windows-nt))
-      (error "chgrp not supported on this system."))
+      (error "chgrp not supported on this system"))
   (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
 
 ;;;###autoload
@@ -131,7 +131,7 @@
   "Change the owner of the marked (or next ARG) files."
   (interactive "P")
   (if (memq system-type '(ms-dos windows-nt))
-      (error "chown not supported on this system."))
+      (error "chown not supported on this system"))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
 
 ;; Process all the files in FILES in batches of a convenient size,
@@ -452,7 +452,7 @@
     (while (/= 0 arg)
       (setq file (dired-get-filename nil t))
       (if (not file)
-	  (error "Can only kill file lines.")
+	  (error "Can only kill file lines")
 	(save-excursion (and file
 			     (dired-goto-subdir file)
 			     (dired-kill-subdir)))
@@ -1902,7 +1902,7 @@
 	    dir (file-name-directory (directory-file-name dir))))
     ;;(setq dir (expand-file-name dir))
     (or (dired-goto-subdir dir)
-	(error "Cannot go up to %s - not in this tree." dir))))
+	(error "Cannot go up to %s - not in this tree" dir))))
 
 ;;;###autoload
 (defun dired-tree-down ()
--- a/lisp/disp-table.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/disp-table.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; disp-table.el --- functions for dealing with char tables.
+;;; disp-table.el --- functions for dealing with char tables
 
 ;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc.
 
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (put 'display-table 'char-table-extra-slots 6)
--- a/lisp/dos-vars.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/dos-vars.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; dos-vars.el --- MS-Dos specific user options.
+;;; dos-vars.el --- MS-Dos specific user options
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (defgroup dos-fns nil
   "MS-DOS specific functions."
   :group 'environment)
--- a/lisp/echistory.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/echistory.el	Sun Jul 15 16:15:35 2001 +0000
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'electric)			; command loop
--- a/lisp/electric.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/electric.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; electric.el --- window maker and Command loop for `electric' modes.
+;;; electric.el --- window maker and Command loop for `electric' modes
 
 ;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
 
--- a/lisp/emacs-lisp/authors.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/authors.el	Sun Jul 15 16:15:35 2001 +0000
@@ -468,4 +468,4 @@
     (authors root)
     (write-file file)))
 
-;; authors.el ends here
+;;; authors.el ends here
--- a/lisp/emacs-lisp/backquote.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/backquote.el	Sun Jul 15 16:15:35 2001 +0000
@@ -210,4 +210,4 @@
 	tail))
      (t (cons 'list heads)))))
 
-;; backquote.el ends here
+;;; backquote.el ends here
--- a/lisp/emacs-lisp/byte-opt.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
+;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
 
 ;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
 
@@ -188,7 +188,7 @@
 
 (defun byte-compile-log-lap-1 (format &rest args)
   (if (aref byte-code-vector 0)
-      (error "The old version of the disassembler is loaded.  Reload new-bytecomp as well."))
+      (error "The old version of the disassembler is loaded.  Reload new-bytecomp as well"))
   (byte-compile-log-1
    (apply 'format format
      (let (c a)
--- a/lisp/emacs-lisp/bytecomp.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; bytecomp.el --- compilation of Lisp code into byte code.
+;;; bytecomp.el --- compilation of Lisp code into byte code
 
 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000
 ;;   Free Software Foundation, Inc.
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.82 $")
+(defconst byte-compile-version "$Revision: 2.83 $")
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/emacs-lisp/float.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/float.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; float.el --- obsolete floating point arithmetic package.
+;;; float.el --- obsolete floating point arithmetic package
 
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
--- a/lisp/emacs-lisp/gulp.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/gulp.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; gulp.el --- Ask for updates for Lisp packages
+;;; gulp.el --- ask for updates for Lisp packages
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
--- a/lisp/emacs-lisp/helper.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/helper.el	Sun Jul 15 16:15:35 2001 +0000
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; hey, here's a helping hand.
--- a/lisp/emacs-lisp/lisp-mode.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
+;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985, 1986, 1999, 2000, 2001 Free Software Foundation, Inc.
 
--- a/lisp/emacs-lisp/regexp-opt.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emacs-lisp/regexp-opt.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; regexp-opt.el --- generate efficient regexps to match strings.
+;;; regexp-opt.el --- generate efficient regexps to match strings
 
 ;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
 
--- a/lisp/emulation/mlconvert.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emulation/mlconvert.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
+;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/emulation/mlsupport.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/emulation/mlsupport.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; mlsupport.el --- run-time support for mocklisp code.
+;;; mlsupport.el --- run-time support for mocklisp code
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/env.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/env.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; env.el --- functions to manipulate environment variables.
+;;; env.el --- functions to manipulate environment variables
 
 ;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
 
--- a/lisp/fast-lock.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/fast-lock.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; fast-lock.el --- Automagic text properties caching for fast Font Lock mode.
+;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
 
@@ -7,7 +7,7 @@
 ;; Keywords: faces files
 ;; Version: 3.14
 
-;;; This file is part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
--- a/lisp/find-dired.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/find-dired.el	Sun Jul 15 16:15:35 2001 +0000
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'dired)
--- a/lisp/float-sup.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/float-sup.el	Sun Jul 15 16:15:35 2001 +0000
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Provide a meaningful error message if we are running on
--- a/lisp/frame.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/frame.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; frame.el --- multi-frame management independent of window systems.
+;;; frame.el --- multi-frame management independent of window systems
 
 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001
 ;;   Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar frame-creation-function nil
--- a/lisp/gnus/gnus-mule.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/gnus/gnus-mule.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; gnus-mule.el --- Provide backward compatibility function to GNUS
+;;; gnus-mule.el --- provide backward compatibility function to GNUS
 
 ;; Copyright (C) 1995,1997 Free Software Foundation, Inc.
 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
@@ -28,6 +28,8 @@
 ;; This file provides the function `gnus-mule-add-group' for backward
 ;; compatibility with old version of Gnus included in Emacs 20.
 
+;;; Code:
+
 (require 'gnus-sum)
 
 ;;;###autoload
@@ -69,4 +71,4 @@
 
 (provide 'gnus-mule)
 
-;; gnus-mule.el ends here
+;;; gnus-mule.el ends here
--- a/lisp/gnus/pop3.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/gnus/pop3.el	Sun Jul 15 16:15:35 2001 +0000
@@ -123,7 +123,7 @@
 	  ((equal 'pass pop3-authentication-scheme)
 	   (pop3-user process pop3-maildrop)
 	   (pop3-pass process))
-	  (t (error "Invalid POP3 authentication scheme.")))
+	  (t (error "Invalid POP3 authentication scheme")))
     (setq message-count (car (pop3-stat process)))
     (pop3-quit process)
     message-count))
@@ -293,7 +293,7 @@
   (pop3-send-command process (format "USER %s" user))
   (let ((response (pop3-read-response process t)))
     (if (not (and response (string-match "+OK" response)))
-	(error (format "USER %s not valid." user)))))
+	(error (format "USER %s not valid" user)))))
 
 (defun pop3-pass (process)
   "Send authentication information to the server."
--- a/lisp/gs.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/gs.el	Sun Jul 15 16:15:35 2001 +0000
@@ -173,4 +173,4 @@
 
 (provide 'gs)
 
-;; gs.el ends here.
+;;; gs.el ends here
--- a/lisp/gud.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/gud.el	Sun Jul 15 16:15:35 2001 +0000
@@ -289,13 +289,13 @@
 				  'speedbar-highlight-face
 				  (cond ((eq ff 'gud-gdb-find-file)
 					 'gud-gdb-goto-stackframe)
-					(t (error "Should never be here.")))
+					(t (error "Should never be here")))
 				  (car frames) t))
 	(setq frames (cdr frames)))
 ;      (let ((selected-frame
 ;	     (cond ((eq ff 'gud-gdb-find-file)
 ;		    (gud-gdb-selected-frame-info buffer))
-;		   (t (error "Should never be here."))))))
+;		   (t (error "Should never be here"))))))
       )
     (setq gud-last-speedbar-stackframe gud-last-last-frame)))
 
@@ -464,7 +464,7 @@
     (and gud-gdb-complete-list
 	 (string-match "^Undefined command: \"complete\""
 		       (car gud-gdb-complete-list))
-	 (error "This version of GDB doesn't support the `complete' command."))
+	 (error "This version of GDB doesn't support the `complete' command"))
     ;; Sort the list like readline.
     (setq gud-gdb-complete-list
 	  (sort gud-gdb-complete-list (function string-lessp)))
@@ -692,7 +692,7 @@
 	   (not (and (boundp 'tags-file-name)
 		     (stringp tags-file-name)
 		     (file-exists-p tags-file-name))))
-      (error "The sdb support requires a valid tags table to work."))
+      (error "The sdb support requires a valid tags table to work"))
 
   (gud-common-init command-line 'gud-sdb-massage-args
 		   'gud-sdb-marker-filter 'gud-sdb-find-file)
@@ -1197,14 +1197,14 @@
 	;; -e goes with the next arg, so shift one extra.
 	(or (funcall shift)
 	    ;; -e as the last arg is an error in Perl.
-	    (error "No code specified for -e."))
+	    (error "No code specified for -e"))
 	(setq seen-e t))
       (funcall shift))
 
     (unless seen-e
       (if (or (not args)
 	      (string-match "^-" (car args)))
-	  (error "Can't use stdin as the script to debug."))
+	  (error "Can't use stdin as the script to debug"))
       ;; This is the program name.
       (funcall shift))
 
--- a/lisp/help-macro.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/help-macro.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,10 +1,10 @@
-;;; help-macro.el --- Makes command line help such as help-for-help
+;;; help-macro.el --- makes command line help such as help-for-help
 
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Lynn Slater <lrs@indetech.com>
 ;; Maintainer: FSF
-;; Created: : Mon Oct  1 11:42:39 1990
+;; Created: Mon Oct  1 11:42:39 1990
 ;; Adapted-By: ESR
 
 ;; This file is part of GNU Emacs.
@@ -29,7 +29,7 @@
 ;; This file supplies the macro make-help-screen which constructs
 ;; single character dispatching with browsable help such as that provided
 ;; by help-for-help. This can be used to make many modes easier to use; for
-;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map
+;; example, the GNU Emacs Empire Tool uses this for every "nested" mode map
 ;; called from the main mode map.
 
 ;;       The name of this package was changed from help-screen.el to
--- a/lisp/hexl.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/hexl.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; hexl.el --- edit a file in a hex dump format using the hexl filter.
+;;; hexl.el --- edit a file in a hex dump format using the hexl filter
 
 ;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
 
--- a/lisp/imenu.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/imenu.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; imenu.el --- Framework for mode-specific buffer indexes.
+;;; imenu.el --- framework for mode-specific buffer indexes
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
 
@@ -59,7 +59,7 @@
 ;;  [christian] - Christian Egli Christian.Egli@hcsd.hac.com
 ;;  [karl] - Karl Fogel kfogel@floss.life.uiuc.edu
 
-;;; Code
+;;; Code:
 
 (eval-when-compile (require 'cl))
 
--- a/lisp/info.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/info.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; info.el --- info package for Emacs.
+;;; info.el --- info package for Emacs
 
 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
 ;;  Free Software Foundation, Inc.
--- a/lisp/informat.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/informat.el	Sun Jul 15 16:15:35 2001 +0000
@@ -439,7 +439,7 @@
 Each file will be processed even if an error occurred previously.
 For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
   (if (not noninteractive)
-      (error "batch-info-validate may only be used -batch."))
+      (error "batch-info-validate may only be used -batch"))
   (let ((version-control t)
 	(auto-save-default nil)
 	(find-file-run-dired nil)
--- a/lisp/international/codepage.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/international/codepage.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; codepage.el --- MS-DOS/MS-Windows specific coding systems.
+;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -665,4 +665,4 @@
 
 (provide 'codepage)
 
-;; codepage.el ends here
+;;; codepage.el ends here
--- a/lisp/international/iso-ascii.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/international/iso-ascii.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
+;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
 
 ;; Copyright (C) 1987, 1995 Free Software Foundation, Inc.
 
--- a/lisp/international/iso-insert.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/international/iso-insert.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; iso-insert.el --- insert functions for ISO 8859/1.
+;;; iso-insert.el --- insert functions for ISO 8859/1
 
 ;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
 
--- a/lisp/international/iso-transl.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/international/iso-transl.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
+;;; iso-transl.el --- keyboard input definitions for ISO 8859/1
 
 ;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
 
--- a/lisp/international/swedish.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/international/swedish.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; swedish.el --- miscellaneous functions for dealing with Swedish.
+;;; swedish.el --- miscellaneous functions for dealing with Swedish
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
--- a/lisp/isearch.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/isearch.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; isearch.el --- incremental search minor mode.
+;;; isearch.el --- incremental search minor mode
 
 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001
 ;;   Free Software Foundation, Inc.
--- a/lisp/jka-compr.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/jka-compr.el	Sun Jul 15 16:15:35 2001 +0000
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Commentary: 
+;;; Commentary:
 
 ;; This package implements low-level support for reading, writing,
 ;; and loading compressed files.  It hooks into the low-level file
@@ -917,4 +917,4 @@
 
 (provide 'jka-compr)
 
-;; jka-compr.el ends here.
+;;; jka-compr.el ends here
--- a/lisp/kermit.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/kermit.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; kermit.el --- additions to shell mode for use with kermit, etc.
+;;; kermit.el --- additions to shell mode for use with kermit
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
--- a/lisp/lazy-lock.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/lazy-lock.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode.
+;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001
 ;;   Free Software Foundation, Inc.
@@ -8,7 +8,7 @@
 ;; Keywords: faces files
 ;; Version: 2.11
 
-;;; This file is part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
--- a/lisp/ledit.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/ledit.el	Sun Jul 15 16:15:35 2001 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
-;; Keyword: languages
+;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/loadup.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/loadup.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
+;;; loadup.el --- load up standardly loaded Lisp files for Emacs
 
 ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
 
--- a/lisp/lpr.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/lpr.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,9 +1,9 @@
-;;; lpr.el --- print Emacs buffer on line printer.
+;;; lpr.el --- print Emacs buffer on line printer
 
 ;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.
 
-;; Maintainer:	FSF
-;; Keywords:	unix
+;; Maintainer: FSF
+;; Keywords: unix
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/ls-lisp.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/ls-lisp.el	Sun Jul 15 16:15:35 2001 +0000
@@ -2,10 +2,10 @@
 
 ;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc.
 
-;; Author:		Sebastian Kremer <sk@thp.uni-koeln.de>
-;; Modified by:		Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
-;; Maintainer:		FSF
-;; Keywords:		unix, dired
+;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
+;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk>
+;; Maintainer: FSF
+;; Keywords: unix, dired
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/macros.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/macros.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; macros.el --- non-primitive commands for keyboard macros.
+;;; macros.el --- non-primitive commands for keyboard macros
 
 ;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc.
 
@@ -43,7 +43,7 @@
   (and (fboundp symbol)
        (not (stringp (symbol-function symbol)))
        (not (vectorp (symbol-function symbol)))
-       (error "Function %s is already defined and not a keyboard macro."
+       (error "Function %s is already defined and not a keyboard macro"
 	      symbol))
   (if (string-equal symbol "")
       (error "No command name given"))
@@ -281,7 +281,7 @@
   (or macro
       (progn
 	(if (null last-kbd-macro)
-	    (error "No keyboard macro has been defined."))
+	    (error "No keyboard macro has been defined"))
 	(setq macro last-kbd-macro)))
   (save-excursion
     (let ((end-marker (progn
--- a/lisp/mail/blessmail.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/blessmail.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; blessmail.el --- Decide whether movemail needs special privileges.
+;;; blessmail.el --- decide whether movemail needs special privileges
 
 ;; Copyright (C) 1994 Free Software Foundation, Inc.
 
--- a/lisp/mail/emacsbug.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/emacsbug.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
+;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list
 
 ;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc.
 
--- a/lisp/mail/mail-extr.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/mail-extr.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; mail-extr.el --- extract full name and address from RFC 822 mail header.
+;;; mail-extr.el --- extract full name and address from RFC 822 mail header
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001
 ;;   Free Software Foundation, Inc.
--- a/lisp/mail/mailabbrev.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/mailabbrev.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; mailabbrev.el --- abbrev-expansion of mail aliases.
+;;; mailabbrev.el --- abbrev-expansion of mail aliases
 
 ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000
 ;;	Free Software Foundation, Inc.
@@ -638,4 +638,4 @@
 (if mail-abbrevs-mode
     (mail-abbrevs-enable))
 
-;;; mailabbrev.el ends here.
+;;; mailabbrev.el ends here
--- a/lisp/mail/mailpost.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/mailpost.el	Sun Jul 15 16:15:35 2001 +0000
@@ -3,6 +3,8 @@
 ;; This is in the public domain
 ;; since Delp distributed it without a copyright notice in 1986.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Gary Delp <delp@huey.Udel.Edu>
 ;; Maintainer: FSF
 ;; Created: 13 Jan 1986
--- a/lisp/mail/rmail.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmail.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
+;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
 
 ;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001
 ;;		Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
@@ -1875,7 +1877,7 @@
   (goto-char beg)
   (forward-line 1)
   (if (/= (following-char) ?0)
-      (error "Bad format in RMAIL file."))
+      (error "Bad format in RMAIL file"))
   (let ((inhibit-read-only t)
 	(delta (- (buffer-size) end)))
     (delete-char 1)
--- a/lisp/mail/rmailedit.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailedit.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message.
+;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message
 
 ;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'rmail)
--- a/lisp/mail/rmailkwd.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailkwd.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
+;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs
 
 ;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Global to all RMAIL buffers.  It exists primarily for the sake of
--- a/lisp/mail/rmailmsc.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailmsc.el	Sun Jul 15 16:15:35 2001 +0000
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
--- a/lisp/mail/rmailout.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailout.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
+;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file
 
 ;; Copyright (C) 1985, 1987, 1993, 1994, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'rmail)
--- a/lisp/mail/rmailsort.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailsort.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rmailsort.el --- Rmail: sort messages.
+;;; rmailsort.el --- Rmail: sort messages
 
 ;; Copyright (C) 1990, 1993, 1994, 2001 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'sort)
--- a/lisp/mail/rmailsum.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/rmailsum.el	Sun Jul 15 16:15:35 2001 +0000
@@ -105,7 +105,7 @@
   (interactive "sRegexp to summarize by: ")
   (if (string= regexp "")
       (setq regexp (or rmail-last-regexp
-			 (error "No regexp specified."))))
+			 (error "No regexp specified"))))
   (setq rmail-last-regexp regexp)
   (rmail-new-summary (concat "regexp " regexp)
 		     (list 'rmail-summary-by-regexp regexp)
--- a/lisp/mail/vms-pmail.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/mail/vms-pmail.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; vms-pmail.el --- use Emacs as the editor within VMS mail.
+;;; vms-pmail.el --- use Emacs as the editor within VMS mail
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;
--- a/lisp/man.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/man.el	Sun Jul 15 16:15:35 2001 +0000
@@ -2,10 +2,10 @@
 
 ;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
 
-;; Author:		Barry A. Warsaw <bwarsaw@cen.com>
+;; Author: Barry A. Warsaw <bwarsaw@cen.com>
 ;; Maintainer: FSF
-;; Keywords:		help
-;; Adapted-By:		ESR, pot
+;; Keywords: help
+;; Adapted-By: ESR, pot
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/map-ynp.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/map-ynp.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; map-ynp.el --- General-purpose boolean question-asker.
+;;; map-ynp.el --- general-purpose boolean question-asker
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
 
--- a/lisp/menu-bar.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/menu-bar.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; menu-bar.el --- define a default menu bar.
+;;; menu-bar.el --- define a default menu bar
 
 ;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
 
@@ -25,6 +25,8 @@
 
 ;; Avishai Yacobi suggested some menu rearrangements.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; User options:
--- a/lisp/misc.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/misc.el	Sun Jul 15 16:15:35 2001 +0000
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defun copy-from-above-command (&optional arg)
--- a/lisp/msb.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/msb.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; msb.el --- Customizable buffer-selection with multiple menus.
+;;; msb.el --- customizable buffer-selection with multiple menus
 
 ;; Copyright (C) 1993, 94, 95, 97, 98, 99, 2000, 2001
 ;;  Free Software Foundation, Inc.
--- a/lisp/net/ange-ftp.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/net/ange-ftp.el	Sun Jul 15 16:15:35 2001 +0000
@@ -4834,9 +4834,9 @@
   ;; think so, because expand-filename should have already short-circuited
   ;; them.
   (cond ((string-equal dir-name "/")
-	 (error "Cannot get listing for fictitious \"/\" directory."))
+	 (error "Cannot get listing for fictitious \"/\" directory"))
 	((string-match "^/[-A-Z0-9_$]+:/$" dir-name)
-	 (error "Cannot get listing for device."))
+	 (error "Cannot get listing for device"))
 	((ange-ftp-fix-name-for-vms dir-name))))
 
 (or (assq 'vms ange-ftp-fix-dir-name-func-alist)
@@ -5353,7 +5353,7 @@
 ;; Remember that there are no directories in MTS.
 (defun ange-ftp-fix-dir-name-for-mts (dir-name)
   (if (string-equal dir-name "/")
-      (error "Cannot get listing for fictitious \"/\" directory.")
+      (error "Cannot get listing for fictitious \"/\" directory")
     (let ((dir-name (ange-ftp-fix-name-for-mts dir-name)))
       (cond
        ((string-equal dir-name "")
@@ -5542,7 +5542,7 @@
 (defun ange-ftp-fix-dir-name-for-cms (dir-name)
   (cond
    ((string-equal "/" dir-name)
-    (error "Cannot get listing for fictitious \"/\" directory."))
+    (error "Cannot get listing for fictitious \"/\" directory"))
    ((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name)
     (let* ((minidisk (substring dir-name (match-beginning 1) (match-end 1)))
 	   ;; host and user are bound in the call to ange-ftp-send-cmd
--- a/lisp/net/goto-addr.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/net/goto-addr.el	Sun Jul 15 16:15:35 2001 +0000
@@ -239,4 +239,4 @@
 
 (provide 'goto-addr)
 
-;;; goto-addr.el ends here.
+;;; goto-addr.el ends here
--- a/lisp/novice.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/novice.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
+;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1994 Free Software Foundation, Inc.
 
--- a/lisp/obsolete/auto-show.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/obsolete/auto-show.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,9 +1,11 @@
 ;;; auto-show.el --- perform automatic horizontal scrolling as point moves
 ;;; This file is in the public domain.
 
-;;; Keywords: scroll display convenience
-;;; Author: Pete Ware <ware@cis.ohio-state.edu>
-;;; Maintainer: FSF
+;; This file is part of GNU Emacs.
+
+;; Keywords: scroll display convenience
+;; Author: Pete Ware <ware@cis.ohio-state.edu>
+;; Maintainer: FSF
 
 ;;; Commentary:
 
@@ -46,5 +48,4 @@
 
 (provide 'auto-show)
 
-;; auto-show.el ends here
-
+;;; auto-show.el ends here
--- a/lisp/obsolete/hilit19.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/obsolete/hilit19.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; hilit19.el --- customizable highlighting for Emacs19
+;;; hilit19.el --- customizable highlighting for Emacs 19
 
 ;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
 
@@ -26,7 +26,7 @@
 
 ;;; Commentary:
 
-;; Hilit19.el is a customizable highlighting package for Emacs19.  It supports
+;; Hilit19.el is a customizable highlighting package for Emacs 19.  It supports
 ;; not only source code highlighting, but also Info, RMAIL, VM, gnus...
 ;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in
 ;; about 25 different modes.
@@ -1512,4 +1512,4 @@
 
 (provide 'hilit19)
 
-;;; hilit19 ends here.
+;;; hilit19.el ends here
--- a/lisp/obsolete/ooutline.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/obsolete/ooutline.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; outline.el --- outline mode commands for Emacs
+;;; ooutline.el --- outline mode commands for Emacs
 
 ;; Copyright (C) 1986, 1993, 1994, 1997 Free Software Foundation, Inc.
 
@@ -582,4 +582,4 @@
 
 (provide 'outline)
 
-;;; outline.el ends here
+;;; ooutline.el ends here
--- a/lisp/obsolete/rnews.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/obsolete/rnews.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; rnews.el --- USENET news reader for gnu emacs
+;;; rnews.el --- USENET news reader for GNU Emacs
 
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
@@ -51,6 +51,8 @@
 ;;	tower@gnu.org Nov 21 1986
 ;; added tower@gnu.org 22 Apr 87
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'mail-utils)
--- a/lisp/obsolete/rnewspost.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/obsolete/rnewspost.el	Sun Jul 15 16:15:35 2001 +0000
@@ -52,6 +52,8 @@
 ;;; >> Nuked by Mly to autoload those functions again, as the duplication of
 ;;; >>  code was making maintenance too difficult.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'sendmail)
--- a/lisp/options.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/options.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; options.el --- edit Options command for Emacs.
+;;; options.el --- edit Options command for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/paren.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/paren.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; paren.el --- highlight matching paren.
+;;; paren.el --- highlight matching paren
 
 ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
 
--- a/lisp/paths.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/paths.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; paths.el --- define pathnames for use by various Emacs commands.
+;;; paths.el --- define pathnames for use by various Emacs commands
 
 ;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc.
 
--- a/lisp/play/dissociate.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/play/dissociate.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; dissociate.el --- scramble text amusingly for Emacs.
+;;; dissociate.el --- scramble text amusingly for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/play/doctor.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/play/doctor.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; doctor.el --- psychological help for frustrated users.
+;;; doctor.el --- psychological help for frustrated users
 
 ;; Copyright (C) 1985, 1987, 1994, 1996, 2000 Free Software Foundation, Inc.
 
--- a/lisp/play/hanoi.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/play/hanoi.el	Sun Jul 15 16:15:35 2001 +0000
@@ -7,6 +7,7 @@
 ; Author (a) 1985, Damon Anton Permezel
 ; This is in the public domain
 ; since he distributed it without copyright notice in 1985.
+;; This file is part of GNU Emacs.
 ;
 ; Support for horizontal poles, large numbers of rings, real-time,
 ; faces, defcustom, and Towers of Unix added in 1999 by Alakazam
--- a/lisp/play/meese.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/play/meese.el	Sun Jul 15 16:15:35 2001 +0000
@@ -3,6 +3,8 @@
 ;; This is in the public domain on account of being distributed since
 ;; 1985 or 1986 without a copyright notice.
 
+;; This file is part of GNU Emacs.
+
 ;; Maintainer: FSF
 ;; Keywords: games
 
--- a/lisp/progmodes/compile.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/progmodes/compile.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
+;;; compile.el --- run compiler as inferior of Emacs, parse error messages
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
 
--- a/lisp/progmodes/ebrowse.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/progmodes/ebrowse.el	Sun Jul 15 16:15:35 2001 +0000
@@ -4509,5 +4509,4 @@
 ;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
 ;;; End:
 
-;;; ebrowse.el ends here.    
-
+;;; ebrowse.el ends here
--- a/lisp/progmodes/hideif.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/progmodes/hideif.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; hide-ifdef-mode.el --- hides selected code within ifdef.
+;;; hideif.el --- hides selected code within ifdef
 
 ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
 
@@ -1075,4 +1075,3 @@
 (provide 'hideif)
 
 ;;; hideif.el ends here
-
--- a/lisp/progmodes/modula2.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/progmodes/modula2.el	Sun Jul 15 16:15:35 2001 +0000
@@ -5,6 +5,8 @@
 ;; Maintainer: FSF
 ;; Keywords: languages
 
+;; This file is part of GNU Emacs.
+
 ;; The authors distributed this without a copyright notice
 ;; back in 1988, so it is in the public domain.  The original included
 ;; the following credit:
--- a/lisp/register.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/register.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; register.el --- register commands for Emacs.
+;;; register.el --- register commands for Emacs
 
 ;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc.
 
--- a/lisp/rot13.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/rot13.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,8 +1,8 @@
-;;; rot13.el --- display a buffer in rot13.
+;;; rot13.el --- display a buffer in rot13
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
-;; Author: Howard Gayle:
+;; Author: Howard Gayle
 ;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
--- a/lisp/saveplace.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/saveplace.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; saveplace.el --- automatically save place in files.
+;;; saveplace.el --- automatically save place in files
 
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
@@ -238,4 +238,3 @@
 (provide 'saveplace) ; why not...
 
 ;;; saveplace.el ends here
-
--- a/lisp/scroll-bar.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/scroll-bar.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; scroll-bar.el --- window system-independent scroll bar support.
+;;; scroll-bar.el --- window system-independent scroll bar support
 
 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001
 ;;  Free Software Foundation, Inc.
--- a/lisp/server.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/server.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; server.el --- Lisp code for GNU Emacs running as server process.
+;;; server.el --- Lisp code for GNU Emacs running as server process
 
 ;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000, 2001
 ;;	 Free Software Foundation, Inc.
--- a/lisp/sort.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/sort.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; sort.el --- commands to sort text in an Emacs buffer.
+;;; sort.el --- commands to sort text in an Emacs buffer
 
 ;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
 
--- a/lisp/soundex.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/soundex.el	Sun Jul 15 16:15:35 2001 +0000
@@ -29,7 +29,7 @@
 ;; The Soundex algorithm maps English words into representations of
 ;; how they sound.  Words with vaguely similar sound map to the same string.
 
-;;; Code: 
+;;; Code:
 
 (defvar soundex-alist
   '((?B . "1") (?F . "1") (?P . "1") (?V . "1")
@@ -73,4 +73,4 @@
 
 (provide 'soundex)
 
-;; soundex.el ends here
+;;; soundex.el ends here
--- a/lisp/term/bg-mouse.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/term/bg-mouse.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
+;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse
 
 ;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
 
@@ -24,6 +24,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;  Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
--- a/lisp/term/pc-win.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/term/pc-win.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; pc-win.el --- setup support for `PC windows' (whatever that is).
+;;; pc-win.el --- setup support for `PC windows' (whatever that is)
 
 ;; Copyright (C) 1994, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (load "term/internal" nil t)
--- a/lisp/term/sup-mouse.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/term/sup-mouse.el	Sun Jul 15 16:15:35 2001 +0000
@@ -26,6 +26,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;  User customization option:
--- a/lisp/term/tty-colors.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/term/tty-colors.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1008,3 +1008,5 @@
 	   (setq count (1+ count)))
       (setq colors (cdr colors)))
     count))
+
+;;; tty-colors.el ends here
--- a/lisp/terminal.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/terminal.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; terminal.el --- terminal emulator for GNU Emacs.
+;;; terminal.el --- terminal emulator for GNU Emacs
 
 ;; Copyright (C) 1986,87,88,89,93,94 Free Software Foundation, Inc.
 
--- a/lisp/textmodes/bib-mode.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/bib-mode.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; bib-mode.el --- bib-mode, major mode for editing bib files.
+;;; bib-mode.el --- major mode for editing bib files
 
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
@@ -30,6 +30,7 @@
 ;;   and appropriate keys are presented for various kinds of entries.
 
 ;;; Code:
+
 (defgroup bib nil
   "Major mode for editing bib files."
   :prefix "bib-"
--- a/lisp/textmodes/makeinfo.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/makeinfo.el	Sun Jul 15 16:15:35 2001 +0000
@@ -253,4 +253,3 @@
 (provide 'makeinfo)
 
 ;;; makeinfo.el ends here
-
--- a/lisp/textmodes/page.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/page.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; page.el --- page motion commands for emacs.
+;;; page.el --- page motion commands for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/textmodes/paragraphs.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/paragraphs.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; paragraphs.el --- paragraph and sentence parsing.
+;;; paragraphs.el --- paragraph and sentence parsing
 
 ;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001
 ;;    Free Software Foundation, Inc.
--- a/lisp/textmodes/picture.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/picture.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
+;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model
 
 ;; Copyright (C) 1985, 1994 Free Software Foundation, Inc.
 
@@ -397,7 +397,7 @@
 	      (skip-chars-forward " \t")
 	      (setq tabs (cons (current-column) tabs)))
 	    (if (null tabs)
-		(error "No characters in set %s on this line."
+		(error "No characters in set %s on this line"
 		       (regexp-quote picture-tab-chars))))))
       (setq tab-stop-list tabs)
       (let ((blurb (make-string (1+ (nth (1- (length tabs)) tabs)) ?\ )))
@@ -486,7 +486,7 @@
 point at the other (diagonally opposed) corner."
   (interactive "P")
   (if (not (consp picture-killed-rectangle))
-      (error "No rectangle saved.")
+      (error "No rectangle saved")
     (picture-insert-rectangle picture-killed-rectangle insertp)))
 
 (defun picture-yank-at-click (click arg)
@@ -508,7 +508,7 @@
   (interactive "cRectangle from register: \nP")
   (let ((rectangle (get-register register)))
     (if (not (consp rectangle))
-	(error "Register %c does not contain a rectangle." register)
+	(error "Register %c does not contain a rectangle" register)
       (picture-insert-rectangle rectangle insertp))))
 
 (defun picture-insert-rectangle (rectangle &optional insertp)
@@ -698,7 +698,7 @@
 they are not defaultly assigned to keys."
   (interactive)
   (if (eq major-mode 'picture-mode)
-      (error "You are already editing a picture.")
+      (error "You are already editing a picture")
     (make-local-variable 'picture-mode-old-local-map)
     (setq picture-mode-old-local-map (current-local-map))
     (use-local-map picture-mode-map)
@@ -735,7 +735,7 @@
   otherwise just return to previous mode."
   (interactive "P")
   (if (not (eq major-mode 'picture-mode))
-      (error "You aren't editing a Picture.")
+      (error "You aren't editing a Picture")
     (if (not nostrip) (delete-trailing-whitespace))
     (setq mode-name picture-mode-old-mode-name)
     (use-local-map picture-mode-old-local-map)
--- a/lisp/textmodes/scribe.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/scribe.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; scribe.el --- scribe mode, and its idiosyncratic commands.
+;;; scribe.el --- scribe mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/textmodes/spell.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/spell.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; spell.el --- spelling correction interface for Emacs.
+;;; spell.el --- spelling correction interface for Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/textmodes/tex-mode.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/tex-mode.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
+;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
 
 ;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999
 ;;       Free Software Foundation, Inc.
@@ -26,6 +26,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Pacify the byte-compiler
--- a/lisp/textmodes/text-mode.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/text-mode.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; text-mode.el --- text mode, and its idiosyncratic commands.
+;;; text-mode.el --- text mode, and its idiosyncratic commands
 
 ;; Copyright (C) 1985, 1992, 1994 Free Software Foundation, Inc.
 
--- a/lisp/textmodes/underline.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/textmodes/underline.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
+;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
--- a/lisp/thingatpt.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/thingatpt.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; thingatpt.el --- Get the `thing' at point
+;;; thingatpt.el --- get the `thing' at point
 
 ;; Copyright (C) 1991,92,93,94,95,96,97,1998,2000
 ;;  Free Software Foundation, Inc.
@@ -395,4 +395,4 @@
 ;;;###autoload
 (defun list-at-point ()   (form-at-point 'list 'listp))
 
-;; thingatpt.el ends here.
+;;; thingatpt.el ends here
--- a/lisp/time.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/time.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; time.el --- display time, load and mail indicator in mode line of Emacs.
+;;; time.el --- display time, load and mail indicator in mode line of Emacs
 
 ;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000, 2001
 ;;   Free Software Foundation, Inc.
--- a/lisp/timer.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/timer.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; timer.el --- run a function with args at some time in future.
+;;; timer.el --- run a function with args at some time in future
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
--- a/lisp/unused.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/unused.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,7 +1,9 @@
-;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
+;;; unused.el --- editing commands in GNU Emacs that turned out not to be used
 ;;; This file is in the public domain, as it was distributed in
 ;;; 1985 or 1986 without a copyright notice.  Written by RMS.
 
+;; This file is part of GNU Emacs.
+
 ;; Maintainer: FSF
 ;; Keywords: emulations
 
--- a/lisp/vcursor.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/vcursor.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; vcursor.el --- manipulate an alternative ("virtual") cursor.
+;;; vcursor.el --- manipulate an alternative ("virtual") cursor
 
 ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc.
 
@@ -808,7 +808,7 @@
    ((and (overlayp vcursor-overlay) (overlay-start vcursor-overlay))
     t)
    (arg nil)
-   (t (error "The virtual cursor is not active now.")))
+   (t (error "The virtual cursor is not active now")))
   )
 
 (defun vcursor-disable (&optional arg)
@@ -1161,4 +1161,4 @@
 
 (provide 'vcursor)
 
-;; vcursor.el ends here
+;;; vcursor.el ends here
--- a/lisp/version.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/version.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; version.el --- record version number of Emacs.
+;;; version.el --- record version number of Emacs
 
 ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001
 ;;;   Free Software Foundation, Inc.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defconst emacs-version "21.0.105" "\
--- a/lisp/vms-patch.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/vms-patch.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; vms-patch.el --- override parts of files.el for VMS.
+;;; vms-patch.el --- override parts of files.el for VMS
 
 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))
--- a/lisp/vmsproc.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/vmsproc.el	Sun Jul 15 16:15:35 2001 +0000
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar display-subprocess-window nil
--- a/lisp/vt100-led.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/vt100-led.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones.
+;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (defvar led-state (make-vector 5 nil)
--- a/lisp/window.el	Sat Jul 14 18:19:27 2001 +0000
+++ b/lisp/window.el	Sun Jul 15 16:15:35 2001 +0000
@@ -1,4 +1,4 @@
-;;; window.el --- GNU Emacs window commands aside from those written in C.
+;;; window.el --- GNU Emacs window commands aside from those written in C
 
 ;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001
 ;;  Free Software Foundation, Inc.
@@ -22,7 +22,6 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-
 ;;; Commentary:
 
 ;; Window tree functions.