*** empty log message ***

49 files changed, 298 insertions, 58 deletions

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 9bd311290fb..ba159233bc4 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -1,4 +1,4 @@
-;; Abbrev mode commands for Emacs
+;;; abbrev.el --- abbrev mode commands for Emacs
 
 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
 
@@ -287,3 +287,5 @@ If called from a Lisp program, arguments are START END &optional NOQUERY."
                     pnt)))
             (if (or noquery (y-or-n-p (format "Expand `%s'? " string)))
                 (expand-abbrev)))))))
+
+;;; abbrev.el ends here
diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el
index a7942248dde..ee77462907e 100644
--- a/lisp/abbrevlist.el
+++ b/lisp/abbrevlist.el
@@ -1,4 +1,5 @@
-;; 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.
 
@@ -44,3 +45,4 @@
 
 (provide 'abbrevlist)
 
+;;; abbrevlist.el ends here
diff --git a/lisp/ada.el b/lisp/ada.el
index 22c80707b42..4588d72780e 100644
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -1,4 +1,5 @@
-; Ada editing support package in GNUlisp.  v1.0
+;;; ada.el --- Ada editing support package in GNUlisp.  v1.0
+
 ; Author: Vincent Broman <broman@bugs.nosc.mil>  May 1987.
 ; (borrows heavily from Mick Jordan's Modula-2 package for GNU,
 ; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.)
@@ -634,3 +635,5 @@ Initialize the library if a prefix arg is given."
   "Bind the current program library, using the current binding options."
   (interactive)
   (compile (concat "adabind " ada-bind-opts " " ada-lib-dir-name)))
+
+;;; ada.el ends here
diff --git a/lisp/apropos.el b/lisp/apropos.el
index 66b3c4947bb..5f0eab734f1 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1,4 +1,5 @@
-;; Faster apropos commands.
+;;; apropos.el --- faster apropos commands.
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -321,3 +322,4 @@ Will return nil instead."
       nil
     symbol))
 
+;;; apropos.el ends here
diff --git a/lisp/array.el b/lisp/array.el
index d58d558188e..b7abdee6dd2 100644
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -1,4 +1,5 @@
-;;; Array editing commands for Gnu Emacs
+;;; array.el --- array editing commands for Gnu Emacs
+
 ;;;  Written by dmb%morgoth@harvard.harvard.edu (address is old)
 ;;;   (David M. Brown at Goldberg-Zoino & Associates, Inc.)
 ;;;  Thanks to cph@kleph.ai.mit.edu for assistance
@@ -955,3 +956,5 @@ array in this buffer."
         (or arg
           (+ (ceiling max-column columns-per-line)
              (if rows-numbered 1 0)))))
