Some fixes to follow coding conventions.

13 files changed, 64 insertions, 13 deletions

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