Some fixes to follow coding conventions.

60 files changed, 224 insertions, 96 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61cb045e6af..9180120f1e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,34 @@
 
 2001-07-15  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* calendar/cal-china.el, calendar/cal-coptic.el,
+	calendar/cal-dst.el, calendar/cal-french.el,
+	calendar/cal-hebrew.el, calendar/cal-islam.el,
+	calendar/cal-iso.el, calendar/cal-julian.el,
+	calendar/cal-mayan.el, calendar/cal-persia.el,
+	calendar/cal-tex.el, calendar/calendar.el, calendar/diary-lib.el,
+	calendar/lunar.el, calendar/solar.el, ediff-diff.el,
+	ediff-help.el, ediff-hook.el, ediff-init.el, ediff-merg.el,
+	ediff-ptch.el, ediff-util.el, ediff-vers.el, ediff-wind.el,
+	net/eudc-bob.el, net/eudc-export.el, net/eudc-hotlist.el,
+	net/eudc-vars.el, net/ldap.el, pcvs-defs.el, pcvs-info.el,
+	pcvs-parse.el, pcvs-util.el, pcvs.el, progmodes/ada-mode.el,
+	progmodes/ada-prj.el, progmodes/ada-stmt.el,
+	progmodes/ada-xref.el, progmodes/cc-align.el,
+	progmodes/cc-bytecomp.el, progmodes/cc-cmds.el,
+	progmodes/cc-defs.el, progmodes/cc-engine.el,
+	progmodes/cc-langs.el, progmodes/cc-menus.el,
+	progmodes/cc-styles.el, progmodes/cc-vars.el,
+	textmodes/reftex-auc.el, textmodes/reftex-cite.el,
+	textmodes/reftex-dcr.el, textmodes/reftex-global.el,
+	textmodes/reftex-index.el, textmodes/reftex-parse.el,
+	textmodes/reftex-ref.el, textmodes/reftex-sel.el,
+	textmodes/reftex-toc.el, textmodes/reftex-vars.el,
+	textmodes/reftex.el: Some fixes to follow coding
+	conventions in Eshell files with known maintainers.
+
+	* emulation/viper.el: A fix to follow coding conventions.
+
 	* eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el,
 	eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el,
 	eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el,
diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el
index 304d2c28327..473db48e09d 100644
--- a/lisp/calendar/cal-china.el
+++ b/lisp/calendar/cal-china.el
@@ -1,4 +1,4 @@
-;;; cal-china.el --- calendar functions for the Chinese calendar.
+;;; cal-china.el --- calendar functions for the Chinese calendar
 
 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index c43478a598a..282facef138 100644
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -1,4 +1,4 @@
-;;; cal-coptic.el --- calendar functions for the Coptic/Ethiopic calendars.
+;;; cal-coptic.el --- calendar functions for the Coptic/Ethiopic calendars
 
 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el
index 3e33f6cb9f3..f7f28be988e 100644
--- a/lisp/calendar/cal-dst.el
+++ b/lisp/calendar/cal-dst.el
@@ -1,4 +1,4 @@
-;;; cal-dst.el --- calendar functions for daylight savings rules.
+;;; cal-dst.el --- calendar functions for daylight savings rules
 
 ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index a3473a7be3f..ef220be1497 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -1,4 +1,4 @@
-;;; cal-french.el --- calendar functions for the French Revolutionary calendar.
+;;; cal-french.el --- calendar functions for the French Revolutionary calendar
 
 ;; Copyright (C) 1988, 89, 92, 94, 95, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el
index dfa4e84e2fc..a2eaf317309 100644
--- a/lisp/calendar/cal-hebrew.el
+++ b/lisp/calendar/cal-hebrew.el
@@ -1,4 +1,4 @@
-;;; cal-hebrew.el --- calendar functions for the Hebrew calendar.
+;;; cal-hebrew.el --- calendar functions for the Hebrew calendar
 
 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el
index 835c7c65d40..ac6a786e4e7 100644
--- a/lisp/calendar/cal-islam.el
+++ b/lisp/calendar/cal-islam.el
@@ -1,4 +1,4 @@
-;;; cal-islam.el --- calendar functions for the Islamic calendar.
+;;; cal-islam.el --- calendar functions for the Islamic calendar
 
 ;; Copyright (C) 1995, 1997, 2001 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-iso.el b/lisp/calendar/cal-iso.el