+
+;;; array.el ends here
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index 61736c9f68b..d8eba1bb0dc 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -1,4 +1,5 @@
-;; Automatic mode-dependent insertion of text into new files.
+;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -90,3 +91,5 @@ Matches the visited file name against the elements of `auto-insert-alist'."
 (setq find-file-not-found-hooks
       (cons 'insert-auto-insert-files
             find-file-not-found-hooks))
+
+;;; autoinsert.el ends here
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 77923774da7..371bb586d80 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -1,4 +1,5 @@
-;; Buffer menu main function and support functions.
+;;; buff-menu.el --- buffer menu main function and support functions.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -282,3 +283,5 @@ You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] comma
     (switch-to-buffer (other-buffer))
     (pop-to-buffer buff)
     (bury-buffer menu)))
+
+;;; buff-menu.el ends here
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 5d11695cdaf..2376d76a867 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -1,4 +1,5 @@
-;; Appointment notification functions.
+;;; appt.el --- appointment notification functions.
+
 ;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -494,7 +495,6 @@ The time should be in either 24 hour format or am/pm format."
     (setq conv-time (+ (* hr 60) min))
     conv-time))
 
-
 (setq display-time-hook 'appt-check)
 
-
+;;; appt.el ends here
diff --git a/lisp/case-table.el b/lisp/case-table.el
index 2de955de2cd..bb35c1e8913 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -1,4 +1,5 @@
-;; Functions for extending the character set and dealing with case tables.
+;;; case-table.el --- functions for extending the character set and dealing with case tables.
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -98,3 +99,5 @@ SYNTAX should be \" \", \"w\", \".\" or \"_\"."
   (modify-syntax-entry c syntax text-mode-syntax-table))
 
 (provide 'case-table)
+
+;;; case-table.el ends here
diff --git a/lisp/chistory.el b/lisp/chistory.el
index 2dd78a1f558..620288fc77a 100644
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -1,4 +1,5 @@
-;; chistory -- List command history
+;;; chistory.el --- list command history
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -166,3 +167,4 @@ The Command History listing is recomputed each time this mode is invoked."
 
 (provide 'chistory)
 
+;;; chistory.el ends here
diff --git a/lisp/cl.el b/lisp/cl.el
index 723238aec2f..1ff7024c133 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 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -3133,6 +3134,6 @@ No checking is even attempted.  This is just for compatibility with
 Common-Lisp codes."
   form)
 
-;;;; end of cl.el
-
 (provide 'cl)
+
+;;; cl.el ends here
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index b817b42e662..fe20f7e1959 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -1,4 +1,5 @@
 ;;; cmuscheme.el -- Scheme process in a buffer. Adapted from tea.el.
+
 ;;; Copyright Olin Shivers (1988)
 ;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
 ;;; notice appearing here to the effect that you may use this code any
@@ -429,3 +430,5 @@ This is a good place to put keybindings.")
 ;;;   Tale suggested this.
 
 (provide 'cmuscheme)
+
+;;; cmuscheme.el ends here
diff --git a/lisp/comint.el b/lisp/comint.el
index 91d480e56fd..93bed741388 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1,4 +1,5 @@
-;;; -*-Emacs-Lisp-*- General command interpreter in a window stuff
+;;; comint.el --- general command interpreter in a window stuff
+
 ;;; Copyright Olin Shivers (1988).
 
 ;;; This file is part of GNU Emacs.
@@ -1361,3 +1362,5 @@ This is a good place to put keybindings.")
 ;;;   liked them; I don't think anyone used them.
 
 (provide 'comint)
+
+;;; comint.el ends here
diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index b3dbf0e47c3..b4f4e6f383f 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -1,4 +1,5 @@
-;; Compare text between windows for Emacs.
+;;; compare-w.el --- compare text between windows for Emacs.
+
 ;; Copyright (C) 1986, 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -128,3 +129,4 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
 
 (provide 'compare-w)
 
+;;; compare-w.el ends here
diff --git a/lisp/completion.el b/lisp/completion.el
index 9d478e78630..6ae62aa8a64 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -1,3 +1,5 @@
+;;; completion.el --- dynamic word-completion code
+
 ;;; This is a Completion system for GNU Emacs
 ;;;
 ;;;  E-Mail: 
@@ -3111,3 +3113,5 @@ and KILLP is t if prefix arg is was specified."
 
 (cmpl-statistics-block
   (record-completion-file-loaded))
+
+;;; completion.el ends here
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index e488e385b06..d6d306b7391 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -1,4 +1,5 @@
-;; Dynamic abbreviation package for GNU Emacs.
+;;; dabbrev.el --- dynamic abbreviation package for GNU Emacs.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -257,3 +258,4 @@ with the next possible expansion not yet tried."
 
 (provide 'dabbrevs)
 
+;;; dabbrev.el ends here
diff --git a/lisp/diary-lib.el b/lisp/diary-lib.el
index b196707f09f..83e22d52aa4 100644
--- a/lisp/diary-lib.el
+++ b/lisp/diary-lib.el
@@ -1,4 +1,5 @@
-;; Diary functions.
+;;; diary.el --- diary functions.
+
 ;; Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -2126,3 +2127,4 @@ to the date indicated by point.  Prefix arg will make the entry nonmarking."
 
 (provide 'diary)
 
+;;; diary.el ends here
diff --git a/lisp/diff.el b/lisp/diff.el
index 7b92c6a4314..138f674ea08 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -1,4 +1,5 @@
-;; "DIFF" mode for handling output from unix diff utility.
+;;; diff.el --- "DIFF" mode for handling output from unix diff utility.
+
 ;; Copyright (C) 1990 Free Software Foundation, Inc.
 ;; Written fpb@ittc.wec.com 1/27/89
 
@@ -269,3 +270,5 @@ Differences are delimited by `diff-search-pattern'."
           (setq cnt (1+ cnt)))
         (message "Counting differences...done (%d)" cnt)
         cnt))))
