12 files changed, 31 insertions, 17 deletions

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 34610f87588..0e63e35ed0c 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1,10 +1,10 @@
-;; -*-Emacs-Lisp-*-
-;;; ??? Waiting for papers from several people.
-;; Description:  transparent FTP support for GNU Emacs
+;;; ange-ftp.el --- transparent FTP support for GNU Emacs
 
 ;;; Copyright (C) 1989, 1990, 1991, 1992  Free Software Foundation, Inc.
+;;; ??? Waiting for papers from several people.
 ;;;
 ;;; Author: Andy Norman (ange@hplb.hpl.hp.com)
+;;; Keywords: tools
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -21,7 +21,7 @@
 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
 ;;; 02139, USA.
 
-;;; Description:
+;;; Commentary:
 ;;;
 ;;; This package attempts to make accessing files and directories using FTP
 ;;; from within GNU Emacs as simple and transparent as possible.  A subset of
@@ -610,6 +610,8 @@
 ;;; whose names I've forgotten who have helped to debug and fix problems with
 ;;; ange-ftp.el.
 
+
+;;; Code:
 (require 'comint)
 
 ;;;; ------------------------------------------------------------
@@ -857,7 +859,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.12 $")
+(defconst ange-ftp-version "$Revision: 1.13 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -5310,3 +5312,5 @@ Other orders of $ and _ seem to all work just fine.")
 ;;;; ------------------------------------------------------------
 
 (provide 'ange-ftp)
+
+;;; ange-ftp.el ends here
diff --git a/lisp/byte-run.el b/lisp/byte-run.el
index 1a09ec6ac11..8d5595a8b0a 100644
--- a/lisp/byte-run.el
+++ b/lisp/byte-run.el
@@ -1,4 +1,4 @@
-;; byte-run.el --- byte-compiler support for inlining
+;;; byte-run.el --- byte-compiler support for inlining
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
diff --git a/lisp/case-table.el b/lisp/case-table.el
index fbfcfc18076..c9fb8efad7f 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -1,4 +1,4 @@
-;;; case-table.el ---code to extend the character set and support case tables.
+;;; case-table.el --- code to extend the character set and support case tables.
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
diff --git a/lisp/cl.el b/lisp/cl.el
index db477e1005f..b897603ab47 100644
--- a/lisp/cl.el
+++ b/lisp/cl.el
@@ -1,4 +1,5 @@
-;; Common-Lisp extensions for GNU Emacs Lisp.
+;;; cl.el --- Common-Lisp extensions for GNU Emacs Lisp.
+
 ;; Copyright (C) 1987, 1988, 1989, 1992  Free Software Foundation, Inc.
 
 ;; Author: Cesar Quiroz <quiroz@cs.rochester.edu>
@@ -23,6 +24,8 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
+;;; Commentary:
+
 ;;; Notes from Rob Austein on his mods
 ;; yaya:/usr/u/sra/cl/cl.el, 5-May-1991 16:01:34, sra
 ;;
@@ -46,8 +49,6 @@
 ;;     at compile time?  Lisp is going to check for a binding at run-time
 ;;     anyway, so maybe we should just assume the user's right here.
 
-;;; Commentary:
-
 ;;;; These are extensions to Emacs Lisp that provide some form of
 ;;;; Common Lisp compatibility, beyond what is already built-in
 ;;;; in Emacs Lisp.
diff --git a/lisp/cmulisp.el b/lisp/cmulisp.el
index 8a406e7e85f..fff1d95ada8 100644
--- a/lisp/cmulisp.el
+++ b/lisp/cmulisp.el
@@ -6,6 +6,8 @@
 ;;; way you like, as long as you don't charge money for it, remove this
 ;;; notice, or hold me liable for its results.
 
+;;; Commentary:
+
 ;;; This replaces the standard inferior-lisp mode.
 ;;; Hacked from tea.el by Olin Shivers (shivers@cs.cmu.edu). 8/88
 ;;; Please send me bug reports, bug fixes, and extensions, so that I can
@@ -126,6 +128,9 @@
 
 ;;; Read the rest of this file for more information.
 
+
+;;; Code:
+
 (defvar cmulisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'"
   "*What not to save on inferior Lisp's input history
 Input matching this regexp is not saved on the input history in cmulisp
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 6d39774822f..7ce9f0cf94a 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,4 +1,5 @@
-;;; 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 Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index e7c42486e5a..0af40a03c54 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1,4 +1,4 @@
-;; dired-aux.el --- all of dired except what people usually use
+;;; dired-aux.el --- all of dired except what people usually use
 
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
diff --git a/lisp/dired.el b/lisp/dired.el
index 1687dc6d002..e68b58891ec 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1,4 +1,4 @@
-;; dired.el --- directory-browsing commands
+;;; dired.el --- directory-browsing commands
 
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
diff --git a/lisp/electric.el b/lisp/electric.el
index 3f91adf2093..5272d706845 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -22,9 +22,12 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ; zaaaaaaap
 
+;;; Code:
+
 ;; perhaps this should be in subr.el...
 (defun shrink-window-if-larger-than-buffer (window)
   (save-excursion
@@ -187,4 +190,4 @@
 
 (provide 'electric)
 
-; electric.el ends here
+;;; electric.el ends here
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index e4c7da1d13f..a74e30ad851 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -1,4 +1,4 @@
-;; backquote.el --- backquoting for Emacs Lisp macros
+;;; backquote.el --- backquoting for Emacs Lisp macros
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index 965b52e4b81..8676c98d402 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -1,4 +1,4 @@
-;; cust-print.el -- handles print-level and print-circle.
+;; cust-print.el --- handles print-level and print-circle.
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 1cf1e810541..adca6ad4d7b 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1,4 +1,4 @@
-;; etags.el --- etags facility for Emacs
+;;; etags.el --- etags facility for Emacs
 
 ;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993
 ;;      Free Software Foundation, Inc.