index 92698b7af30..12598f1547c 100644
--- a/lisp/calendar/cal-iso.el
+++ b/lisp/calendar/cal-iso.el
@@ -1,4 +1,4 @@
-;;; cal-iso.el --- calendar functions for the ISO calendar.
+;;; cal-iso.el --- calendar functions for the ISO calendar
 
 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el
index 2fd6eda6c71..b409145fe35 100644
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -1,4 +1,4 @@
-;;; cal-julian.el --- calendar functions for the Julian calendar.
+;;; cal-julian.el --- calendar functions for the Julian calendar
 
 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index 45459dcc599..34401ab548b 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -1,4 +1,4 @@
-;;; cal-mayan.el --- calendar functions for the Mayan calendars.
+;;; cal-mayan.el --- calendar functions for the Mayan calendars
 
 ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 1a92c617fbc..c9b8a2af07d 100644
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -1,4 +1,4 @@
-;;; cal-persia.el --- calendar functions for the Persian calendar.
+;;; cal-persia.el --- calendar functions for the Persian calendar
 
 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el
index 46b1b22e24f..3aac65ab20b 100644
--- a/lisp/calendar/cal-tex.el
+++ b/lisp/calendar/cal-tex.el
@@ -1,4 +1,4 @@
-;;; cal-tex.el --- calendar functions for printing calendars with LaTeX.
+;;; cal-tex.el --- calendar functions for printing calendars with LaTeX
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 596d3661b24..7cd716ac3c9 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1,4 +1,4 @@
-;;; calendar.el --- Calendar functions.
+;;; calendar.el --- calendar functions
 
 ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2000
 ;;        Free Software Foundation, Inc.
@@ -1813,7 +1813,7 @@ Or, for optional MON, YR."
 (defun generate-calendar (month year)
   "Generate a three-month Gregorian calendar centered around MONTH, YEAR."
   (if (< (+ month (* 12 (1- year))) 2)
-      (error "Months before February, 1 AD are not available."))
+      (error "Months before February, 1 AD are not available"))
   (setq displayed-month month)
   (setq displayed-year year)
   (erase-buffer)
