Added standard library headers.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 34610f87588467b00032f8a2819ee0d26c7cbfad..0e63e35ed0c0668d1cfd010b47f178b26d8c7160 100644 (file)
--- 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.
 \f
+
+;;; 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 1a09ec6ac1115300465496f763f7c691b6cba332..8d5595a8b0a76b6e935151adcd617e3355e31c85 100644 (file)
--- 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 fbfcfc1807631c078f7aa763dd93214a8dc305d2..c9fb8efad7fa738e36538287d81d8343b10ad235 100644 (file)
--- 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 db477e1005f7072ab4c40e6f3c41fd96717b4c20..b897603ab47ffe0e9a28478f981b0e04e6dc72f8 100644 (file)
--- 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 8a406e7e85f80d0f8f77f3716eb30ed0d0d8ab3a..fff1d95ada83ff0c73793eae9cfb4377b72af698 100644 (file)
--- 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.
 \f
+
+;;; 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 6d39774822f220e6f205f9da6a988463ffbb7808..7ce9f0cf94ac0d2712293e520767d117a0df390b 100644 (file)
--- 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 e7c42486e5a17b502312d08bddb6dbdcf9da31df..0af40a03c5466d66916555b844c455d5b311a83a 100644 (file)
--- 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 1687dc6d002be8a272e6819669c09e47ee67c0f6..e68b58891ec53215c1bd246542923beb7af9825b 100644 (file)
--- 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 3f91adf209350030da4cc8c800a6061efd93226f..5272d7068451cbf580a5b864fd0b046f1837eb46 100644 (file)
--- 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 e4c7da1d13f77f4a5b3d0da6a95452d388682d7f..a74e30ad8519b9ef6dac2a6e8829245c7ab1d2a8 100644 (file)
--- 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 965b52e4b812bfba8aff4fe60ac819d00de68c0b..8676c98d4021dd02a0be3502d60e0a8d0e4a76f4 100644 (file)
--- 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 1cf1e810541d125405bff2be2fbf297369b3ad52..adca6ad4d7b32d42c76a5e0797774afb595e18bb 100644 (file)
--- 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.