+
+;;; diff.el ends here
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 524bc80cd3f..d0f0ec03899 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -1,4 +1,5 @@
-;; Functions for dealing with char tables.
+;;; disp-table.el --- functions for dealing with char tables.
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -113,3 +114,5 @@
     (aset glyf-table i string)))
 
 (provide 'disp-table)
+
+;;; disp-table.el ends here
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index f3fab00a19e..88e50a9799e 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -1,3 +1,5 @@
+;;; ebuff-menu.el --- electric-buffer-list mode
+
 ; buggestions to mly@ai.mit.edu
 
 ;; who says one can't have typeout windows in gnu emacs?
@@ -236,6 +238,4 @@ Returns to Electric Buffer Menu when done."
       (message "Buffer %s does not exist!" bufnam)
       (sit-for 4))))
 
-
-
-
+;;; ebuff-menu.el ends here
diff --git a/lisp/echistory.el b/lisp/echistory.el
index 1354650f171..59e51cddf6a 100644
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -1,4 +1,5 @@
-;; Electric Command History Mode
+;;; echistory.el --- Electric Command History Mode
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -136,3 +137,5 @@ The Command History listing is recomputed each time this mode is invoked."
   (if (boundp 'electric-history-in-progress)
       (progn (message "")
              (throw 'electric-history-quit nil))))
+
+;;; echistory.el ends here
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 90d8ebed47c..05ee0912a2c 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -1,4 +1,5 @@
-;; Keyboard macro editor for GNU Emacs.  Version 1.02.
+;;; edmacro.el --- keyboard macro editor for GNU Emacs.  Version 1.02.
+
 ;; Copyright (C) 1990 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -641,3 +642,5 @@ directly back into keystrokes."
 (if (boundp 'edmacro-mode-map) ()
   (setq edmacro-mode-map (make-sparse-keymap))
   (define-key edmacro-mode-map "\C-c\C-c" 'edmacro-finish-edit))
+
+;;; edmacro.el ends here
diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 69f2fd4e8af..94eadfadbd3 100644
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -1,3 +1,5 @@
+;;; ehelp.el --- bindings for electric-help mode
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -306,3 +308,4 @@ will select it.)"
 
 (provide 'ehelp) 
 
+;;; ehelp.el ends here
diff --git a/lisp/electric.el b/lisp/electric.el
index eab8cd135ed..50e2a015389 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -1,4 +1,5 @@
-;; electric -- Window maker and Command loop for `electric' modes.
+;;; electric.el --- window maker and Command loop for `electric' modes.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -180,4 +181,6 @@
       (goto-char (point-min))
       win)))
 
-(provide 'electric)                           
\ No newline at end of file
+(provide 'electric)
+
+; electric.el ends here
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 5e78798c05e..b399a29bfa0 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -1,4 +1,5 @@
-;;; Maintain autoloads in loaddefs.el.
+;;; autoload.el --- maintain autoloads in loaddefs.el.
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
 ;;; Written by Roland McGrath.
 ;;;
@@ -289,3 +290,4 @@ For example, invoke \"emacs -batch -f batch-update-autoloads *.el\""
 
 (provide 'autoload)
 
+;;; autoload.el ends here
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 0b5283ca819..9a4d7d5ffd7 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -1,3 +1,5 @@
+;; backquote.el --- backquoting for Emacs Lisp macros
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Written by Dick King (king@kestrel).
 
@@ -354,3 +356,4 @@ for making the list so far."
 
 (provide 'backquote)
 
+;;; backquote.el ends here
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 4e4543725c8..92f20f7cc4f 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -1,4 +1,5 @@
-;; Lisp mode, and its idiosyncratic commands.
+;;; cl-indent.el --- enhanced lisp-indent mode
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 ;; Written by Richard Mlynarik July 1987
 
@@ -464,3 +465,4 @@ by `lisp-body-indent'.")
 
 ;; To disable this stuff, (setq lisp-indent-function 'lisp-indent-function)
 
+;;; cl-indent.el ends here
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index ff31feb68ce..9faf131dd26 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -1,4 +1,5 @@
-;; Debuggers and related commands for Emacs
+;;; debug.el --- debuggers and related commands for Emacs
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -354,3 +355,5 @@ If argument is nil or an empty string, cancel for all functions."
           (setq list (cdr list))))
       (princ "Note: if you have redefined a function, then it may no longer\n")
       (princ "be set to debug on entry, even if it is in the list."))))
+
+;;; debug.el ends here
diff --git a/lisp/emerge.el b/lisp/emerge.el
index 659d50afcef..bcb15da3aee 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -1,4 +1,4 @@
-;;; emerge.el   version 4
+;;; emerge.el --- merge diffs inder Emacs control (version 4)
 
 ;;; 13 Dec 1991
 
@@ -1140,6 +1140,7 @@ emerge-file-names.")
 
 ;;; Functions to start Emerge on files
 
+;;;###autoload
 (defun emerge-files (arg file-A file-B file-out &optional startup-hooks
                      quit-hooks)
   "Run Emerge on two files."
@@ -1160,6 +1161,7 @@ emerge-file-names.")
      quit-hooks)
    file-out))
 
+;;;###autoload
 (defun emerge-files-with-ancestor (arg file-A file-B file-ancestor file-out
                                    &optional startup-hooks quit-hooks)
   "Run Emerge on two files, giving another file as the ancestor."
@@ -1189,6 +1191,7 @@ emerge-file-names.")
 
 ;;; Functions to start Emerge on buffers
 
+;;;###autoload
 (defun emerge-buffers (buffer-A buffer-B &optional startup-hooks quit-hooks)
   "Run Emerge on two buffers."
   (interactive "bBuffer A to merge: \nbBuffer B to merge: ")
@@ -1209,6 +1212,7 @@ emerge-file-names.")
                   quit-hooks
                   nil)))
 
+;;;###autoload
 (defun emerge-buffers-with-ancestor (buffer-A buffer-B buffer-ancestor
                                               &optional startup-hooks
                                               quit-hooks)
@@ -1243,6 +1247,7 @@ emerge-file-names.")
 
 ;;; Functions to start Emerge from the command line
 
+;;;###autoload
 (defun emerge-files-command ()
   (let ((file-a (nth 0 command-line-args-left))
         (file-b (nth 1 command-line-args-left))
@@ -1252,6 +1257,7 @@ emerge-file-names.")
      file-a file-b nil
      (list (` (lambda () (emerge-command-exit (, file-out))))))))
 
+;;;###autoload
 (defun emerge-files-with-ancestor-command ()
   (let (file-a file-b file-anc file-out)
     ;; check for a -a flag, for filemerge compatibility
@@ -1279,6 +1285,7 @@ emerge-file-names.")
 
 ;;; Functions to start Emerge via remote request
 
+;;;###autoload
 (defun emerge-files-remote (file-a file-b file-out)
   (setq emerge-file-out file-out)
   (emerge-files-internal
@@ -1287,6 +1294,7 @@ emerge-file-names.")
    file-out)
   (throw 'client-wait nil))
 
+;;;###autoload
 (defun emerge-files-with-ancestor-remote (file-a file-b file-anc file-out)
   (setq emerge-file-out file-out)
   (emerge-files-with-ancestor-internal
@@ -2973,7 +2981,6 @@ See also auto-save-file-name-p."
       (setq limit (1+ (match-end 0)))))
   s)
 
-;;;;;;;;;;;;;;;; end emerge.el ;;;;;;;;;;;;;;;;
-
 (provide 'emerge)
 
+;;; emerge.el ends here
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 8d60eeeb347..58874fd94aa 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -20,6 +20,113 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;; From mike@yetti.UUCP Fri Aug 29 12:49:28 1986
+;; Path: yetti!mike@uunet.uu.net
+;; From: mike@yetti.UUCP (Mike Clarkson )
+;; Newsgroups: net.sources
+;; Subject: Gnu Emacs EDT Emulation - Introduction - 1/3
+;; Date: 27 Aug 86 23:30:33 GMT
+;; Reply-To: mike@yetti.UUCP (Mike Clarkson )
+;; Organization: York University Computer Science
+;; 
+;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation
+;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson
+;; at Tektronics.  This emulation was widely distributed as the file edt.ml
+;; in the maclib directory of most Emacs distributions.
+;;      
+;; My emulation consists of two files: edt.el and edtdoc.el.  The edtdoc.el
+;; file is the documentation, that you can add to the beginning of edt.el if
+;; you want.  I have split them because I have been loading the edt.el file a
+;; lot during debugging.
+;;      
+;; I will gladly take all criticisms and complaints to heart, and will fix what
+;; bugs I can find.  As this is my first elisp hack, you may have to root out a
+;; few nasties hidden in the code.  Please let me know if you find any (sorry,
+;; no rewards :-).  I would also be interested if there are better, cleaner,
+;; faster ways of doing some of the things that I have done.
+;;      
+;; You must understand some design considerations that I had in mind.
+;; The intention was not really to "emulate" EDT, but rather to take advantage
+;; of the years of EDT experience that had accumulated in my right hand,
+;; while at the same time taking advantage of EMACS.
+;;      
+;; Some major differences are:
+;;      
+;; HELP            is describe-key;
+;; GOLD/HELP       is describe-function;
+;; FIND            is isearch-forward/backward;
+;; GOLD/HELP       is occur-menu, which finds all instances of a search string;
+;; ENTER           is other-window;
+;; SUBS            is subprocess-command.  Note that you have to change this
+;;                 to `shell' if you are running Un*x;
+;; PAGE            is next-paragraph, because that's more useful than page.
+;; SPECINS         is copy-to-killring;
+;; GOLD/GOLD       is mark-section-wisely, which is my command to mark the
+;;                 section in a manner consistent with the major-mode.  It
+;;                 uses mark-defun for emacs-lisp, lisp, mark-c-function for C,
+;;                 and mark-paragraph for other modes.
+;;      
+;;      
+;; Some subtle differences are:
+;;      
+;; APPEND          is append-to-buffer.  One doesn't append to the kill ring
+;;                 much and SPECINS is now copy-to-killring;
+;; REPLACE         is replace-regexp;
+;; FILL            is fill-region-wisely, which uses indent-region for C, lisp
+;;                 emacs-lisp, and fill-region for others. It asks if you
+;;                 really want to fill-region in TeX-mode, because I find this
+;;                 to be very dangerous.
+;; CHNGCASE        is case-flip for the character under the cursor only.
+;;                 I felt that case-flip region is unlikely, as usually you
+;;                 upcase-region or downcase region.  Also, unlike EDT it
+;;                 is independent of the direction you are going, as that
+;;                 drives me nuts.
+;;      
+;; I use Emacs definition of what a word is.  This is considerably different
+;; from what EDT thinks a word is.  This is not good for dyed-in-the-wool EDT
+;; fans, but is probably preferable for experienced Emacs users.  My assumption
+;; is that the former are a dying breed now that GNU Emacs has made it to VMS,
+;; but let me know how you feel.  Also, when you undelete a word it leave the
+;; point at the end of the undeleted text, rather than the beginning.  I might
+;; change this as I'm not sure if I like this or not. I'm also not sure if I
+;; want it to set the mark each time you delete a character or word.
+;;      
+;; Backspace does not invoke beginning-of-line, because ^H is the help prefix,
+;; and I felt it should be left as such.  You can change this if you like.
+;;      
+;; The ADVANCE and BACKUP keys do not work as terminators for forward or
+;; backward searches. In Emacs, all search strings are terminated by return.
+;; The searches will however go forward or backward depending on your current
+;; direction.  Also, when you change directions, the mode line will not be
+;; updated immediately, but only when you next execute an emacs function.
+;; Personally, I consider this to be a bug, not a feature.
+;;      
+;; This should also work with VT-2xx's, though I haven't tested it extensively
+;; on those terminals.  It assumes that the CSI-map of vt_200.el has been
+;; defined.
+;;      
+;; There are also a whole bunch of GOLD letter, and GOLD character bindings:
+;; look at edtdoc.el for them, or better still, look at the edt.el lisp code,
+;; because after all, in the true Lisp tradition, the source code is *assumed*
+;; to be self-documenting :-)
+;;      
+;; Mike Clarkson,            ...!allegra \             BITNET:  mike@YUYETTI or
+;; CRESS, York University,   ...!decvax   \                 SYMALG@YUSOL
+;; 4700 Keele Street,        ...!ihnp4     > !utzoo!yetti!mike
+;; North York, Ontario,      ...!linus    /
+;; CANADA M3J 1P3.           ...!watmath /      Phone: +1 (416) 736-2100 x 7767
+;;      
+;; Note that I am not on ARPA, and must gateway any ARPA mail through BITNET or
+;; UUCP.  If you have a UUCP or BITNET address please use it for communication
+;; so that I can reach you directly.  If you have both, the BITNET address
+;; is preferred.
+;; -- 
+;; Mike Clarkson,                 ...!allegra \         BITNET: mike@YUYETTI or
+;; CRESS, York University,        ...!decvax   \                SYMALG@YUSOL
+;; 4700 Keele Street,     ...!ihnp4     > !utzoo!yetti!mike
+;; North York, Ontario,   ...!linus    /                     
+;; CANADA M3J 1P3.                ...!watmath / Phone: +1 (416) 737-2100 x 7767
+
 (require 'keypad)
 
 (defvar edt-last-deleted-lines ""
diff --git a/lisp/files.el b/lisp/files.el
index 1827bf9e7a1..bc7f7981a8f 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1,4 +1,5 @@
-;; File input and output commands for Emacs
+;;; files.el --- file input and output commands for Emacs
+
 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1382,3 +1383,5 @@ With prefix arg, silently save all file-visiting buffers, then kill."
 (define-key ctl-x-3-map "b" 'switch-to-buffer-other-screen)
 (define-key ctl-x-3-map "f" 'find-file-other-screen)
 (define-key ctl-x-3-map "r" 'find-file-read-only-other-screen)
+
+;;; files.el ends here
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 2afb4b435d4..ab5e3c43ef3 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -1,4 +1,5 @@
-;;; find-dired.el -- Run a `find' command and dired the output
+;; find-dired.el --- run a `find' command and dired the output
+
 ;;; Copyright (C) 1991 Roland McGrath
 
 (defconst find-dired-version (substring "$Revision: 1.9 $" 11 -2)
@@ -200,3 +201,4 @@ Wildcards and redirection are handle as usual in the shell."
 
 (provide 'find-dired)
 
+;;; find-dired.el ends here
diff --git a/lisp/find-gc.el b/lisp/find-gc.el
index 3504d2949d8..1e02e65c1d0 100644
--- a/lisp/find-gc.el
+++ b/lisp/find-gc.el
@@ -1,5 +1,22 @@
-;;;; find-gc.el
+;;; find-gc.el --- detect functions that call the garbage collector
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; 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
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;; Produce in unsafe-list the set of all functions that may invoke GC.
 ;;; This expects the Emacs sources to live in emacs-source-directory.
@@ -125,3 +142,4 @@
       (setq ptr (cdr ptr))))
 )
 
+;;; find-gc.el ends here
diff --git a/lisp/float-sup.el b/lisp/float-sup.el
index f784ef2bf3c..f52832fb3a1 100644
--- a/lisp/float-sup.el
+++ b/lisp/float-sup.el
@@ -1,4 +1,5 @@
-;; Basic editing commands for Emacs
+;;; float-sup.el --- detect absence of floating-point support in Emacs runtime
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -51,3 +52,4 @@
 
 (provide 'lisp-float-type)
 
+;;; float-sup.el ends here
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index f65e665d051..36b409d7fac 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -1,4 +1,5 @@
-;; Command to report Emacs bugs to appropriate mailing list.
+;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
+
 ;; Not fully installed because it can work only on Internet hosts.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
@@ -37,3 +38,4 @@ Prompts for bug subject.  Leaves you in a mail buffer."
   (insert "\nIn " (emacs-version) "\n\n")
   (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
 
+;;; emacsbug.el ends here
diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index 35be83f2db5..59a21a25708 100644
--- a/lisp/play/blackbox.el
+++ b/lisp/play/blackbox.el
@@ -1,4 +1,5 @@
-;  Blackbox game in Emacs Lisp
+;;; blackbox.el --- blackbox game in Emacs Lisp
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -418,3 +419,5 @@ a reflection."
   (cond
    ((equal item (car list)) (cdr list))
    (t (cons (car list) (bb-delete item (cdr list))))))
+
+;;; blackbox.el ends here
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index f33682db749..cfc29d902a0 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -1,4 +1,5 @@
-;; Scramble text amusingly for Emacs.
+;;; dissociate.el --- scramble text amusingly for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -86,3 +87,5 @@ Default is 2."
                  (goto-char 1)
                  (funcall search-function overlap opoint t))))))
       (sit-for 0))))
+
+;;; dissociate.el ends here
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 74d6efc4c2d..0cb5dc9327b 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1,4 +1,5 @@
-;; Psychological help for frustrated users.
+;;; doctor.el --- psychological help for frustrated users.
+
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1608,3 +1609,5 @@ Hack on previous word, setting global variable OWNER to correct result."
   (interactive)
   (insert "Mein fuhrer!!\n")
   (doctor-read-print))
+
+;;; doctor.el ends here
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el
index 6ef6e5ff83a..55202cd63aa 100644
--- a/lisp/progmodes/asm-mode.el
+++ b/lisp/progmodes/asm-mode.el
@@ -1,4 +1,5 @@
-;; Mode for editing assembler code
+;;; asm-mode.el --- Mode for editing assembler code
+
 ;; Copyright (C) 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
diff --git a/lisp/progmodes/awk-mode.el b/lisp/progmodes/awk-mode.el
index 7b70f82b748..61cd531e9d2 100644
--- a/lisp/progmodes/awk-mode.el
+++ b/lisp/progmodes/awk-mode.el
@@ -1,4 +1,5 @@
-;; C code editing commands for Emacs
+;;; awk-mode.el --- AWK code editing commands for Emacs
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -81,3 +82,5 @@ with no args, if that value is non-nil."
   (make-local-variable 'comment-indent-hook)
   (setq comment-indent-hook 'c-comment-indent)
   (run-hooks 'awk-mode-hook))
+
+;;; awk-mode.el ends here
diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el
index ef3319c9e00..c5ed38bf5e8 100644
--- a/lisp/progmodes/c-mode.el
+++ b/lisp/progmodes/c-mode.el
@@ -1,4 +1,5 @@
-;; C code editing commands for Emacs
+;;; c-mode.el --- C code editing commands for Emacs
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1062,3 +1063,5 @@ Available styles are GNU, K&R, BSD and Whitesmith."
     (while vars
       (set (car (car vars)) (cdr (car vars)))
       (setq vars (cdr vars)))))
+
+;;; c-mode.el ends here
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index f60c2254f5a..431fa13cf1f 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -1,4 +1,5 @@
-;; C macro expansion
+;;; cmacexp.el --- C macro expansion
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -82,3 +83,5 @@ and macros to predefine."
       (while (eolp) (delete-char 1))
       (delete-region (point-min) (point)))
     (display-buffer outbuf)))
+
+;;; cmacexp.el ends here
diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el
index f5082895e1e..1de2e826c39 100644
--- a/lisp/progmodes/cplus-md.el
+++ b/lisp/progmodes/cplus-md.el
@@ -1,4 +1,5 @@
-;; C++ code editing commands for Emacs
+;;; c++-mode.el --- C++ code editing commands for Emacs
+
 ;; 1987 Dave Detlefs  (dld@cs.cmu.edu) 
 ;; and  Stewart Clamen (clamen@cs.cmu.edu).
 ;; Done by fairly faithful modification of:
@@ -964,3 +965,5 @@ If non-nil, use `c++-defun-header-strong'.")
         (next-line 1)
         (beginning-of-line 1)))
     (goto-char restore)))
+
+;;; c++-mode.el ends here
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 3b74be87cc6..c7daec726ee 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1,4 +1,5 @@
-;; Tags facility for Emacs.
+;;; etags.el --- tags facility for Emacs.
+
 ;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -351,7 +352,6 @@ unless it has one in the tag table."
        (terpri)
        (forward-line 1)))))
 