@@ -2073,7 +2073,7 @@ the inserted text.  Value is always t."
   (let ((where (save-window-excursion
 		 (Info-find-emacs-command-nodes 'calendar))))
     (if (not where)
-        (error "Couldn't find documentation for the calendar.")
+        (error "Couldn't find documentation for the calendar")
       (let (same-window-buffer-names)
 	(info))
       (Info-find-node (car (car where)) (car (cdr (car where)))))))
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index c03b92a73d1..9d3449b8019 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1,4 +1,4 @@
-;;; diary-lib.el --- diary functions.
+;;; diary-lib.el --- diary functions
 
 ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995 Free Software
 ;; Foundation, Inc.
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el
index 6bd685ec7b0..a076f0b88c5 100644
--- a/lisp/calendar/lunar.el
+++ b/lisp/calendar/lunar.el
@@ -1,4 +1,4 @@
-;;; lunar.el --- calendar functions for phases of the moon.
+;;; lunar.el --- calendar functions for phases of the moon
 
 ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc.
 
@@ -51,7 +51,7 @@
 
 (if (fboundp 'atan)
     (require 'lisp-float-type)
-  (error "Lunar calculations impossible since floating point is unavailable."))
+  (error "Lunar calculations impossible since floating point is unavailable"))
 
 (require 'solar)
 
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index f9183a40bfd..2fa06565e7d 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -1,4 +1,4 @@
-;;; solar.el --- calendar functions for solar events.
+;;; solar.el --- calendar functions for solar events
 
 ;; Copyright (C) 1992, 1993, 1995, 1997 Free Software Foundation, Inc.
 
@@ -61,7 +61,7 @@
 
 (if (fboundp 'atan)
     (require 'lisp-float-type)
-  (error "Solar/lunar calculations impossible since floating point is unavailable."))
+  (error "Solar/lunar calculations impossible since floating point is unavailable"))
 
 (require 'cal-dst)
 (require 'cal-julian)
diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 79b8b539de9..f2b2687c0c5 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (provide 'ediff-diff)
@@ -1336,4 +1338,4 @@ arguments to `skip-chars-forward'."
 ;;; End:
 
 
-;; ediff-diff.el ends here
+;;; ediff-diff.el ends here
diff --git a/lisp/ediff-help.el b/lisp/ediff-help.el
index 246bb5b9a8f..ef6807768b8 100644
--- a/lisp/ediff-help.el
+++ b/lisp/ediff-help.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 	 
 (provide 'ediff-help)
diff --git a/lisp/ediff-hook.el b/lisp/ediff-hook.el
index 7bdb8567b27..33c3e4a05c7 100644
--- a/lisp/ediff-hook.el
+++ b/lisp/ediff-hook.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;   These must be placed in menu-bar.el in Emacs
@@ -355,5 +357,4 @@
 
 (provide 'ediff-hook)
 
-
 ;;; ediff-hook.el ends here
diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el
index da6ac26a738..4594445a89f 100644
--- a/lisp/ediff-init.el
+++ b/lisp/ediff-init.el
@@ -1,4 +1,4 @@
-;;; ediff-init.el --- Macros, variables, and defsubsts used by Ediff
+;;; ediff-init.el --- macros, variables, and defsubsts used by Ediff
 
 ;; Copyright (C) 1994, 1995, 1996, 1997, 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:
 
 ;; Start compiler pacifier
@@ -1780,5 +1782,4 @@ Unless optional argument INPLACE is non-nil, return a new string."
 
 (provide 'ediff-init)
 
-
-;;; ediff-init.el  ends here
+;;; ediff-init.el ends here
diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el
index 89e16791076..5242014eb7e 100644
--- a/lisp/ediff-merg.el
+++ b/lisp/ediff-merg.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (provide 'ediff-merg)
@@ -385,4 +387,4 @@ Combining is done according to the specifications in variable
 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
 ;;; End:
 
-;; ediff-merg.el ends here
+;;; ediff-merg.el ends here
diff --git a/lisp/ediff-ptch.el b/lisp/ediff-ptch.el
index 18b2f75b4df..6cbd9bb70c6 100644
--- a/lisp/ediff-ptch.el
+++ b/lisp/ediff-ptch.el
@@ -21,6 +21,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
 ;;; Code:
 	 
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index c26162715c7..2eabfa9fc86 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 	 
 (provide 'ediff-util)
@@ -269,7 +271,7 @@ to invocation.")
 	       (expand-file-name merge-buffer-file)))
 	;; check the directory exists
 	(or (file-exists-p (file-name-directory merge-buffer-file))
-	    (error "Directory %s given as place to save the merge doesn't exist."
+	    (error "Directory %s given as place to save the merge doesn't exist"
 		   (abbreviate-file-name 
 		    (file-name-directory merge-buffer-file))))
 	(if (and (file-exists-p merge-buffer-file)
diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el
index 71ac8bb7afe..4c502813c1d 100644
--- a/lisp/ediff-vers.el
+++ b/lisp/ediff-vers.el
@@ -21,6 +21,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 
 ;;; Code:
 
diff --git a/lisp/ediff-wind.el b/lisp/ediff-wind.el
index d987cecbe16..1a18bead505 100644
--- a/lisp/ediff-wind.el
+++ b/lisp/ediff-wind.el
@@ -21,6 +21,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 	 
 (provide 'ediff-wind)
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index d4db005b972..792bb1578b0 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -39,7 +39,7 @@
 ;; of minor modes and it is designed to provide full access to all Emacs
 ;; major and minor modes.
 ;;
-;;; History
+;;; History:
 ;;
 ;; Viper is a new name for a package formerly known as VIP-19,
 ;; which was a successor of VIP version 3.5 by Masahiko Sato
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 4dcd27ef248..66d023ad77d 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Usage:
 ;;    See the corresponding info file
 
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index 641b26ce1c7..8d6ff308eae 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -1,4 +1,4 @@
-;;; eudc-export.el --- Functions to export EUDC qeuery results
+;;; eudc-export.el --- functions to export EUDC query results
 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index bd2962effd5..4d9f07580ba 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -1,4 +1,4 @@
-;;; eudc-hotlist.el --- Hotlist Management for EUDC
+;;; eudc-hotlist.el --- hotlist management for EUDC
 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 29a04b0db44..94c9a71eb0f 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'custom)
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 786cfa976b4..ddbdfa0b1ef 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -1,4 +1,4 @@
-;;; ldap.el --- Client interface to LDAP for Emacs
+;;; ldap.el --- client interface to LDAP for Emacs
 
 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
 
diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el
index 959642b22f6..0d66176f8cf 100644
--- a/lisp/pcvs-defs.el
+++ b/lisp/pcvs-defs.el
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
-;; Revision: $Id: pcvs-defs.el,v 1.13 2001/05/11 20:50:37 monnier Exp $
+;; Revision: $Id: pcvs-defs.el,v 1.14 2001/05/18 16:59:52 sds Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -502,4 +502,4 @@ message and replace it with a message tell you to change this variable.")
 ;;
 (provide 'pcvs-defs)
 
-;;; pcl-cvs-defs.el ends here
+;;; pcvs-defs.el ends here
diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el
index 6ec8570390a..ba172471930 100644
--- a/lisp/pcvs-info.el
+++ b/lisp/pcvs-info.el
@@ -1,10 +1,10 @@
-;;; pcvs-info.el --- Internal representation of a fileinfo entry
+;;; pcvs-info.el --- internal representation of a fileinfo entry
 
 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
-;; Revision: $Id: pcvs-info.el,v 1.5 2000/12/06 19:52:13 fx Exp $
+;; Revision: $Id: pcvs-info.el,v 1.6 2000/12/18 03:17:31 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -477,4 +477,4 @@ DIR can also be a file."
 
 (provide 'pcvs-info)
 
-;;; pcl-cvs-info.el ends here
+;;; pcvs-info.el ends here
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el
index 9f732e0c9b9..fae7f9fe446 100644
--- a/lisp/pcvs-parse.el
+++ b/lisp/pcvs-parse.el
@@ -1,10 +1,10 @@
-;;; pcvs-parse.el --- The CVS output parser
+;;; pcvs-parse.el --- the CVS output parser
 
 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
-;; Revision: $Id: pcvs-parse.el,v 1.6 2001/03/07 00:17:53 monnier Exp $
+;; Revision: $Id: pcvs-parse.el,v 1.7 2001/04/13 14:55:48 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -497,4 +497,4 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
 
 (provide 'pcvs-parse)
 
-;;; pcl-cvs-parse.el ends here
+;;; pcvs-parse.el ends here
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index d0f14a0a174..9b7d2c8cb71 100644
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -1,11 +1,11 @@
-;;; pcvs-util.el --- Utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-
+;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-
 
 ;; Copyright (C) 1991,92,93,94,95,96,97,98,99,2000, 2001
 ;;  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
-;; Revision: $Id: pcvs-util.el,v 1.11 2001/03/20 20:26:13 johnw Exp $
+;; Revision: $Id: pcvs-util.el,v 1.12 2001/04/13 14:56:10 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -321,7 +321,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just
 
     ;; sanity check
     (unless (< (abs numarg) (length defaults))
-      (error "There is no %sth default." (abs numarg)))
+      (error "There is no %sth default" (abs numarg)))
 
     (if permstr
 	(let* ((prompt (format "%s%s: " desc permstr))
@@ -411,4 +411,4 @@ and reset it unless READ-ONLY is non-nil."
 
 (provide 'pcvs-util)
 
-;;; pcl-cvs-util.el ends here
+;;; pcvs-util.el ends here
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 2ccafbd3c16..65b39bc8bd5 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -1,4 +1,4 @@
-;;; pcvs.el -- A Front-end to CVS.
+;;; pcvs.el --- a front-end to CVS
 
 ;; Copyright (C) 1991,92,93,94,95,95,97,98,99,2000  Free Software Foundation, Inc.
 
@@ -13,7 +13,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.26 2001/03/07 00:20:30 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.27 2001/04/13 15:18:11 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -250,7 +250,7 @@ If -CVS-MODE!-NOERROR is non-nil, then failure to find a *cvs* buffer does
 	 (cvsbuf (cond ((cvs-buffer-p) (current-buffer))
 		       ((and cvs-buffer (cvs-buffer-p cvs-buffer)) cvs-buffer)
 		       (-cvs-mode!-noerror (current-buffer))
-		       (t (error "can't find the *cvs* buffer."))))
+		       (t (error "can't find the *cvs* buffer"))))
 	 (-cvs-mode!-wrapper cvs-minor-wrap-function)
 	 (-cvs-mode!-cont (lambda ()
 			    (save-current-buffer
@@ -1438,7 +1438,7 @@ See ``cvs-mode-diff'' for more info."
 This command can be used on files that are marked with \"Merged\"
 or \"Conflict\" in the *cvs* buffer."
   (interactive (list (cvs-flags-query 'cvs-diff-flags "diff flags")))
-  (unless (listp flags) (error "flags should be a list of strings."))
+  (unless (listp flags) (error "flags should be a list of strings"))
   (save-some-buffers)
   (let* ((filter 'diff)
 	 (marked (cvs-get-marked (cvs-ignore-marks-p "diff")))
@@ -1460,7 +1460,7 @@ or \"Conflict\" in the *cvs* buffer."
 Signal an error if there is no backup file."
   (let ((backup-file (cvs-fileinfo->backup-file fileinfo)))
     (unless backup-file
-      (error "%s has no backup file." (cvs-fileinfo->full-path fileinfo)))
+      (error "%s has no backup file" (cvs-fileinfo->full-path fileinfo)))
     (list backup-file (cvs-fileinfo->full-path fileinfo))))
 
 ;;
@@ -1586,7 +1586,7 @@ Signal an error if there is no backup file."
 	 (rev2 (and rev1 (cvs-prefix-get 'cvs-secondary-branch-prefix)))
 	 (fis (cvs-mode-marked 'diff "idiff" :file t)))
     (when (> (length fis) 2)
-      (error "idiff-other cannot be applied to more than 2 files at a time."))
+      (error "idiff-other cannot be applied to more than 2 files at a time"))
     (let* ((fi1 (car fis))
 	   (rev1-buf (if rev1 (cvs-retrieve-revision fi1 rev1)
 		       (find-file-noselect (cvs-fileinfo->full-path fi1))))
@@ -1596,7 +1596,7 @@ Signal an error if there is no backup file."
 	    (setq rev2-buf
 		  (if rev2 (cvs-retrieve-revision fi2 rev2)
 		    (find-file-noselect (cvs-fileinfo->full-path fi2)))))
-	(error "idiff-other doesn't know what other file/buffer to use."))
+	(error "idiff-other doesn't know what other file/buffer to use"))
       (let* (;; this binding is used by cvs-ediff-startup-hook
 	     (cvs-transient-buffers (list rev1-buf rev2-buf)))
 	(funcall (car cvs-idiff-imerge-handlers)
@@ -1857,7 +1857,7 @@ if you are convinced that the process that created the lock is dead."
   (let* ((default-directory (cvs-expand-dir-name cvs-lock-file))
 	 (locks (directory-files default-directory nil cvs-lock-file-regexp)))
     (cond
-     ((not locks) (error "No lock files found."))
+     ((not locks) (error "No lock files found"))
      ((yes-or-no-p (concat "Really delete locks in " cvs-lock-file "? "))
       (dolist (lock locks)
 	(cond ((file-directory-p lock) (delete-directory lock))
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 821a273fdde..f423218dc99 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1,4 +1,4 @@
-;; @(#) ada-mode.el --- major-mode for editing Ada source.
+;;; ada-mode.el --- major-mode for editing Ada sources
 
 ;; Copyright (C) 1994, 95, 97, 98, 99, 2000, 2001
 ;;  Free Software Foundation, Inc.
@@ -7,10 +7,10 @@
 ;;      Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
 ;;      Emmanuel Briot  <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.40 $
+;; Ada Core Technologies's version:   $Revision: 1.41 $
 ;; Keywords: languages ada
 
-;; 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
@@ -4668,7 +4668,7 @@ This function typically is to be hooked into `ff-file-created-hooks'."
           (setq body-file (ada-get-body-name))
           (if body-file
               (find-file body-file)
-            (error "No body found for the package. Create it first."))
+            (error "No body found for the package. Create it first"))
 
           (save-restriction
             (widen)
diff --git a/lisp/progmodes/ada-prj.el b/lisp/progmodes/ada-prj.el
index f2b133a07ec..d6ded072a0d 100644
--- a/lisp/progmodes/ada-prj.el
+++ b/lisp/progmodes/ada-prj.el
@@ -1,9 +1,9 @@
-;;; @(#) ada-prj.el --- Easy editing of project files for the ada-mode
+;;; ada-prj.el --- easy editing of project files for the ada-mode
 
 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
 
 ;; Author: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.5 $
+;; Ada Core Technologies's version:   $Revision: 1.6 $
 ;; Keywords: languages, ada, project file
 
 ;; This file is part of GNU Emacs.
@@ -23,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; This package provides a set of functions to easily edit the project
 ;;; files used by the ada-mode.
 ;;; The only function publicly available here is `ada-customize'.
@@ -31,7 +33,7 @@
 ;;; Internally, a project file is represented as a property list, with each
 ;;; field of the project file matching one property of the list.
 
-;; Code:
+;;; Code:
 
 
 ;; ----- Requirements -----------------------------------------------------
@@ -644,4 +646,5 @@ AFTER-TEXT is inserted just after the widget."
 (ada-prj-add-ada-menu)
 
 (provide 'ada-prj)
-;;; package ada-prj.el ends here
+
+;;; ada-prj.el ends here
diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index 156234e1219..3f0ce0771a5 100644
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -1,9 +1,11 @@
-;;; ada-stmt.el --- An extension to Ada mode for inserting statement templates.
+;;; ada-stmt.el --- an extension to Ada mode for inserting statement templates
 
 ;; Copyright(C) 1987, 1993, 1994, 1996, 1997, 1998, 1999
 ;;   Free Software Foundation, Inc.
 
-;; Ada Core Technologies's version:   $Revision: 1.8 $
+;; Ada Core Technologies's version:   $Revision: 1.9 $
+
+;; This file is part of GNU Emacs.
 
 ;; Authors: Daniel Pfeiffer, Markus Heritsch, Rolf Ebert <ebert@waporo.muc.de>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 22f0b74f2ca..4fc9f3c4322 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1,4 +1,4 @@
-;; @(#) ada-xref.el --- for lookup and completion in Ada mode
+;;; ada-xref.el --- for lookup and completion in Ada mode
 
 ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
 
@@ -6,7 +6,7 @@
 ;;      Rolf Ebert <ebert@inf.enst.fr>
 ;;      Emmanuel Briot <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.5 $
+;; Ada Core Technologies's version:   $Revision: 1.6 $
 ;; Keywords: languages ada xref
 
 ;; This file is part of GNU Emacs.
@@ -58,6 +58,8 @@
 
 ;;; You need Emacs >= 20.2 to run this package
 
+;;; Code:
+
 ;; ----- Requirements -----------------------------------------------------
 
 (require 'compile)
diff --git a/lisp/progmodes/cc-align.el b/lisp/progmodes/cc-align.el
index c5c8786085c..58af08520ad 100644
--- a/lisp/progmodes/cc-align.el
+++ b/lisp/progmodes/cc-align.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -719,4 +723,5 @@ For other semicolon contexts, no determination is made."
 
 
 (cc-provide 'cc-align)
+
 ;;; cc-align.el ends here
diff --git a/lisp/progmodes/cc-bytecomp.el b/lisp/progmodes/cc-bytecomp.el
index 39f173dbe7a..947ce7b89bc 100644
--- a/lisp/progmodes/cc-bytecomp.el
+++ b/lisp/progmodes/cc-bytecomp.el
@@ -1,4 +1,4 @@
-;;; cc-bytecomp.el --- Compile time setup for proper compilation
+;;; cc-bytecomp.el --- compile time setup for proper compilation
 
 ;; Copyright (C) 2000, 01 Free Software Foundation, Inc.
 
@@ -33,6 +33,8 @@
 ;; features to defeat the compiler warnings for selected symbols.
 
 
+;;; Code:
+
 (defvar cc-bytecomp-unbound-variables nil)
 (defvar cc-bytecomp-original-functions nil)
 (defvar cc-bytecomp-original-properties nil)
@@ -290,3 +292,5 @@ Don't use within `eval-when-compile'."
 
 
 (provide 'cc-bytecomp)
+
+;;; cc-bytecomp.el ends here
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 7e2a0c5acf9..11a77a2ab91 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -2566,4 +2570,5 @@ C++-style line comment doesn't count as inside the comment, though."
 
 
 (cc-provide 'cc-cmds)
+
 ;;; cc-cmds.el ends here
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index b17cbdd5900..143b979f302 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -346,4 +350,5 @@
 
 
 (cc-provide 'cc-defs)
+
 ;;; cc-defs.el ends here
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 50613a21ad4..f76e1e38912 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -2790,4 +2794,5 @@ With universal argument, inserts the analysis as a comment on that line."
 
 
 (cc-provide 'cc-engine)
+
 ;;; cc-engine.el ends here
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 8bd60ff8d4a..d1b3703a7a5 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -539,4 +543,5 @@ are parsed.")
 
 
 (cc-provide 'cc-langs)
+
 ;;; cc-langs.el ends here
diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el
index 5179f952530..eb03273b4d8 100644
--- a/lisp/progmodes/cc-menus.el
+++ b/lisp/progmodes/cc-menus.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -411,4 +415,5 @@ Example:
 
 
 (cc-provide 'cc-menus)
+
 ;;; cc-menus.el ends here
diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el
index a813056c51b..1ee5f2dedcb 100644
--- a/lisp/progmodes/cc-styles.el
+++ b/lisp/progmodes/cc-styles.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -501,4 +505,5 @@ instead of `make-variable-buffer-local'."
 
 
 (cc-provide 'cc-styles)
+
 ;;; cc-styles.el ends here
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index ec4a729b7b3..d53e2213d88 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -29,6 +29,10 @@
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile
   (let ((load-path
 	 (if (and (boundp 'byte-compile-dest-file)
@@ -1114,4 +1118,5 @@ Infodock (based on XEmacs) has an additional symbol on this list:
 
 
 (cc-provide 'cc-vars)
+
 ;;; cc-vars.el ends here
diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el
index e4f40025dfa..840bb889781 100644
--- a/lisp/textmodes/reftex-auc.el
+++ b/lisp/textmodes/reftex-auc.el
@@ -1,9 +1,8 @@
-;;; reftex-auc.el - RefTeX's interface to AUC TeX
+;;; reftex-auc.el --- RefTeX's interface to AUC TeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-auc)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index 0eb70a50052..11eacce77b3 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -1,9 +1,8 @@
-;;; reftex-cite.el - Creating citations with RefTeX
+;;; reftex-cite.el --- creating citations with RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-cite)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 1a1d04fb4a5..8c179ff32b1 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -1,7 +1,7 @@
-;;; reftex-dcr.el - Viewing cross references and citations with RefTeX
+;;; reftex-dcr.el --- viewing cross references and citations with RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
 ;;
 
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-dcr)
 (provide 'reftex-vcr)
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index 07aef178217..49960027f73 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -1,9 +1,8 @@
-;;; reftex-global.el - Operations on entire documents with RefTeX
+;;; reftex-global.el --- operations on entire documents with RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-global)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index e2016a54faf..161f4bb9f91 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -1,9 +1,8 @@
-;;; reftex-index.el - Index support with RefTeX
+;;; reftex-index.el --- index support with RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-index)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index d9d04b4c115..1bb6a24bce5 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -1,7 +1,7 @@
-;;; reftex-parse.el - Parser Functions for RefTeX
+;;; reftex-parse.el --- parser functions for RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
 ;;
 
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-parse)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index f2aa24a4a8e..4db17b238b7 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -1,9 +1,8 @@
-;;; reftex-ref.el - Code to create labels and references with RefTeX
+;;; reftex-ref.el --- code to create labels and references with RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-ref)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el
index fa3f04e8d93..f36454c1995 100644
--- a/lisp/textmodes/reftex-sel.el
+++ b/lisp/textmodes/reftex-sel.el
@@ -1,9 +1,8 @@
-;;; reftex-sel.el - The selection modes for RefTeX
+;;; reftex-sel.el --- the selection modes for RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-sel)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index 7e290ea7342..48de2453387 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -1,9 +1,8 @@
-;;; reftex-toc.el - RefTeX's table of contents mode
+;;; reftex-toc.el --- RefTeX's table of contents mode
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-toc)
 (require 'reftex)
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index 5646779e41d..d25b05d965c 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -1,9 +1,8 @@
-;;; reftex-vars.el - Configuration variables for RefTeX
+;;; reftex-vars.el --- configuration variables for RefTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
 ;; Version: 4.16
-;;
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +21,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (eval-when-compile (require 'cl))
 (provide 'reftex-vars)
 
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 0f57649c0af..8db74a41090 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -1,9 +1,9 @@
-;;; reftex.el --- Minor mode for doing \label, \ref, \cite, \index in LaTeX
+;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
 
-;; Author:     Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version:    4.16
-;; Keywords:   tex
+;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
+;; Version: 4.16
+;; Keywords: tex
 
 ;; This file is part of GNU Emacs.
 
@@ -2524,4 +2524,3 @@ With optional NODE, go directly to that node."
 ;;;============================================================================
 
 ;;; reftex.el ends here
-