-;; etags.el ends here
-
 (provide 'etags)
 
+;;; etags.el ends here
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index f3e3ce606d1..98299190f49 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -1,4 +1,5 @@
-;;; -*-Emacs-Lisp-*- cmulisp.el
+;;; cmulisp.el --- improved version of standard inferior-lisp mode
+
 ;;; Copyright Olin Shivers (1988).
 ;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
 ;;; notice appearing here to the effect that you may use this code any
@@ -600,3 +601,4 @@ This is a good place to put keybindings.")
 
 (provide 'cmulisp)
 
+;;; cmulisp.el ends here
diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index 8e3a546709a..c08ed9ed28d 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -1,4 +1,5 @@
-;; 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.
 ;; Time stamp <89/03/21 14:27:08 gildea>
 
@@ -302,3 +303,4 @@ X and Y are 0-based character positions on the screen."
 
 (provide 'bg-mouse)
 
+;;; bg-mouse.el ends here
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 14ef2045a7b..8c7c38c4c31 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -1,4 +1,5 @@
-;; bib-mode, major mode for editing bib files.
+;;; bib-mode.el --- bib-mode, major mode for editing bib files.
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -232,3 +233,4 @@ in the title).")
 
 (provide 'bib-mode)
 
+;;; bib-mode.el ends here
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index d008fe99b3c..4579760d9bb 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1,4 +1,5 @@
-;;; BibTeX mode for GNU Emacs
+;;; bibtex.el --- BibTeX mode for GNU Emacs
+
 ;; Copyright (C) 1985, 1986, 1987, 1990 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1098,7 +1099,6 @@ an undefined location.
 
 ))  ; matches (if...
 
-;;; ------------- end bibtex-mode.el -------------------------------
-
-(provide 'bibtex)(provide 'bibtex)
+(provide 'bibtex)
 
+;;; bibtex.el ends here
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 7ea751f9a37..9940d59ea9d 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1,4 +1,5 @@
-;; Fill commands for Emacs
+;;; fill.el --- fill commands for Emacs
+
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -285,3 +286,5 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
           (let ((had-newline (bolp)))
             (fill-region-as-paragraph start (point) justifyp)
             (or had-newline (delete-char -1))))))))
+
+;;; fill.el ends here
\ No newline at end of file