*** empty log message ***

140 files changed, 1288 insertions, 537 deletions

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 3cbeb19391b..0b0247d8dfe 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -1,12 +1,15 @@
 ;;; abbrev.el --- abbrev mode commands for Emacs
 
-;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 1992
+
+;; Copyright (C) 1985, 1986, 1987, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defconst only-global-abbrevs nil "\
 *t means user plans to use global abbrevs only.
@@ -152,7 +156,7 @@ Does not print anything."
   (read-abbrev-file file t))
 
 (defun write-abbrev-file (file)
-  "Write all abbrev definitions to file of Lisp code.
+  "Write all abbrev definitions to a file of Lisp code.
 The file written can be loaded in another session to define the same abbrevs.
 The argument FILE is the file name to write."
   (interactive
@@ -160,7 +164,6 @@ The argument FILE is the file name to write."
     (read-file-name "Write abbrev file: "
 		    (file-name-directory (expand-file-name abbrev-file-name))
 		    abbrev-file-name)))
-  (interactive "FWrite abbrev file: ")
   (or (and file (> (length file) 0))
       (setq file abbrev-file-name))
   (save-excursion
diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el
index 520ce29b201..4db719486cd 100644
--- a/lisp/abbrevlist.el
+++ b/lisp/abbrevlist.el
@@ -1,5 +1,8 @@
 ;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
 ;; Suggested by a previous version by Gildea.
 
@@ -7,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun list-one-abbrev-table (abbrev-table output-buffer)
   "Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."
diff --git a/lisp/ada.el b/lisp/ada.el
index 4588d72780e..f3746313998 100644
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -1,8 +1,8 @@
 ;;; 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.)
+;; Author: Vincent Broman <broman@bugs.nosc.mil>
+;; Last-Modified: 30 Jan 1991
+;; Keywords: languages
 
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
@@ -10,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -22,6 +22,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; Created May 1987.
+;; (borrows heavily from Mick Jordan's Modula-2 package for GNU,
+;; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.)
+
+;;; Code:
+
 (setq auto-mode-alist (cons (cons "\\.ada$" 'ada-mode) auto-mode-alist))
 
 (defvar ada-mode-syntax-table nil
diff --git a/lisp/apropos.el b/lisp/apropos.el
index 5f0eab734f1..987ef12489b 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1,12 +1,15 @@
 ;;; apropos.el --- faster apropos commands.
 
+;; Author: Joe Wells <jbw@bigbird.bu.edu>
+;; Last-Modified: 5 May 1989
+
 ;; Copyright (C) 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,10 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Author: Joe Wells
-;; Last changed: Fri May  5 18:08:16 1989 by jbw (Joseph Wells) on bucsf
-;; jbw%bucsf.bu.edu@bu-it.bu.edu (school year)
-;; joew@uswest.com (summer)
+;;; Commentary:
 
 ;; The ideas for this package were derived from the C code in
 ;; src/keymap.c and elsewhere.  The functions in this file should
@@ -43,6 +43,8 @@
 ;; Made doc file buffer read-only, buried it.
 ;; Only call substitute-command-keys if do-all set.
 
+;;; Code:
+
 (defvar apropos-do-all nil
   "*Whether `apropos' and `super-apropos' should do everything that they can.
 Makes them run 2 or 3 times slower.  Set this non-nil if you have a fast
diff --git a/lisp/array.el b/lisp/array.el
index b7abdee6dd2..ad7d6c54443 100644
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -1,8 +1,8 @@
 ;;; 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
+;; Author David M. Brown
+;; Maintainer: FSF
+;; Last-Modified: 30 Jan 1991
 
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
@@ -10,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -22,12 +22,19 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;;;  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
+
 ;;; To do:
 ;;;   Smooth initialization process by grokking local variables list
 ;;;     at end of buffer or parsing buffer using whitespace as delimiters.
 ;;;   Make 'array-copy-column-right faster.
 
 
+;;; Code:
 
 ;;; Internal information functions.
   
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index d8eba1bb0dc..ca583bb0780 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -1,12 +1,16 @@
 ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
 
+;; Author: Charlie Martin <crm@cs.duke.edu>
+;; Created: 01 Jul 1988
+;; Last-Modified: 30 Jun 1992
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,7 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;;; autoinsert.el
+;;; Commentary:
 
 ;;;  Abstract:
 ;;;
@@ -49,6 +53,8 @@
 ;;;
 ;;;  Date: Fri Jul  1 16:15:31 EDT 1988
 
+;;; Code:
+
 (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
 			    ("\\.c$" . "c-insert.c")
 			    ("\\.h$" . "h-insert.c")
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 3f2778be604..c9339532349 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -1,12 +1,17 @@
 ;;; appt.el --- appointment notification functions.
 
+;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
+;; Version: 2.1
+;; Last-Modified: 14 Jul 1992
+;; Keywords: calendar
+
 ;; Copyright (C) 1989, 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,12 +23,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;
 ;; appt.el - visible and/or audible notification of
 ;;           appointments from ~/diary file generated from
 ;;           Edward M. Reingold's calendar.el.
 ;;
-;; Version 2.1
 ;;
 ;; Comments, corrections, and improvements should be sent to
 ;; Neil M. Mager
@@ -99,6 +105,9 @@
 ;;; reads. This is all done automatically.
 ;;; It is invoked from the function list-diary-entries.
 ;;;
+
+;;; Code:
+
 (defvar appt-issue-message t
   "*Non-nil means check for appointments in the diary buffer.
 To be detected, the diary entry must have the time
diff --git a/lisp/case-table.el b/lisp/case-table.el
index bdc109675ba..407c63ed14c 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -1,4 +1,8 @@
-;;; case-table.el --- functions for extending the character set and dealing with case tables.
+;;; case-table.el ---code to extend the character set and support case tables.
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -6,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; Written by:
 ;; TN/ETX/TX/UMG Howard Gayle        UUCP : seismo!enea!erix!howard
@@ -26,6 +31,8 @@
 ;; S-126 25 Stockholm                FAX  : +46 8 719 64 82
 ;; Sweden
 
+;;; Code:
+
 (defun describe-buffer-case-table ()
   "Describe the case table of the current buffer."
   (interactive)
diff --git a/lisp/chistory.el b/lisp/chistory.el
index 620288fc77a..e6871f53e49 100644
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -1,13 +1,16 @@
 ;;; chistory.el --- list command history
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,12 +22,15 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; This really has nothing to do with list-command-history per se, but
 ;; its a nice alternative to C-x ESC (repeat-complex-command) and
 ;; functions as a lister if given no pattern.  It's not important
 ;; enough to warrant a file of its own.
 
+;;; Code:
+
 ;;;###autoload
 (defun repeat-matching-complex-command (&optional pattern)
   "Edit and re-evaluate complex command with name matching PATTERN.
diff --git a/lisp/comint.el b/lisp/comint.el
index 24ba4459246..b4686ac42a4 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1,12 +1,16 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
+;; Maintainer: Olin Shivers <shivers@cs.cmu.edu>
+;; Last-Modified: 16 Jul 1992
+;; Version: 2.03
+
 ;;; Copyright Olin Shivers (1988).
 
 ;;; 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)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 
 ;;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,8 @@
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; The changelog is at the end of this file.
 
 ;;; Please send me bug reports, bug fixes, and extensions, so that I can
@@ -57,8 +63,6 @@
 ;;; background, dbx, gdb, kermit, prolog, telnet) to use comint-mode
 ;;; instead of shell-mode, see the notes at the end of this file.
 
-(defconst comint-version "2.03")
-
 
 ;;; Brief Command Documentation:
 ;;;============================================================================
@@ -101,6 +105,10 @@
 ;;; comint-mode-hook is the comint mode hook. Basically for your keybindings.
 ;;; comint-load-hook is run after loading in this package.
 
+;;; Code:
+
+(defconst comint-version "2.03")
+
 
 ;;; Buffer Local Variables:
 ;;;============================================================================
diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index b4f4e6f383f..f244e1d1f7c 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -1,12 +1,15 @@
 ;;; compare-w.el --- compare text between windows for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1986, 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar compare-windows-whitespace " \t\n"
   "*String of characters considered whitespace for \\[compare-windows].
 Changes in whitespace are optionally ignored.
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 218e7c02460..476a36b37fb 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -1,12 +1,15 @@
 ;;; dabbrev.el --- dynamic abbreviation package for GNU Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ; DABBREVS - "Dynamic abbreviations" hack, originally written by Don Morrison
 ; for Twenex Emacs.  Converted to mlisp by Russ Fish.  Supports the table
@@ -30,10 +34,12 @@
 ;  
 ; If anyone feels like hacking at it, Bob Keller (Keller@Utah-20) first
 ; suggested the beast, and has some good ideas for its improvement, but
-; doesn?tknow TECO (the lucky devil...).  One thing that should definitely
+; doesn't know TECO (the lucky devil...).  One thing that should definitely
 ; be done is adding the ability to search some other buffer(s) if you can?t
 ; find the expansion you want in the current one.
 
+;;; Code:
+
 ;; (defun dabbrevs-help ()
 ;;   "Give help about dabbrevs."
 ;;   (interactive)
diff --git a/lisp/diff.el b/lisp/diff.el
index 7a0dd95387c..aa0551cef08 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -1,13 +1,17 @@
 ;;; diff.el --- "DIFF" mode for handling output from unix diff utility.
 
+;; Author: Frank P. Bresz <fpb@ittc.wec.com>
+;; Maintainer: FSF
+;; Created: 27 Jan 1989
+;; Last-Modified: 21 Dec 1992
+
 ;; Copyright (C) 1990 Free Software Foundation, Inc.
-;; Written fpb@ittc.wec.com 1/27/89
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; todo: diff-switches flexibility:
 ;; (defconst diff-switches-function
 ;;   '(lambda (file)
@@ -36,7 +42,8 @@
 ;; search for the pattern.  If you only 1 addition you won't find the end
 ;; of the pattern (minor)
 
-;;
+;;; Code:
+
 (defvar diff-switches nil
   "*A list of switches to pass to the diff program.")
 
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 98f8a0dde37..04e9af44c59 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1,15 +1,16 @@
 ;; dired-aux.el --- directory browsing command support
-;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>.
 ;; Version: 5.234
 ;; Last-Modified: 14 Jul 1992
 
+;; Copyright (C) 1985, 1986, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -1779,4 +1780,4 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
 
 ;;;###end dired-ins.el
 
-;;; dired-aux.el ends here
\ No newline at end of file
+;;; dired-aux.el ends here
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 9b275cbca0f..88366207a5e 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -1,12 +1,16 @@
 ;;; disp-table.el --- functions for dealing with char tables.
 
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,8 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-
-;; Written by Howard Gayle.
+;;; Code:
 
 (defun rope-to-vector (rope)
   (let* ((len (/ (length rope) 2))
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 88e50a9799e..d9f1525d645 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -1,9 +1,7 @@
 ;;; ebuff-menu.el --- electric-buffer-list mode
 
-; buggestions to mly@ai.mit.edu
-
-;; who says one can't have typeout windows in gnu emacs?
-;; like ^r select buffer from its emacs lunar or tmacs libraries.
+;; Author: Richard Mlynarik <mly@ai.mit.edu>
+;; Last-Modified: 21 Dec 1991
 
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
@@ -11,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -23,6 +21,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:
+
+;; who says one can't have typeout windows in gnu emacs?
+;; like ^r select buffer from its emacs lunar or tmacs libraries.
+
+;;; Code:
 
 (require 'electric)
 
diff --git a/lisp/echistory.el b/lisp/echistory.el
index 59e51cddf6a..d3d495456a8 100644
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -1,13 +1,16 @@
 ;;; echistory.el --- Electric Command History Mode
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (require 'electric)			; command loop
 (require 'chistory)			; history lister
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 05ee0912a2c..4d92b45b89f 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -1,4 +1,9 @@
-;;; edmacro.el --- keyboard macro editor for GNU Emacs.  Version 1.02.
+;;; edmacro.el --- keyboard macro editor
+
+;; Author: Dave Gillespie <daveg@csvax.caltech.edu>
+;; Maintainer: FSF
+;; Version: 1.02
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1990 Free Software Foundation, Inc.
 
@@ -6,7 +11,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,13 +23,15 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Original from: Dave Gillespie, daveg@csvax.caltech.edu.
+;;; Commentary:
 
 ;; To use, type `M-x edit-last-kbd-macro' to edit the most recently
 ;; defined keyboard macro.  If you have used `M-x name-last-kbd-macro'
 ;; to give a keyboard macro a name, type `M-x edit-kbd-macro' to edit
 ;; the macro by name.  When you are done editing, type `C-c C-c' to
 ;; record your changes back into the original keyboard macro.
+
+;;; Code:
 
 ;;; The user-level commands for editing macros.
 
diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 94eadfadbd3..713a8984acd 100644
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -1,12 +1,15 @@
 ;;; ehelp.el --- bindings for electric-help mode
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'electric)
 (defvar electric-help-map ()
   "Keymap defining commands available in `electric-help-mode'.")
diff --git a/lisp/electric.el b/lisp/electric.el
index b42eb47ed0e..cce4b101304 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -1,13 +1,16 @@
 ;;; electric.el --- window maker and Command loop for `electric' modes.
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 09 Jun 1992
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index c6916a3dd56..cdc5785c35e 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -1,11 +1,13 @@
 ;;; autoload.el --- maintain autoloads in loaddefs.el.
 
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 24 Jun 1992
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
 ;;;
 ;;; 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
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 ;;;
 ;;; This program is distributed in the hope that it will be useful,
@@ -19,6 +21,8 @@
 ;;; 02139, USA.
 ;;;
 
+;;; Code:
+
 (defun make-autoload (form file)
   "Turn FORM, a defun or defmacro, into an autoload for source file FILE.
 Returns nil if FORM is not a defun or defmacro."
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 9a4d7d5ffd7..bff397e3d74 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -1,13 +1,15 @@
 ;; backquote.el --- backquoting for Emacs Lisp macros
 
+;; Author: Dick King (king@kestrel).
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Written by Dick King (king@kestrel).
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,8 +21,9 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
-;;; This is a rudimentry backquote package written by D. King,
+ ;;; This is a rudimentry backquote package written by D. King,
  ;;; king@kestrel, on 8/31/85.  (` x) is a macro
  ;;; that expands to a form that produces x.  (` (a b ..)) is
  ;;; a macro that expands into a form that produces a list of what a b
@@ -58,6 +61,7 @@
  ;;; This is so crunchy that I am considering including a check for
  ;;; this or changing the syntax to ... ,(<form>).  RMS: opinion?
 
+;;; Code:
 
 ;;; a raft of general-purpose macros follows.  See the nearest
  ;;; Commonlisp manual.
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 92f20f7cc4f..d27e29d7e07 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -1,5 +1,9 @@
 ;;; cl-indent.el --- enhanced lisp-indent mode
 
+;; Author: Richard Mlynark <mly@eddie.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 ;; Written by Richard Mlynarik July 1987
 
@@ -7,7 +11,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;>> TODO
 ;; :foo
 ;;   bar
@@ -33,6 +39,7 @@
 ;;              baz)
 ;;  Need something better than &rest for such cases
 
+;;; Code:
 
 ;;; Hairy lisp indentation.
 
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index 444cc29f913..767119fa9c4 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -1,9 +1,9 @@
 ;; cus-print.el -- handles print-level and print-circle.
 
-;; LCD Archive Entry:
-;; custom-print|Daniel LaLiberte|liberte@cs.uiuc.edu
-;; |Handle print-level, print-circle and more.
-;; |$Date: Tue Mar 17, 1992$|$Revision: 1.0$|
+;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
+;; Version: 1.0
+;; Last-Modified: 17 Mar 1992
+;; Adapted-By: ESR
 
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
@@ -11,7 +11,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -23,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; This package provides a general print handler for prin1 and princ
 ;; that supports print-level and print-circle, and by the way,
 ;; print-length since the standard routines are being replaced.  Also,
@@ -88,6 +90,7 @@
 ;; custom-message
 ;; custom-error
 
+;;; Code:
 
 (provide 'custom-print)
 ;; Abbreviated package name: "CP"
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 9faf131dd26..f3378c5f01d 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -1,12 +1,15 @@
 ;;; debug.el --- debuggers and related commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 08 Jan 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar debug-function-list nil
   "List of functions currently set for debug on entry.")
diff --git a/lisp/emacs-lisp/float.el b/lisp/emacs-lisp/float.el
index d01ba1e291d..85d9b4db78c 100644
--- a/lisp/emacs-lisp/float.el
+++ b/lisp/emacs-lisp/float.el
@@ -1,13 +1,16 @@
 ;;; float.el --- floating point arithmetic package.
 
+;; Author: Bill Rosenblatt
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
-;; Author Bill Rosenblatt
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; Floating point numbers are represented by dot-pairs (mant . exp)
 ;; where mant is the 24-bit signed integral mantissa and exp is the
 ;; base 2 exponent.
@@ -46,6 +51,8 @@
 ;; June 20, 1986
 ;;
 
+;;; Code:
+
 ;; fundamental implementation constants
 (defconst exp-base 2
   "Base of exponent in this floating point representation.")
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index e3565856f56..cf9b2899319 100644
--- a/lisp/emacs-lisp/helper.el
+++ b/lisp/emacs-lisp/helper.el
@@ -1,13 +1,16 @@
 ;;; helper.el --- utility help package supporting help in electric modes
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1991
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ; hey, here's a helping hand.
 
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index d3c1c519460..9314d0b51fb 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -1,12 +1,15 @@
 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
 
+;; Maintainer: FSF
+;; Last-Modified: 03 Jun 1992
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index cc3b189ea3d..feedaa56077 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -1,12 +1,15 @@
 ;;; lisp.el --- Lisp editing commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 12 Mar 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar defun-prompt-regexp nil
   "Non-nil => regexp to ignore, before the `(' that starts a defun.")
diff --git a/lisp/emacs-lisp/profile.el b/lisp/emacs-lisp/profile.el
index dfd853fcb32..27757ce0b1d 100644
--- a/lisp/emacs-lisp/profile.el
+++ b/lisp/emacs-lisp/profile.el
@@ -1,8 +1,8 @@
 ;;; profile.el -- generate run time measurements of Emacs Lisp functions
 
 ;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu>
-;; Created: 7 Feb 1992
-;; Last-Modified: 7 Feb 1992
+;; Created: 07 Feb 1992
+;; Last-Modified: 07 Feb 1992
 ;; Version: 1.0
 ;; Adapted-By: ESR
 
@@ -12,7 +12,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 589f7418bf6..15a45251f53 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1,5 +1,10 @@
 ;;; edt.el --- EDT emulation in Emacs
 
+;; Author: Mike Clarkson <mike@yetti.UUCP>
+;; Maintainer: FSF
+;; Created: 27 Aug 1986
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 ;;  It started from public domain code by Mike Clarkson
 ;;  but has been greatly altered.
@@ -8,7 +13,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -20,25 +25,13 @@
 ;; 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
-;; 
+;;; Commentary:
+
 ;; 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 Emacs Lisp hack, you may have to root
 ;; out a few nasties hidden in the code.  Please let me know if you find any
@@ -120,12 +113,8 @@
 ;; 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
+
+;;; Code:
 
 (require 'keypad)
 
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index ec6d93eb4a1..e1609a8748c 100644
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -1,12 +1,15 @@
 ;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
 
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;###autoload
 (defun convert-mocklisp-buffer ()
   "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run."
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 65af46a309e..7023662e764 100644
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -1,12 +1,15 @@
 ;;; mlsupport.el --- run-time support for mocklisp code.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defmacro ml-defun (&rest defs)
   (list 'ml-defun-1 (list 'quote defs)))
diff --git a/lisp/env.el b/lisp/env.el
index d80338a00aa..e03c38be1a7 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -1,12 +1,15 @@
 ;;; setenv.el --- functions to manipulate environment variables.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;;; Copyright Free Software Foundation 1991
 
 ;;; 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)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 
 ;;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defun setenv (variable value)
   "Set the value of the environment variable named VARIABLE to VALUE.
 VARIABLE and VALUE should both be strings.
diff --git a/lisp/files.el b/lisp/files.el
index 21f0bd1c4ca..6e68c137f77 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1,12 +1,15 @@
 ;;; files.el --- file input and output commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 92
+
 ;; Copyright (C) 1985, 1986, 1987, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defconst delete-auto-save-files t
   "*Non-nil means delete a buffer's auto-save file when the buffer is saved.")
 
diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index ab5e3c43ef3..be7b0eaf662 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -1,13 +1,18 @@
 ;; find-dired.el --- run a `find' command and dired the output
 
-;;; Copyright (C) 1991 Roland McGrath
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;;	Sebastian Kremer <sk@thp.uni-koeln.de>
+;; Maintainer: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 16 Mar 1992
 
 (defconst find-dired-version (substring "$Revision: 1.9 $" 11 -2)
   "$Id: find-dired.el,v 1.9 1991/11/11 13:24:31 sk Exp $")
 
+;;; Copyright (C) 1991 Roland McGrath
+
 ;;; 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
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 ;;;
 ;;; This program is distributed in the hope that it will be useful,
@@ -19,13 +24,8 @@
 ;;; program's author (send electronic mail to roland@ai.mit.edu) or from
 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
 ;;; 02139, USA.
-;;;
-;; LISPDIR ENTRY for the Elisp Archive ===============================
-;;    LCD Archive Entry:
-;;    find-dired|Roland McGrath, Sebastian Kremer
-;;    |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de
-;;    |Run a `find' command and dired the output
-;;    |$Date: 1991/11/11 13:24:31 $|$Revision: 1.9 $|
+
+;;; Commentary:
 
 ;; INSTALLATION ======================================================
 
@@ -46,6 +46,8 @@
 ;;
 ;; in your ~/.emacs.
 
+;;; Code:
+
 (require 'dired)
 ;;;###autoload
 (defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"
diff --git a/lisp/find-gc.el b/lisp/find-gc.el
index 1e02e65c1d0..3523f9ca4e2 100644
--- a/lisp/find-gc.el
+++ b/lisp/find-gc.el
@@ -1,12 +1,15 @@
 ;;; find-gc.el --- detect functions that call the garbage collector
 
+;; Maintainer: FSF
+;; Last-Modified: 21 Nov 1990
+
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;; Code:
+
 ;;; Produce in unsafe-list the set of all functions that may invoke GC.
 ;;; This expects the Emacs sources to live in emacs-source-directory.
 ;;; It creates a temporary working directory /tmp/esrc.
diff --git a/lisp/float-sup.el b/lisp/float-sup.el
index f52832fb3a1..e4cb195fbc8 100644
--- a/lisp/float-sup.el
+++ b/lisp/float-sup.el
@@ -1,12 +1,15 @@
 ;;; float-sup.el --- detect absence of floating-point support in Emacs runtime
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;; Provide a meaningful error message if we are running on
 ;; bare (non-float) emacs.
 ;; Can't test for 'floatp since that may be defined by float-imitation
diff --git a/lisp/ftp.el b/lisp/ftp.el
index fec6a493484..2d051e1195f 100644
--- a/lisp/ftp.el
+++ b/lisp/ftp.el
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -21,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;; Prevent changes in major modes from altering these variables.
 (put 'ftp-temp-file-name 'permanent-local t)
 (put 'ftp-file 'permanent-local t)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 17a0c2d206a..ea56efd1b73 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1,13 +1,17 @@
 ;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
 
-;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
 ;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
 
+;; Copyright (C) 1987, 1988, 1989, 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; GNUS Mailing List:
 ;; There are two mailing lists for GNUS lovers in the world:
 ;;
@@ -47,6 +53,8 @@
 ;; (3) Multi-GNUS (Talking to many hosts same time).
 ;; (4) Asynchronous transmission of large messages.
 
+;;; Code:
+
 (require 'nntp)
 (require 'mail-utils)
 
diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el
index 73f58b4317c..049cd47c626 100644
--- a/lisp/gnusmail.el
+++ b/lisp/gnusmail.el
@@ -1,13 +1,17 @@
 ;;; gnusmail.el --- mail reply commands for GNUS newsreader
 
-;; Copyright (C) 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
 ;; $Header: gnusmail.el,v 1.1 90/03/23 13:24:39 umerin Locked $
 
+;; Copyright (C) 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,7 +23,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(require 'gnus)
+;;; Commentary:
 
 ;; Provides mail reply and mail other window command using usual mail
 ;; interface and mh-e interface.
@@ -32,6 +36,10 @@
 ;; gnus-mail-other-window-method to gnus-mail-reply-using-mhe and
 ;; gnus-mail-other-window-using-mhe, respectively.
 
+;;; Code:
+
+(require 'gnus)
+
 (autoload 'news-mail-reply "rnewspost")
 (autoload 'news-mail-other-window "rnewspost")
 
diff --git a/lisp/gnusmisc.el b/lisp/gnusmisc.el
index a1c269a6197..8d1b0e37820 100644
--- a/lisp/gnusmisc.el
+++ b/lisp/gnusmisc.el
@@ -1,13 +1,17 @@
 ;;; gnusmisc.el --- miscellaneous commands for GNUS newsreader
 
-;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
 ;; $Header: gnusmisc.el,v 1.2 90/03/23 13:25:04 umerin Locked $
 
+;; Copyright (C) 1989, 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'gnus)
 
 ;;;
diff --git a/lisp/gnuspost.el b/lisp/gnuspost.el
index d7eecf2242e..b5becd39fca 100644
--- a/lisp/gnuspost.el
+++ b/lisp/gnuspost.el
@@ -1,13 +1,17 @@
 ;;; gnuspost.el --- post news commands for GNUS newsreader
 
-;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
 ;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $
 
+;; Copyright (C) 1989, 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'gnus)
 
 (defvar gnus-organization-file "/usr/lib/news/organization"
diff --git a/lisp/gosmacs.el b/lisp/gosmacs.el
index 7246959f3a5..5791956bb61 100644
--- a/lisp/gosmacs.el
+++ b/lisp/gosmacs.el
@@ -1,12 +1,15 @@
 ;;; gosmacs.el --- rebindings to imitate Gosmacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar non-gosmacs-binding-alist nil)
 
diff --git a/lisp/grow-vers.el b/lisp/grow-vers.el
index 7e34961faaa..ceea85d9a06 100644
--- a/lisp/grow-vers.el
+++ b/lisp/grow-vers.el
@@ -1,14 +1,15 @@
 ;;; grow-vers.el --- increment Emacs version number
 
-;; Load this file to add a new level (starting at zero)
-;; to the Emacs version number recorded in version.el.
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -20,6 +21,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:
+
+;; Load this file to add a new level (starting at zero)
+;; to the Emacs version number recorded in version.el.
+
+;;; Code:
 
 (insert-file-contents "lisp/version.el")
 
diff --git a/lisp/help.el b/lisp/help.el
index 270934d989b..6c4c33e40fa 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1,12 +1,15 @@
 ;;; help.el --- help commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar help-map (make-sparse-keymap)
   "Keymap for characters following the Help key.")
 
diff --git a/lisp/hexl.el b/lisp/hexl.el
index 4656a9e7c0c..56c94d8e372 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1,4 +1,7 @@
-;;; hexl-mode.el --- edit a file in a hex dump format.
+;;; hexl-mode.el --- edit a file in a hex dump format using the hexl filter.
+
+;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
+;; Last-Modified: 06 Mar 1991
 
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
@@ -6,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,9 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;;
-;; By: Keith Gabryelski (ag@wheaties.ai.mit.edu)
-;;
+;;; Commentary:
+
 ;; This may be useful in your .emacs:
 ;;
 ;;	(autoload 'hexl-find-file "hexl"
@@ -37,6 +39,8 @@
 ;; ASCII region of the screen (if your emacs supports this) instead of
 ;; changing them to dots.
 
+;;; Code:
+
 ;;
 ;; vars here
 ;;
diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el
index 1eed7b35940..0260dfa5232 100644
--- a/lisp/inc-vers.el
+++ b/lisp/inc-vers.el
@@ -1,12 +1,15 @@
 ;;; inc-vers.el --- load this to increment the recorded Emacs version number.
 
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (insert-file-contents "../lisp/version.el")
 
diff --git a/lisp/indent.el b/lisp/indent.el
index 2990a5ae2df..3f5d5fe8156 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -1,12 +1,15 @@
 ;;; indent.el --- indentation commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 1992
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar indent-line-function 'indent-to-left-margin "\
 Function to indent current line.");Now in loaddefs.el
diff --git a/lisp/info.el b/lisp/info.el
index 58eccfc8392..abf05ea71ff 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1,12 +1,15 @@
 ;;; info.el --- info package for Emacs.
-;;; Note that nowadays we expect info files to be made using makeinfo.
+
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,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:
+
+;;; Note that nowadays we expect info files to be made using makeinfo.
+
+;;; Code:
+
 (defvar Info-history nil
   "List of info nodes user has visited.
 Each element of list is a list (FILENAME NODENAME BUFFERPOS).")
diff --git a/lisp/informat.el b/lisp/informat.el
index 939b1cbb632..af970512ee6 100644
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -1,12 +1,15 @@
 ;;; informat.el --- info support functions package for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'info)
 
 ;;;###autoload
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el
index b90d5aa47c0..2a7417d7cd0 100644
--- a/lisp/international/iso-ascii.el
+++ b/lisp/international/iso-ascii.el
@@ -1,4 +1,8 @@
-;;; iso-ascii.el --- set up char tables for ISO 8859/1 character set for ASCII terminals.
+;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
 
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
@@ -6,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; Written by Howard Gayle.  See display-table.el for details.
 
@@ -25,6 +30,8 @@
 ;; ASCII terminals.  The display strings for the characters are
 ;; more-or-less based on TeX.
 
+;;; Code:
+
 (require 'disp-table)
 
 (standard-display-ascii 160 "{_}")   ; NBSP (no-break space)
diff --git a/lisp/international/iso-insert.el b/lisp/international/iso-insert.el
index 84f19858735..be653bed52f 100644
--- a/lisp/international/iso-insert.el
+++ b/lisp/international/iso-insert.el
@@ -1,12 +1,16 @@
 ;;; iso-insert.el --- insert functions for ISO 8859/1.
 
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
 
diff --git a/lisp/international/iso-swed.el b/lisp/international/iso-swed.el
index 0e8caf49ed0..7d16f1d9a12 100644
--- a/lisp/international/iso-swed.el
+++ b/lisp/international/iso-swed.el
@@ -1,4 +1,8 @@
-;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish terminals.
+;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
 
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
@@ -6,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
 
diff --git a/lisp/international/swedish.el b/lisp/international/swedish.el
index 46465167d09..865a6f16edd 100644
--- a/lisp/international/swedish.el
+++ b/lisp/international/swedish.el
@@ -1,12 +1,15 @@
 ;;; swedish.el --- miscellaneous functions for dealing with Swedish.
 
+;; Author: Howard Gayle
+;; Maintainer: FSF
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
 
diff --git a/lisp/isearch-old.el b/lisp/isearch-old.el
index 1661979e5f1..570ddc1c973 100644
--- a/lisp/isearch-old.el
+++ b/lisp/isearch-old.el
@@ -1,12 +1,15 @@
 ;;; isearch.el --- incremental search commands
 
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar search-last-string "" "\
 Last string search for by a non-regexp search command.
 This does not include direct calls to the primitive search functions,
diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index a91546ebd96..3939bcab6a2 100644
--- a/lisp/iso8859-1.el
+++ b/lisp/iso8859-1.el
@@ -1,11 +1,16 @@
-;; Set up case-conversion and syntax tables for ISO 8859/1 character set.
+;; iso8859-1.el --- set up case-conversion and syntax tables for ISO 8859/1
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -17,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
 
diff --git a/lisp/kermit.el b/lisp/kermit.el
index 883ed787bd1..75e5f3ff227 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -10,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -73,6 +73,8 @@
 ;; Please let me know if any bugs turn up.
 ;; Feb 1988, Jeff Norden - jeff@colgate.csnet
 
+;;; Code:
+
 (require 'shell)
 
 (defvar kermit-esc-char "\C-\\" "*Kermit's escape char")
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 90347323056..1f8667bd268 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -1,12 +1,15 @@
 ;;; ledit.el --- Emacs side of ledit interface
 
+;; Maintainer: FSF
+;; Last-Modified: 13 May 1991
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;; To do:
 ;;; o lisp -> emacs side of things (grind-definition and find-definition)
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 24b09eb6bcf..81123a297ea 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,5 +1,8 @@
 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
 ;; This is loaded into a bare Emacs to make a dumpable one.
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
@@ -7,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;; We don't want to have any undo records in the dumped Emacs.
 (buffer-disable-undo "*scratch*")
 
diff --git a/lisp/lpr.el b/lisp/lpr.el
index e7d182fede8..d6b3723f2a5 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -1,12 +1,15 @@
 ;;; lpr.el --- print Emacs buffer on line printer.
 
+;; Maintainer: FSF
+;; Last-Modified: 19 Apr 1992
+
 ;; Copyright (C) 1985, 1988, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defconst lpr-switches nil "\
diff --git a/lisp/macros.el b/lisp/macros.el
index 4cd6a34ebe8..74fdff6f7f0 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -1,12 +1,15 @@
 ;;; macros.el --- non-primitive commands for keyboard macros.
 
+;; Maintainer: FSF
+;; Last-Modified: 05 Nov 1991
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defun name-last-kbd-macro (symbol)
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index aff48f1a45c..a450af90a84 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -1,17 +1,17 @@
 ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
 
+;; Author: K. Shane Hartman
 ;; Maintainer: FSF
 ;; Last-Modified: 21 Dec 1991
 
 ;; Not fully installed because it can work only on Internet hosts.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index a7d9ef9c3b3..dbed4b708b6 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -1,12 +1,15 @@
 ;;; mail-utils.el --- utility functions used both by rmail and rnews
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
 ;;; been initialized.
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index e0b44601b9e..190ba5aa887 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -1,12 +1,15 @@
 ;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
 
+;; Maintainer: FSF
+;; Last-Modified: 01 Jun 1992
+
 ;; Copyright (C) 1985, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Called from sendmail-send-it, or similar functions,
 ;; only if some mail aliases are defined.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index f4a6656297c..9a88ce98005 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1,12 +1,15 @@
 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 24 Apr 1992
+
 ;; Copyright (C) 1985, 1986, 1987, 1988, 1991, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
 ;;   New features include attribute and keyword support, message
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index fa29b50c084..60eca528952 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -1,12 +1,15 @@
 ;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message.
 
+;; Maintainer: FSF
+;; Last-Modified: 31 Jul 1991
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (require 'rmail)
 
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index b8ad6a59f58..1ac89d3461d 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -1,12 +1,15 @@
 ;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985, 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Global to all RMAIL buffers.  It exists primarily for the sake of
 ;; completion.  It is better to use strings with the label functions
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el
index cd042ae94c0..26ce9aa8bc5 100644
--- a/lisp/mail/rmailmsc.el
+++ b/lisp/mail/rmailmsc.el
@@ -1,12 +1,15 @@
 ;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader
 
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index a9dc5e385f1..fdb3f029ca6 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -1,7 +1,7 @@
 ;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
 
 ;; Maintainer: FSF
-;; Last-Modified: 1 Mar 1991
+;; Last-Modified: 01 Mar 1991
 
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index 32f459c0d4d..a069aec05c3 100644
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -1,11 +1,14 @@
 ;;; rmailsort.el --- Rmail: sort messages.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -17,6 +20,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (require 'rmail)
 (require 'sort)
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 12f6cf527a3..1a4e0e48301 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1,12 +1,15 @@
 ;;; rmailsum.el --- "RMAIL" mail reader for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 30 Nov 1990
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; summary things
 
diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index 4bec3713f5e..a4fc266fd4c 100644
--- a/lisp/mail/rnews.el
+++ b/lisp/mail/rnews.el
@@ -1,12 +1,15 @@
 ;;; rnews.el --- USENET news reader for gnu emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Change Log:
+
 ;; Created Sun Mar 10,1985 at 21:35:01 ads and sundar@hernes.ai.mit.edu
 ;; Should do the point pdl stuff sometime
 ;; finito except pdl.... Sat Mar 16,1985 at 06:43:44
@@ -44,6 +49,9 @@
 ;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
 ;;	tower@prep Nov 21 1986
 ;; added tower@prep 22 Apr 87
+
+;;; Code:
+
 (require 'mail-utils)
 
 (autoload 'rmail-output "rmailout"
diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 91077ed311a..cdc7dd388e7 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -1,12 +1,15 @@
 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1992
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;; Change Log:
+
 ;; moved posting and mail code from rnews.el
 ;;	tower@prep.ai.mit.edu Wed Oct 29 1986
 ;; brought posting code almost up to the revision of RFC 850 for News 2.11
@@ -32,8 +37,6 @@
 ;;	tower@prep 28 Apr 87
 ;; commented out Posting-Front-End to save USENET bytes tower@prep Jul 31 87
 ;; commented out -n and -t args in news-inews     tower@prep 15 Oct 87
-(require 'sendmail)
-(require 'rnews)
 
 ;Now in paths.el.
 ;(defvar news-inews-program "inews"
@@ -48,6 +51,11 @@
 ;;; >> Nuked by Mly to autoload those functions again, as the duplication of
 ;;; >>  code was making maintenance too difficult.
 
+;;; Code:
+
+(require 'sendmail)
+(require 'rnews)
+
 (defvar news-reply-mode-map () "Mode map used by news-reply.")
 
 (or news-reply-mode-map
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index a9f6c864fec..3373886703d 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1,12 +1,15 @@
 ;;; sendmail.el --- mail sending commands for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
 ;; Copyright (C) 1985, 1986, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defconst mail-self-blind nil "\
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 5b80fbf8e2e..fe10a4e1a20 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -1,12 +1,15 @@
 ;;; undigest.el --- digest-cracking support for the RMAIL mail reader
 
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,7 +21,11 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; note Interent RFP934
+;;; Commentary:
+
+;; See Internet RFC 934
+
+;;; Code:
 
 (defun undigestify-rmail-message ()
   "Break up a digest message into its constituent messages.
diff --git a/lisp/makesum.el b/lisp/makesum.el
index 8a7445d0b7c..46dd0dfe5a4 100644
--- a/lisp/makesum.el
+++ b/lisp/makesum.el
@@ -1,7 +1,7 @@
 ;;; makesum.el --- generate key binding summary for Emacs
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/man.el b/lisp/man.el
index c2e0d45ac3f..77201267a80 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,12 +1,15 @@
 ;;; man.el --- read in and display parts of Unix manual.
 
+;; Maintainer: FSF
+;; Last-Modified: 21 Dec 1991
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;###autoload
 (defun manual-entry (topic &optional section)
   "Display the Unix manual entry for TOPIC.
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 5f4571f4ab8..16b34246790 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -1,11 +1,13 @@
 ;;; map-ynp.el --- General-purpose boolean question-asker.
 
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 14 Mar 1992
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
 ;;;
 ;;; 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
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 ;;;
 ;;; This program is distributed in the hope that it will be useful,
@@ -17,7 +19,9 @@
 ;;; program's author (send electronic mail to roland@ai.mit.edu) or from
 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
 ;;; 02139, USA.
-;;;
+
+;;; Commentary:
+
 ;;; map-y-or-n-p is a general-purpose question-asking function.
 ;;; It asks a series of y/n questions (a la y-or-n-p), and decides to
 ;;; applies an action to each element of a list based on the answer.
@@ -26,6 +30,8 @@
 ;;; questions; ESC or q to answer n to all remaining questions; . to answer
 ;;; y once and then n for the remainder; and you can get help with C-h.
 
+;;; Code:
+
 (defun map-y-or-n-p-help (object objects action)
   (format "Type SPC or `y' to %s the current %s;
 DEL or `n' to skip the current %s;
diff --git a/lisp/medit.el b/lisp/medit.el
index 9c08ccb2b9d..c5dbf23817e 100644
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -1,14 +1,16 @@
-;;; medit.el --- Lisp interface between GNU Emacs and MEDIT package.
+;;; medit.el --- front-end to the MEDIT package for editing MDL
+
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 05 Apr 1991
 
-;; Emacs under MDL.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -20,10 +22,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; >> This package depends on two MDL packages: MEDIT and FORKS which
 ;; >> can be obtained from the public (network) library at mit-ajax.
 
+;;; Code:
+
 (require 'mim-mode)
 
 (defconst medit-zap-file (concat "/tmp/" (user-login-name) ".medit.mud")
diff --git a/lisp/mim-mode.el b/lisp/mim-mode.el
index 1c0dec2ed59..09d7cb4350f 100644
--- a/lisp/mim-mode.el
+++ b/lisp/mim-mode.el
@@ -1,13 +1,16 @@
 ;;; mim-mode.el --- Mim (MDL in MDL) mode.
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (autoload 'fast-syntax-check-mim "mim-syntax"
 	  "Checks Mim syntax quickly.
diff --git a/lisp/mim-syntax.el b/lisp/mim-syntax.el
index a9ab16ca25d..ba84f538111 100644
--- a/lisp/mim-syntax.el
+++ b/lisp/mim-syntax.el
@@ -1,13 +1,16 @@
 ;;; mim-syntax.el --- syntax checker for Mim (MDL).
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (require 'mim-mode)
 
diff --git a/lisp/misc.el b/lisp/misc.el
index 3eea6ec22bb..ebdf52806f7 100644
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -1,12 +1,15 @@
 ;;; misc.el --- basic editing commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
 ;; Copyright (C) 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun copy-from-above-command (&optional arg)
   "Copy characters from previous nonblank line, starting just above point.
diff --git a/lisp/netunam.el b/lisp/netunam.el
index f6b59182839..4ace2c6e781 100644
--- a/lisp/netunam.el
+++ b/lisp/netunam.el
@@ -1,6 +1,6 @@
 ;;; netunam.el --- HP-UX RFA Commands
 
-;; Author: CPH <cph@zurich.ai.mit.edu>
+;; Author: Chris Hanson <cph@zurich.ai.mit.edu>
 ;; Last-Modified: 31 Oct 1989
 
 ;;; $Header: netunam.el,v 1.3 88/12/21 16:32:23 GMT cph Exp $
@@ -11,7 +11,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/novice.el b/lisp/novice.el
index c5374e8b8be..9849fd45ea7 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -1,12 +1,15 @@
 ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 22 May 1991
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;; Code:
 
 ;; This function is called (by autoloading)
 ;; to handle any disabled command.
diff --git a/lisp/options.el b/lisp/options.el
index 86e8d493032..be6432c1c5d 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -1,12 +1,15 @@
 ;;; options.el --- edit Options command for Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 10 Apr 1991
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defun list-options ()
diff --git a/lisp/paths.el b/lisp/paths.el
index 074b979d558..3419c0d09c5 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -1,12 +1,15 @@
 ;;; paths.el --- define pathnames for use by various Emacs commands.
 
+;; Maintainer: FSF
+;; Last-Modified: 05 Dec 1991
+
 ;; Copyright (C) 1986, 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; These are default settings for names of certain files and directories
 ;; that Emacs needs to refer to from time to time.
@@ -25,6 +29,8 @@
 ;; If these settings are not right, override them with `setq'
 ;; in site-init.el.  Do not change this file.
 
+;;; Code:
+
 (defvar Info-default-directory-list
   (list "/usr/local/lib/info/"
 	(expand-file-name "../info/" data-directory))
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 344d8ef3011..b0998320f7e 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -2,6 +2,7 @@
 
 ;; Maintainer: FSF
 ;; Last-Modified: 09 May 1991
+;; Keywords: games
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 0cb5dc9327b..5d6a437e07c 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1,12 +1,16 @@
 ;;; doctor.el --- psychological help for frustrated users.
 
+;; Maintainer: FSF
+;; Last-Modified: 24 Apr 1992
+;; Keywords: games
+
 ;; Copyright (C) 1985, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun doctor-cadr (x) (car (cdr x)))
 (defun doctor-caddr (x) (car (cdr (cdr x))))
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index b3696b50b33..68df99c3eba 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1,12 +1,17 @@
 ;;; gomoku.el --- Gomoku game between you and Emacs
 
+;; Author: Phillippe Schnoebelen <phs@lifia.imag.fr>
+;; Last-Modified: 16 Mar 1992
+;; Adapted-By: ESR
+;; Keywords: games
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +23,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Gomoku game between you and GNU Emacs.  Last modified on 13 Sep 1988
 ;;;
 ;;; Written by Ph. Schnoebelen (phs@lifia.imag.fr), 1987, 1988
@@ -74,6 +81,8 @@
 ;; The algorithm is briefly described in section "THE SCORE TABLE". Some
 ;; parameters may be modified if you want to change the style exhibited by the
 ;; program.
+
+;;; Code:
 
 ;;;
 ;;; GOMOKU MODE AND KEYMAP.
diff --git a/lisp/play/life.el b/lisp/play/life.el
index 3ce585d9f16..59dcbfb3856 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -1,13 +1,15 @@
 ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
 
+;; Author: Kyle Jones <talos!kjones@uunet.uu.net>
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
-;; Contributed by Kyle Jones, talos!kjones@uunet.uu.net
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defconst life-patterns
   [("@@@" " @@" "@@@")
    ("@@@ @@@" "@@  @@ " "@@@ @@@")
diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index 98b22fc2086..9c62ed0e5a1 100644
--- a/lisp/play/spook.el
+++ b/lisp/play/spook.el
@@ -1,7 +1,7 @@
 ;;; spook.el --- spook phrase utility for overloading the NSA line eater
 
 ;;; Maintainer: FSF
-;;; Last-modified: 05 Dec 1991
+;;; Last-Modified: 05 Dec 1991
 
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 9f71ee5b925..ac8c43d5a31 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -1,7 +1,7 @@
 ;;; yow.el --- generate random zippyisms
 
 ;; Maintainer: FSF
-;; Last-modified: 14 Jun 1992
+;; Last-Modified: 14 Jun 1992
 
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el
index c2f98c47f02..46ffe0647f6 100644
--- a/lisp/progmodes/c-mode.el
+++ b/lisp/progmodes/c-mode.el
@@ -1,12 +1,16 @@
 ;;; c-mode.el --- C code editing commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 11 Jul 1992
+;; Keywords: c
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar c-mode-abbrev-table nil
   "Abbrev table in use in C mode.")
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 431fa13cf1f..2529fbbe69e 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -1,12 +1,16 @@
 ;;; cmacexp.el --- C macro expansion
 
+;; Maintainer: FSF
+;; Last-Modified: 17 Apr 1992
+;; Keywords: c
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar c-macro-preprocessor "/lib/cpp"
   "*Command to be used for C preprocessing.")
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 485ce393200..2c171190093 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1,4 +1,8 @@
-;; Tags facility for Emacs.
+;; etags.el --- etags facility for Emacs
+
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Keywords: tools
+
 ;; Copyright (C) 1985, 1986, 1988, 1989, 1991, 1992
 ;;	Free Software Foundation, Inc.
 
@@ -18,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;###autoload
 (defvar tags-file-name nil "\
 *File name of tags table.
@@ -1079,3 +1085,5 @@ for \\[find-tag] (which see).  See also `visit-tags-table-buffer'."
 ;;;###autoload (define-key esc-map "?" 'complete-tag)	;? XXX
 
 (provide 'etags)
+
+;;; etags.el ends here
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 326464d8804..60e1e6e4005 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1,6 +1,30 @@
-;;; fortran.el --- Fortran mode for GNU Emacs  (version 1.28.3, July 15, 1991)
+;;; fortran.el --- Fortran mode for GNU Emacs
+
+;; Author: Michael D. Prange <prange@erl.mit.edu>
+;; Maintainer: bug-fortran-mode@erl.mit.edu
+;; Version 1.28.3
+;; Last-Modified: 15 Jul 1991
 
 ;;; Copyright (c) 1991 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 2, 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.
+
+;;; Commentary:
+
 ;;; Written by Michael D. Prange (prange@erl.mit.edu)
 ;;; Maintained (as of version 1.28) by Stephen A. Wood (saw@hallc1.cebaf.gov)
 ;;; This version is an update of version 1.21 (Oct 1, 1985).
@@ -70,26 +94,12 @@
 ;;; 14. When in tab mode, the fortran column ruler will not be correct if
 ;;;     tab-width is not 8.
 
-;; 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.
-
 ;;; Author acknowledges help from Stephen Gildea <gildea@erl.mit.edu>
 
 ;;; Bugs to bug-fortran-mode@erl.mit.edu
 
+;;; Code:
+
 ;;;###autoload
 (defvar fortran-tab-mode-default nil
   "*Default tabbing/carriage control style for empty files in fortran mode.
diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index cab251427ba..8905bee0b5d 100644
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -1,19 +1,16 @@
 ;;; icon.el --- mode for editing Icon code
 
-;; Note: use
-;;  (autoload 'icon-mode "icon" nil t)
-;;  (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist))
-;; if not permanently installed in your emacs
+;; Author: Chris Smith <convex!csmith>
+;; Created: 15 Feb 89
+;; Last-Modified: 06 Mar 1991
 
-;; Icon code editing commands for Emacs
-;; Derived from c-mode.el  15-Feb-89  Chris Smith  convex!csmith
 ;; Copyright (C) 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -25,6 +22,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; Note: use
+;;  (autoload 'icon-mode "icon" nil t)
+;;  (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist))
+;; if not permanently installed in your emacs
+
+;;; Code:
 
 (defvar icon-mode-abbrev-table nil
   "Abbrev table in use in Icon-mode buffers.")
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index ddbbf804962..ba98d5011b6 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -1,13 +1,15 @@
 ;;; prolog.el --- major mode for editing and running Prolog under Emacs
 
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 08 May 1989
+
 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
-;; Author Masanobu UMEDA (umerin@flab.flab.fujitsu.junet)
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar prolog-mode-syntax-table nil)
 (defvar prolog-mode-abbrev-table nil)
 (defvar prolog-mode-map nil)
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index aa02c037806..1de78608655 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -1,13 +1,17 @@
 ;;; scheme.el --- Scheme mode, and its idiosyncratic commands.
 
+;; Author: Bill Rozas <jinz@prep.ai.mit.edu>
+;; Last-Modified: 16 Mar 1992
+
+;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
+
 ;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
-;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,13 +23,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
+;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
 ;; Initially a query replace of Lisp mode, except for the indentation 
 ;; of special forms.  Probably the code should be merged at some point 
 ;; so that there is sharing between both libraries.
 
-;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
-
+;;; Code:
 
 (defvar scheme-mode-syntax-table nil "")
 (if (not scheme-mode-syntax-table)
diff --git a/lisp/rect.el b/lisp/rect.el
index 163f1c162ed..84aa7b73ae1 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -1,7 +1,7 @@
 ;;; rect.el --- rectangle functions for GNU Emacs.
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/register.el b/lisp/register.el
index d1870d95bee..047bcba1269 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -1,7 +1,7 @@
 ;;; register.el --- register commands for Emacs.
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 Jul 1992
+;; Last-Modified: 09 Jul 1992
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/reposition.el b/lisp/reposition.el
index 9e0e881748f..9a6a9e23228 100644
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -1,12 +1,16 @@
 ;;; reposition.el --- center a Lisp function or comment on the screen
 
+;; Author: Michael D. Ernst <mernst@theory.lcs.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 13 May 1991
+
 ;; Copyright (C) 1991 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Written by Michael D. Ernst, mernst@theory.lcs.mit.edu, Jan 1991.
 
 ;;; Reposition-window makes an entire function definition or comment visible,
@@ -32,6 +38,8 @@
 ;;; after one of the same name in ZMACS, but the code is all-new and the
 ;;; behavior in some situations differs.
 
+;;; Code:
+
 ;;;###autoload
 (defun reposition-window (&optional arg)
   "Make the current definition and/or comment visible.
diff --git a/lisp/rot13.el b/lisp/rot13.el
index 253f6cf20af..939539b49e7 100644
--- a/lisp/rot13.el
+++ b/lisp/rot13.el
@@ -1,12 +1,16 @@
 ;;; rot13.el --- display a buffer in rot13.
 
+;; Author: Howard Gayle:
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,11 +22,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;; Commentary:
 
 ;; Written by Howard Gayle.  See case-table.el for details.
 
 ;; This hack is mainly to show off the char table stuff.
 
+;;; Code:
+
 (defvar rot13-display-table
   (let ((table (make-display-table))
 	(i 0))
diff --git a/lisp/server.el b/lisp/server.el
index 8aaa836b999..eee0b78f8b2 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1,7 +1,7 @@
 ;;; server.el --- Lisp code for GNU Emacs running as server process.
 
 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
-;; Last-Modified: 5 Dec 1991
+;; Last-Modified: 05 Dec 1991
 
 ;; Changes by peck@sun.com and by rms.
 
@@ -11,7 +11,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/shell.el b/lisp/shell.el
index 3279c1dfc81..3a5968e0b6b 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -9,7 +9,7 @@
 
 ;;; 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)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 
 ;;; GNU Emacs is distributed in the hope that it will be useful,
@@ -579,7 +579,7 @@ This is a good place to put keybindings.")
 ;;;   The variables and functions that were changed to have "cmushell-" 
 ;;;   prefixes are:
 ;;;       shell-directory-stack (v), shell-directory-tracker (f)
-;;;   This should not affect users, only elisp hackers. Hopefully
+;;;   This should not affect users, only Emacs Lisp hackers. Hopefully
 ;;;   one day shell.el will just go away, and we can drop all this
 ;;;   "cmushell" bullshit.
 ;;; - Upgraded process sends to use comint-send-string instead of
diff --git a/lisp/sort.el b/lisp/sort.el
index ebb0980b995..2e4a4a087a9 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -1,12 +1,16 @@
 ;;; sort.el --- commands to sort text in an Emacs buffer.
 
+;; Author: Howie Kaye
+;; Maintainer: FSF
+;; Last-Modified: 28 Aug 1990
+
 ;; Copyright (C) 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,7 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Original version of most of this contributed by Howie Kaye
+;;; Code:
 
 (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
   "General text sorting routine to divide buffer into records and sort them.
diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el
index 36df2de60a4..7db1f5ee2bb 100644
--- a/lisp/sun-curs.el
+++ b/lisp/sun-curs.el
@@ -1,12 +1,15 @@
 ;;; sun-cursors.el --- cursor definitions for Sun windows
 
+;; Author: Jeff Peck <peck@sun.com>
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;
 ;;; Added some more cursors and moved the hot spots
 ;;; Cursor defined by 16 pairs of 16-bit numbers
diff --git a/lisp/sun-fns.el b/lisp/sun-fns.el
index 95ed1ed50b3..bdb43faa1d6 100644
--- a/lisp/sun-fns.el
+++ b/lisp/sun-fns.el
@@ -1,12 +1,15 @@
 ;;; sun-fns.el --- subroutines of Mouse handling for Sun windows
 
+;; Author: Jeff Peck <peck@sun.com>
+;; Last-Modified: 14 Aug 1987
+
 ;; Copyright (C) 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Submitted Mar. 1987, Jeff Peck
 ;;;		 	 Sun Microsystems Inc. <peck@sun.com>
 ;;; Conceived Nov. 1986, Stan Jefferson,
@@ -25,7 +30,6 @@
 ;;; GoodIdeas Feb. 1987, Steve Greenbaum
 ;;; & UpClicks           Reasoning Systems, Inc.
 ;;;
-(require 'sun-mouse)
 ;;;
 ;;; Functions for manipulating via the mouse and mouse-map definitions
 ;;; for accessing them.  Also definitons of mouse menus.
@@ -48,6 +52,11 @@
 ;;; bind the mouse button to an s-exp that contains the necessary parameters.
 ;;; See "minibuffer" bindings for examples.
 ;;;
+
+;;; Code:
+
+(require 'sun-mouse)
+
 (defconst cursor-pause-milliseconds 300
   "*Number of milliseconds to display alternate cursor (usually the mark)")
 
diff --git a/lisp/sun-keys.el b/lisp/sun-keys.el
index 13ebee3a4d1..b059a8e20c9 100644
--- a/lisp/sun-keys.el
+++ b/lisp/sun-keys.el
@@ -1,19 +1,15 @@
 ;;; sun-keys.el --- support for Sun function keys
 
-;;; Support (cleanly) for Sun function keys.  Provides help facilities,
-;;; better diagnostics, etc.
-;;;
-;;; To use: make sure your .ttyswrc binds 'F1' to <ESC> * F1 <CR> and so on.
-;;;         load this lot from your start_up
-;;;
-;;; 
-;;;    Copyright (C) 1986 Free Software Foundation, Inc.
+;; Author: Ian G. Batten <batten@uk.ac.bham.multics>
+;; Last-Modified: 30 May 1992
+
+;;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -24,9 +20,16 @@
 ;; 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.
+
+;;; Commentary:
+
+;;; Support (cleanly) for Sun function keys.  Provides help facilities,
+;;; better diagnostics, etc.
 ;;;
-;;; Batten@uk.ac.bham.multics (Ian G. Batten)
-;;;
+;;; To use: make sure your .ttyswrc binds 'F1' to <ESC> * F1 <CR> and so on.
+;;;         load this lot from your start_up
+
+;;; Code:
 
 (defun sun-function-keys-dispatch (arg)
   "Dispatcher for function keys."
diff --git a/lisp/tabify.el b/lisp/tabify.el
index ab28397ab02..eabaab10a48 100644
--- a/lisp/tabify.el
+++ b/lisp/tabify.el
@@ -1,7 +1,7 @@
 ;;; tabify.el --- tab conversion commands for Emacs
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index aeeb2515aac..57c11db9edc 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1,7 +1,7 @@
 ;;; tar-mode.el --- simple editing of tar files from GNU emacs
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
-;; Created: 4 Apr 1990
+;; Created: 04 Apr 1990
 ;; Version: 1.21
 ;; Last-Modified: 10 Mar 1991
 
@@ -11,7 +11,7 @@
 ;;;
 ;;; 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)
+;;; the Free Software Foundation; either version 2, or (at your option)
 ;;; any later version.
 ;;;
 ;;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index c08ed9ed28d..4496f0ec4fe 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -1,13 +1,18 @@
 ;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
 
+;; Author: John Robinson <jr@bbn-unix.arpa>
+;;	Stephen Gildea <gildea@bbn.com>
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+;; Keywords: hardware
+
 ;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
-;; Time stamp <89/03/21 14:27:08 gildea>
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,9 +24,11 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;  Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
 ;;;  Modularized and enhanced by gildea@bbn.com Nov 1987
+;;;  Time stamp <89/03/21 14:27:08 gildea>
 
 ;;;  User customization option:
 
@@ -62,9 +69,9 @@ To reinitialize the mouse if the terminal is reset, type ESC : RET"
   (interactive "P")
   (bg-get-tty-num semicolon)
   (let*
-      ((screen-mouse-x (min (1- (screen-width))	;don't hit column 86!
+      ((screen-mouse-x (min (1- (frame-width))	;don't hit column 86!
 			    (/ (bg-get-tty-num semicolon) 9)))
-       (screen-mouse-y (- (1- (screen-height)) ;assume default font size.
+       (screen-mouse-y (- (1- (frame-height)) ;assume default font size.
 			  (/ (bg-get-tty-num semicolon) 16))) 
        (bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
        (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index fad388337e8..ccd48d6af71 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -1,12 +1,16 @@
 ;;; sun-mouse.el --- mouse handling for Sun windows
 
+;; Author: Jeff Peck
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
 ;; Copyright (C) 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Jeff Peck, Sun Microsystems, Jan 1987.
 ;;; Original idea by Stan Jefferson
 
@@ -34,6 +40,8 @@
 ;;;   extra-click-wait, scrollbar-width
 ;;;
 
+;;; Code:
+
 (defvar extra-click-wait 150
   "*Number of milliseconds to wait for an extra click.
 Set this to zero if you don't want chords or double clicks.")
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index be7e7f0ff4d..86e7c6eed9c 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -1,15 +1,11 @@
-;;; sup-mouse.el --- GNU Emacs code for lambda/supdup mouse
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;									     ;;
-;;	File:     sup-mouse.el						     ;;
-;;	Author:   Wolfgang Rupprecht					     ;;
-;;	Created:  Fri Nov 21 19:22:22 1986				     ;;
-;;	Contents: supdup mouse support for lisp machines		     ;;
-;;									     ;;
-;;     (from code originally written by John Robinson@bbn for the bitgraph)  ;;
-;;									     ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; sup-mouse.el --- supdup mouse support for lisp machines
+
+;; Author: Wolfgang Rupprecht
+;; Maintainer: FSF
+;; Created: 21 Nov 1986
+;; Last-Modified: 16 Mar 1992
+
+;;     (from code originally written by John Robinson@bbn for the bitgraph)
 
 ;; Copyright (C) Free Software Foundation 1985, 1986
 
@@ -17,7 +13,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -29,6 +25,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;  User customization option:
 
 (defvar sup-mouse-fast-select-window nil
diff --git a/lisp/terminal.el b/lisp/terminal.el
index de8fdf53a76..6e9d954ae39 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1,13 +1,16 @@
 ;;; terminal.el --- terminal emulator for GNU Emacs.
 
+;; Author: Richard Mlynarik <mly@eddie.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 05 May 1992
+
 ;; Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
-;; Written by Richard Mlynarik, November 1986.
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;>>TODO
 ;;>> terminfo?
 ;;>> ** Nothing can be done about emacs' meta-lossage **
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 8c7c38c4c31..22110bb4afd 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -1,12 +1,16 @@
 ;;; bib-mode.el --- bib-mode, major mode for editing bib files.
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+;; Keywords: bib
+
 ;; Copyright (C) 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;; Bib-Mode
 ;;   GNU Emacs code to help maintain databases compatible with (troff)
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 4579760d9bb..083bb6befb9 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1,12 +1,12 @@
 ;;; bibtex.el --- BibTeX mode for GNU Emacs
 
-;; Copyright (C) 1985, 1986, 1987, 1990 Free Software Foundation, Inc.
+;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,40 +18,24 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 92.2.11
-;;;  * Fixed  bibtex-field string to allow things like:
-;;;   author = "{S}schr\"odinger"     or
-;;;   author = "{S}schr\"{o}dinger"   or
-;;;   author = "{S}schr{\"o}dinger"   or
-;;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE 
-;;; NOTE: This is the last update I plan to do.
-;;; NOTE: the previous version was submitted and, according to RMS,
-;;;       accepted as the release version for ver 19.
-;;; NOTE: PLEASE DO NOT SEND ME ANY MORE 'PLEASE ADD THIS' MESSAGES.
-;;; NOTE: I am no longer taking care of this package.
-;;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE 
-
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 91.1.24
-;;;  * bibtex-make-optional-field : modified to make fields align up after 
-;;;    the OPT's have been removed.
-;;;  * bibtex-make-optional-field : modified to check bibtex-use-OPT-prefix
-;;;  * bibtex-make*field : modified to call new procedure:
-;;;  * bibtex-insert-field-delimeters : which does delimeter insertion based on
-;;;  * bibtex-curly-delimeters : a list of atoms
-;;;  * fixed spelling of bibtex-name-alignment wherever used
-;;;  * bibtex-inside-field : allows '}'s at end
-;;;  * bibtex-find-text : allows '{' and '}'s at start or end
-;;;  * bibtex-enclosing-regexp fixed for case where start-point was at end of 
-;;;    pattern.
-;;;  * bibtex-clean-entry : allow bibtex-save-OPT to save some optional fields
-;;;  * bibtex-move-outside-of-entry : could overwrite first line of a following
-;;;    comment or other text if it did not look like a bibtex entry
-
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 91.1.20
-;;;  * bibtex.el/bibtex-mode : updated comments to indicate new use of 
-;;;    address, add minor explanations and fix small omissions.
-;;;  * bibtex.el/bibtex-entry : fixed spelling of variable
-
+;;; (current keeper: shapiro@corto.inria.fr)
+
+;;; alarson@src.honeywell.com 92-Jan-31
+;;;   Added support for: ispell, beginning/end of entry movement, a simple
+;;;   outline like mode (hide the bodies of bibtex entries), support for
+;;;   sorting bibtex entries, and maintaining them in sorted order, and
+;;;   simple buffer validation.
+;;;   User visible functions added:
+;;;      ispell-{abstract,bibtex-entry}, {beginning,end}-of-bibtex-entry
+;;;      hide-bibtex-entry-bodies, sort-bibtex-entries, validate-bibtex-
+;;;      buffer, find-bibtex-duplicates
+;;;   user visible variables added:
+;;; 	 bibtex-maintain-sorted-entries
+;;;   new local keybindings:
+;;; 	"	TeX-insert-quote
+;;; 	C-c$   ispell-bibtex-entry
+;;; 	M-C-a  beginning-of-bibtex-entry
+;;; 	M-C-e  end-of-bibtex-entry
 ;;; Mike Newton (newton@gumby.cs.caltech.edu) 90.11.17
 ;;;  * Handle items like
 ;;;          title = poft # "Fifth Tri-quaterly" # random-conf,
@@ -60,17 +44,11 @@
 ;;;  * fixed 'bibtex-find-it's doc string's location
 ;;;  * bibtex-field-text made more general (it wouldnt handle the # construct)
 ;;;		and it now handles a small subset of the {} cases
-;;;  * put DEA thesis back in (why get rid of good code?) 
-;;;  * merged into release 19 version code
-;;;  * if cross-ref'ing is on, put 'pages' near top of OPTs, as the other
-;;;             entries are unlikely to be used.
-;;;  * skip-whitespace replaced by skip-chars-forward (also done 
-;;;             by Marc Shairo)
 
 ;;; Bengt Martensson, March 6
 ;;;   Adapted to Bibtex 0.99 by updating the optional fields according
 ;;;   to the document BibTeXing, Oren Patashnik, dated January 31, 1988.
-;;;   Updated documentation strings accordingly.  Added .
+;;;   Updated documentation strings accordingly.  Added (provide 'bibtex).
 ;;;   If bibtex-include-OPT-crossref is non-nil, every entry will have
 ;;;   an OPTcrossref field, analogously for bibtex-include-OPTkey and
 ;;;   bibtex-include-OPTannote.  Added bibtex-preamble, bound to ^C^EP,
@@ -80,13 +58,14 @@
 ;;;   correctly, BibTeX 0.99 broke it.)
 ;;;   Added bibtex-clean-entry-zap-empty-opts, defvar'd to t.  If it
 ;;;   is nil, bibtex-clean-entry will leave empty optional fields alone.
-  
+
 ;;; Marc Shapiro 1-feb-89: integrated changes by Bengt Martensson 88-05-06:
 ;;;   Added Sun menu support.  Locally bound to right mouse button in 
 ;;;   bibtex-mode.  Emacs 18.49 allows local mouse bindings!!
 ;;;   Commented out DEAthesis.
 
 ;;; Marc Shapiro 6-oct-88
+;;;  * skip-whitespace replaced by skip-chars-forward
 ;;;  * use indent-to-column instead of inserting tabs (changes to 
 ;;;    bibtex-entry, bibtex-make-entry, bibtex-make-OPT-entry, renamed to
 ;;;    bibtex-make-optional-entry)
@@ -100,6 +79,7 @@
 ;;;  * bibtex-clean-entry signals mandatory fields left empty.
 
 ;;; Marc Shapiro 18-jul-88
+;;;  * Fixed bug in bibtex-flash-entry
 ;;;  * Moved all the entry type keystrokes to "C-c C-e something" (instead of
 ;;;    "C-c something" previously) to make room for more.  C-c C-e is
 ;;;    supposed to stand for "entry" [idea taken from mail-mode].  Moved
@@ -132,7 +112,7 @@
 ;;;    run-hooks
 
 ;;; Bengt Martensson <ubrinf!mond!bengt> 87-06-28
-;;; (Bengt Martensson <bengt@mathematik.uni-Bremen.de> 87-06-28)
+;;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> 87-06-28
 ;;;   Original version
 
 ;;; NOTE by Marc Shapiro, 14-dec-87:
@@ -140,37 +120,42 @@
 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding,
 ;;; so it will remain active in all windows.  Yuck!
 
+(provide 'bibtex)
+
+;;; these guys typically don't have autoloads...[alarson:19920131.1548CST]
+(if (not (fboundp 'TeX-insert-quote))
+    (autoload 'TeX-insert-quote "tex-mode"))
+(if (not (fboundp 'sort-subr))
+    (autoload 'sort-subr "sort"))
+
+
+
 (defvar bibtex-mode-syntax-table nil "")
 (defvar bibtex-mode-abbrev-table nil "")
 (define-abbrev-table 'bibtex-mode-abbrev-table ())
 (defvar bibtex-mode-map (make-sparse-keymap) "")
+
 (defvar bibtex-pop-previous-search-point nil
   "Next point where bibtex-pop-previous should start looking for a similar
 entry.")
+
 (defvar bibtex-pop-next-search-point nil
   "Next point where bibtex-pop-next should start looking for a similar
 entry.")
 
 (defvar bibtex-clean-entry-zap-empty-opts t
   "*If non-nil, bibtex-clean-entry will delete all empty optional fields.")
+
 (defvar bibtex-include-OPTcrossref t
   "*If non-nil, all entries will have an OPTcrossref field.")
 (defvar bibtex-include-OPTkey t
   "*If non-nil, all entries will have an OPTkey field.")
 (defvar bibtex-include-OPTannote t
   "*If non-nil, all entries will have an OPTannote field.")
-(defvar bibtex-use-OPT-prefix t
-  "*If non-nil, put OPT string before optionals.  Usually desired!")
-(defvar bibtex-save-OPT nil
-  "*List of atoms (representing strings) which are optional fields that
-should not be deleted if null.")
-(defvar bibtex-curly-delimeters nil
-  "List of atoms representing strings (in any case) that should have curly
-braces used as their delimeters instead of double quotes.")
-
 
 ;; note: the user should be allowed to have their own list of always
 ;;       available optional fields.  exs: "keywords" "categories"
+
 (defvar bibtex-mode-user-optional-fields nil		;no default value
   "*List of optional fields that user want to have as always present 
 when making a bibtex entry.  One possibility is for ``keywords''")
@@ -208,40 +193,32 @@ when making a bibtex entry.  One possibility is for ``keywords''")
 ;;   key = {Volume-2},
 ;;   note = "Volume~2 is listed under Knuth \cite{book-full}"
 ;; i have added a few of these, but not all! -- MON
-;; 92.2.11: also must handle: 
-;;   author = "{S}schr\"odinger"   or
-;;   author = "{S}schr\"{o}dinger"   or
-;;   author = "{S}schr{\"o}dinger"   or
-
 
 (defconst bibtex-field-const
   "[0-9A-Za-z][---A-Za-z0-9:_+]*"
   "Format of a bibtex field constant.")
 
-(defconst bibtex-field-string	;;was:(concat "\"[^\"]*[^\\\\]\"\\|\"\"")
+(defconst bibtex-field-string
   (concat
-     "\"\\([^\"]*[\\\\][\"]\\)*[^\"]*[^\\\\]\""
-     "\\|"	;ie: OR
-     "\"\""
-     "\\|"	;ie: OR
-     "\"[^\"]*[^\\\\]\"")
-  "Match either a \"-d string or an empty string or a plain string.")
+    "\"[^\"]*[^\\\\]\"\\|\"\"")
+  "Match either a string or an empty string.")
+
 (defconst bibtex-field-string-or-const
   (concat bibtex-field-const "\\|" bibtex-field-string)
   "Match either bibtex-field-string or bibtex-field-const.")
 
-;(defconst bibtex-field-text
-;  "\"[^\"]*[^\\\\]\"\\|\"\"\\|[0-9A-Za-z][---A-Za-z0-9:_+]*"
-;  "Regexp defining the text part of a bibtex field: either a string, or an empty string, or a constant.")
-
 (defconst bibtex-field-text
   (concat
     "\\(" bibtex-field-string-or-const "\\)"
         "\\([ \t\n]+#[ \t\n]+\\(" bibtex-field-string-or-const "\\)\\)*\\|"
-    "{[^{}]*[^\\\\]}" "\\|" "{}")
+    "{[^{}]*[^\\\\]}")
   "Regexp defining the text part of a bibtex field: either a string, or
 an empty string, or a constant followed by one or more # / constant pairs.
-Also matches simple {...} patterns, including the special case {}.")
+Also matches simple {...} patterns.")
+
+;(defconst bibtex-field-text
+;  "\"[^\"]*[^\\\\]\"\\|\"\"\\|[0-9A-Za-z][---A-Za-z0-9:_+]*"
+;  "Regexp defining the text part of a bibtex field: either a string, or an empty string, or a constant.")
 
 (defconst bibtex-field
   (bibtex-cfield bibtex-field-name bibtex-field-text)
@@ -256,7 +233,6 @@ Also matches simple {...} patterns, including the special case {}.")
 (defconst bibtex-reference-type
   "@[A-Za-z]+"
   "Regexp defining the type part of a bibtex reference entry")
-
 (defconst bibtex-reference-head
   (concat "^[ \t]*\\("
 	  bibtex-reference-type
@@ -281,7 +257,7 @@ bibtex-reference-head")
   "The regexp subexpression number of the key part in
 bibtex-reference")
 
-;;; string definitions. note bibtex-string is a constant and a defun !
+;;; strings
 (defconst bibtex-string
   (concat "^[ \t]*@[sS][tT][rR][iI][nN][gG][ \t\n]*[({][ \t\n]*\\("
 	  bibtex-field-name
@@ -289,13 +265,12 @@ bibtex-reference")
 	  bibtex-field-text
 	  "\\)[ \t\n]*[})]")
   "Regexp defining the format of a bibtex string entry")
-
 (defconst bibtex-name-in-string 1
   "The regexp subexpression of the name part in bibtex-string")
 (defconst bibtex-text-in-string 2
   "The regexp subexpression of the text part in bibtex-string")
 
-(defconst bibtex-name-alignment 2
+(defconst bibtex-name-alignement 2
   "Alignment for the name part in BibTeX fields.
 Chosen on aesthetic grounds only.")
 
@@ -334,7 +309,7 @@ mouse button.
 
 Fields:
     address
-           Publisher's address, or for conference, location held
+           Publisher's address
     annote
            Long annotation used for annotated bibliographies (begins sentence)
     author
@@ -343,11 +318,11 @@ Fields:
            Book title when the thing being referenced isn't the whole book.
            For book entries, the title field should be used instead.
     chapter
-           Chapter number (or section or whatever).
+           Chapter number
     crossref
 	   The database key of the entry being cross referenced.
     edition
-           Edition of a book (e.g., \"second\")
+           Edition of a book (e.g., ""second"")
     editor
            Name(s) of editor(s), in BibTeX name format.
            If there is also an author field, then the editor field should be
@@ -359,8 +334,7 @@ Fields:
     journal
            Journal name (macros are provided for many)
     key
-           Alphabetizing, labeling and cross-refing key (needed when no 
-	   author or editor)
+           Alphabetizing and labeling key (needed when no author or editor)
     month
            Month (macros are provided)
     note
@@ -381,8 +355,8 @@ Fields:
     title
            The title of the thing being referenced
     type
-           Type of a technical report (e.g., \"Research Note\") to be used
-           instead of the default \"Technical Report\"
+           Type of a technical report (e.g., ""Research Note"") to be used
+           instead of the default ""Technical Report""
     volume
            Volume of a journal or multivolume work
     year
@@ -425,6 +399,12 @@ non-nil."
   (define-key bibtex-mode-map "\C-c\C-k" 'bibtex-kill-optional-field)
   (define-key bibtex-mode-map "\C-c\C-d" 'bibtex-empty-field)
 
+  ;; [alarson:19920131.1543CST]
+  (define-key bibtex-mode-map "\""   'TeX-insert-quote)
+  (define-key bibtex-mode-map "\C-c$"   'ispell-bibtex-entry)
+  (define-key bibtex-mode-map "\M-\C-a"   'beginning-of-bibtex-entry)
+  (define-key bibtex-mode-map "\M-\C-e"   'end-of-bibtex-entry)
+
   (define-key bibtex-mode-map "\C-c\C-e\C-a" 'bibtex-Article)
   (define-key bibtex-mode-map "\C-c\C-e\C-b" 'bibtex-Book)
   (define-key bibtex-mode-map "\C-c\C-e\C-d" 'bibtex-DEAthesis)
@@ -459,9 +439,182 @@ non-nil."
 	(t
 	 (backward-paragraph)
 	 (forward-paragraph)))
-  (re-search-forward "[ \t\n]*" (point-max) t)
-  (insert "\n")
-  (forward-char -1))
+  (re-search-forward "[ \t\n]*" (point-max) t))
+
+(defun ispell-abstract ()
+  (interactive)
+  (beginning-of-bibtex-entry)
+  (re-search-forward "^[ \t]*[OPT]*abstract[ \t]*=")
+  (ispell-region (point)
+		 (save-excursion (forward-sexp) (point))))
+
+(defun beginning-of-bibtex-entry ()
+  (interactive)
+  (re-search-backward "^@" nil 'move))
+
+(defun end-of-bibtex-entry ()
+  (interactive)
+  (re-search-forward "}$" nil 'move))
+  
+(defun ispell-bibtex-entry ()
+  (interactive)
+  (ispell-region (progn (beginning-of-bibtex-entry) (point))
+		 (progn (end-of-bibtex-entry) (point))))
+
+(defun narrow-to-bibtex-entry ()
+  (interactive)
+  (save-excursion
+    (narrow-to-region (progn (beginning-of-bibtex-entry) (point))
+		      (progn (end-of-bibtex-entry) (point)))))
+
+
+(defun beginning-of-first-bibtex-entry ()
+  (goto-char (point-min))
+  (cond
+   ((re-search-forward "^@" nil 'move)
+    (beginning-of-line))
+   ((and (bobp) (eobp))
+    nil)
+   (t
+    (message "Warning: No bibtex entries found!"))))
+
+(defun hide-bibtex-entry-bodies (&optional arg)
+  "Hide all lines between first and last bibtex entries not beginning with @.
+With argument, show all text."
+  (interactive "P")
+  (beginning-of-first-bibtex-entry)
+  ;; subst-char-in-region modifies the buffer, despite what the
+  ;; documentation says...
+  (let ((modifiedp (buffer-modified-p))
+	(buffer-read-only nil))
+    (if arg
+	(subst-char-in-region (point) (point-max) ?\r ?\n t)
+	(while (save-excursion (re-search-forward "\n[^@]" (point-max) t))
+	  (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))))
+    (setq selective-display (not arg))
+    (set-buffer-modified-p modifiedp)))
+
+(defun sort-bibtex-entries ()
+  "Sort bibtex entries alphabetically by key.
+Text before the first bibtex entry, and following the last is not effected.
+Bugs:
+  1. Text between the closing brace ending one bibtex entry, and the @ starting 
+     the next, is considered part of the PRECEEDING entry.  Perhaps it should be
+     part of the following entry."
+  (interactive)
+  (save-restriction
+    (beginning-of-first-bibtex-entry)
+    (narrow-to-region (point)
+		      (save-excursion
+			(goto-char (point-max))
+			(beginning-of-bibtex-entry)
+			(end-of-bibtex-entry)
+			(point)))
+    (sort-subr nil			; reversep
+	       ;; begining of record function
+	       'forward-line
+	       ;; end of record function
+	       (function (lambda () (and (re-search-forward "}[ \t]*\n[\n \t]*@" nil 'move)
+					 (forward-char -2))))
+	       ;; start of key function
+	       (function (lambda () (re-search-forward "{[ \t]*") nil))
+	       ;; end of key function
+	       (function (lambda () (search-forward ",")))
+	       )))
+  
+(defun map-bibtex-entries (fun)
+  "Call FUN for each bibtex entry starting with the current, to the end of the file.
+FUN is called with one argument, the key of the entry, and with point inside the entry."
+  (beginning-of-bibtex-entry)
+  (while (re-search-forward "^@[^{]*{[ \t]*\\([^,]*\\)" nil t)
+    (funcall fun (buffer-substring (match-beginning 1) (match-end 1)))))
+  
+(defun find-bibtex-entry-location (entry-name)
+  (interactive "sBibtex entry key: ")
+  "Searches from beginning of current buffer looking for place to put the
+bibtex entry named ENTRY-NAME.  Buffer is assumed to be in sorted order,
+without duplicates (see \\[sort-bibtex-entries]), if it is not, an error will
+be signalled."
+  (let ((previous nil)
+	point)
+    (beginning-of-first-bibtex-entry)
+    (or (catch 'done
+	  (map-bibtex-entries (function (lambda (current)
+				 (cond
+				  ((string-equal entry-name current)
+				   (error "Entry duplicates existing!"))
+				  ((or (null previous)
+				       (string< previous current))
+				   (setq previous current
+					 point (point))
+				   (if (string< entry-name current)
+				       (progn
+					 (beginning-of-bibtex-entry)
+					 ;; Many schemes append strings to
+					 ;; existing entries to resolve them,
+					 ;; so initial substring matches may
+					 ;; indicate a duplicate entry.  
+					 (let ((idx (string-match (regexp-quote entry-name) current)))
+					   (if (and (integerp idx)
+						    (zerop idx))
+					       (progn
+						 (message "Warning: Entry %s may be a duplicate of %s!"
+							  entry-name current)
+						 (ding t))))
+					 (throw 'done t))))
+				  ((string-equal previous current)
+				   (error "Duplicate here with previous!"))
+				  (t (error "Entries out of order here!")))))))
+	(end-of-bibtex-entry))))
+
+(defun validate-bibtex-buffer ()
+  "Find some typical errors in bibtex files.
+  1. At signs (@) not as first char of a line.
+  2. Double quotes (\") inside strings.
+  3. Closing braces (}) not the last character of a line."
+  (interactive)
+  (let ((point (point)))
+    (while (re-search-forward ".@" nil t)
+      (let* ((foo (parse-partial-sexp (save-excursion (beginning-of-bibtex-entry)
+						      (point))
+				      (point)))
+	     (in-a-string (nth 3 foo)))
+	(if (not in-a-string)
+	    (error "At sign (@) out of place!"))))
+    (goto-char point)
+    (while (search-forward "\"" nil t)
+      (or (looking-at "[,}][ \t]*$")
+	  ;; some versions put closing brace on separate line.
+	  (looking-at "[ \t]*\n}")
+	  (save-excursion
+	    (save-restriction
+	      (narrow-to-region (point)
+				(progn (beginning-of-line) (point)))
+	      (looking-at "^[ \t]*[a-zA-Z]+[ \t]*=[ \t]*\"$")))
+	  (error "Quote out of place, or missing \",\" or \"}\"!")))
+    (goto-char point)
+    ;; This is only approximate, should actually search for close braces,
+    ;; then see if they are inside a string, or at the end of a line.
+    ;; This just gets the typical case of whitespace after a closing brace.
+    (while (search-forward "}[ \t]+$" nil t)
+      (error "Brace not last char of line!"))
+    (goto-char point)
+    (message "Bibtex buffer appears o.k.")))
+
+(defun find-bibtex-duplicates ()
+  "Searches forward in current buffer looking for duplicate bibtex entries.
+Buffer is assumed to be sorted, see \\[sort-bibtex-entries]"
+  (interactive)
+  (let ((point (point)))
+    ;; errors if things are not right...
+    (find-bibtex-entry-location (make-string 10 255))
+    (goto-char point)
+    (message "No duplicates found!")))
+
+
+(defvar bibtex-maintain-sorted-entries nil
+  "*If true, bibtex-mode will attempt to maintain all bibtex entries in 
+sorted order.")
 
 ;;
 ;; note: this should really take lists of strings OR of lists.  in the
@@ -470,58 +623,69 @@ non-nil."
 ;;
 
 (defun bibtex-entry (entry-type required optional)
-  (bibtex-move-outside-of-entry)
-  (insert "@" entry-type "{")
-  (mapcar 'bibtex-make-field required)
-  (if bibtex-include-OPTcrossref
-      (bibtex-make-optional-field "crossref"))
-  (if bibtex-include-OPTkey
-      (bibtex-make-optional-field "key"))
-  (mapcar 'bibtex-make-optional-field optional)
-  (if bibtex-mode-user-optional-fields		;MON...
-      (mapcar 'bibtex-make-optional-field
-	      bibtex-mode-user-optional-fields))
-  (if bibtex-include-OPTannote
-      (bibtex-make-optional-field "annote"))
-  (insert "\n}\n\n")
-  (forward-char -3)
-  (up-list -1)
-  (forward-char 1))  
-
-(defun bibtex-insert-field-delimeters (str)
-  "Insert double quotes (default) or, if STR is in the list
-bibtex-curly-delimeters, insert curly brackets."
-  (if (and (boundp 'bibtex-curly-delimeters)
-	   bibtex-curly-delimeters
-	   (memq (car (read-from-string (downcase str)))
-		 bibtex-curly-delimeters))
-      (insert "\{\}")
-    (insert "\"\"")))
+  (let (key)
+    (if bibtex-maintain-sorted-entries
+	(progn
+	  (setq key (read-string (format "%s key: " entry-type)))
+	  (find-bibtex-entry-location key)))
+    (bibtex-move-outside-of-entry)
+    (insert "@" entry-type "{")
+    (mapcar 'bibtex-make-field required)
+    (if bibtex-include-OPTcrossref
+	(bibtex-make-optional-field "crossref"))
+    (if bibtex-include-OPTkey
+	(bibtex-make-optional-field "key"))
+    (mapcar 'bibtex-make-optional-field optional)
+    (if bibtex-mode-user-optional-fields ;MON...
+	(mapcar 'bibtex-make-optional-field 
+		bibtex-mode-user-optional-fields))
+    (if bibtex-include-OPTannote
+	(bibtex-make-optional-field "annote"))
+    (insert "\n}\n\n")
+    (forward-char -3)
+    (up-list -1)
+    (forward-char 1)
+    (if key
+	(progn
+	  (insert key)
+	  (bibtex-next-field t)))))
+
+;; (defun bibtex-entry (entry-type required optional)
+;;   (bibtex-move-outside-of-entry)
+;;   (insert (concat "@" entry-type "{,\n\n}\n\n"))
+;;   (previous-line 3)
+;;   (insert (mapconcat 'bibtex-make-entry required ",\n"))
+;;   (if required
+;;       (if optional
+;; 	  (insert ",\n")))
+;;   (insert (mapconcat 'bibtex-make-OPT-entry optional ",\n"))
+;;   (if bibtex-mode-user-optional-fields		;MON...
+;;       (progn
+;; 	(if optional
+;; 	    (insert ",\n"))
+;; 	(insert (mapconcat 'bibtex-make-OPT-entry
+;; 			   bibtex-mode-user-optional-fields
+;; 			   ",\n"))))		;MON
+;;  (up-list -1)
+;;  (forward-char 1))
+
 
 (defun bibtex-make-field (str)
   (interactive "sBibTeX entry type: ")
   (insert ",\n")
-  (indent-to-column bibtex-name-alignment)
+  (indent-to-column bibtex-name-alignement)
   (insert str " = ")
   (indent-to-column bibtex-text-alignment)
-  (bibtex-insert-field-delimeters str)
+  (insert "\"\"")
   nil)
 
-;; modified to make fields align up _after_ the OPT's have been removed
-
 (defun bibtex-make-optional-field (str)
   (interactive "sOptional BibTeX entry type: ")
   (insert ",\n")
-  (indent-to-column bibtex-name-alignment)
-  (insert str " = ")
-  (indent-to-column bibtex-text-alignment)	;align nicely, then,...
-  (bibtex-insert-field-delimeters str)
-  (if bibtex-use-OPT-prefix
-      (progn
-	(beginning-of-line)
-	(move-to-column bibtex-name-alignment) 	;go back to name and put in OPT
-	(insert "OPT")
-	(end-of-line)))
+  (indent-to-column bibtex-name-alignement)
+  (insert "OPT" str " = ")
+  (indent-to-column bibtex-text-alignment)
+  (insert "\"\"")
   nil)
 
 ;; What to do about crossref?  if present, journal and year are 
@@ -536,11 +700,12 @@ bibtex-curly-delimeters, insert curly brackets."
     (bibtex-entry "Article" '("author" "title" "journal" "year")
 		  '("volume" "number" "pages" "month" "note"))))
 
+
 (defun bibtex-Book ()
   (interactive)
   (bibtex-entry "Book" '("author" "title" "publisher" "year")
- 		'("editor" "volume" "number" "series" "address"
-		  "edition" "month" "note")))
+		'("editor" "volume" "number" "series" "address"
+			   "edition" "month" "note")))
 
 (defun bibtex-Booklet ()
   (interactive)
@@ -563,31 +728,31 @@ bibtex-curly-delimeters, insert curly brackets."
 		  '("editor" "pages" "volume" "number" "series" "address"
 		    "edition" "month" "type" "note"))))
 
-;; In next 2, for crossref case, put pages near beginning of 
-;; optionals as it will be used most often  -- MON
 (defun bibtex-InCollection ()
   (interactive)
   (if bibtex-include-OPTcrossref
       (bibtex-entry "InCollection" '("author" "title")
-		    '("pages" "booktitle" "publisher" "year"
+		    '("booktitle" "publisher" "year"
 		      "editor" "volume" "number" "series" "type" "chapter"
-		      "address" "edition" "month" "note"))
+		      "pages" "address" "edition" "month" "note"))
     (bibtex-entry "InCollection" '("author" "title"
 				   "booktitle" "publisher" "year")
 		  '("editor" "volume" "number" "series" "type" "chapter"
 		    "pages" "address" "edition" "month" "note"))))
 
+
 (defun bibtex-InProceedings ()
   (interactive)
   (if bibtex-include-OPTcrossref
       (bibtex-entry "InProceedings" '("author" "title")
-		    '( "pages" "editor" "volume" "number" "series"
-		       "booktitle" "year"
-		       "organization" "publisher" "address" "month" "note"))
+		    '("editor" "volume" "number" "series" "pages"
+		      "booktitle" "year"
+		      "organization" "publisher" "address" "month" "note"))
     (bibtex-entry "InProceedings" '("author" "title" "booktitle" "year")
 		  '("editor" "volume" "number" "series" "pages"
 		    "organization" "publisher" "address" "month" "note"))))
 
+
 (defun bibtex-Manual ()
   (interactive)
   (bibtex-entry "Manual" '("title")
@@ -620,7 +785,6 @@ bibtex-curly-delimeters, insert curly brackets."
   (bibtex-entry "TechReport" '("author" "title" "institution" "year")
 		'("type" "number" "address" "month" "note")))
 
-
 (defun bibtex-Unpublished ()
   (interactive)
   (bibtex-entry "Unpublished" '("author" "title" "note")
@@ -656,6 +820,17 @@ bibtex-curly-delimeters, insert curly brackets."
        (forward-char 1))))
   (bibtex-find-text arg))
 
+;; (defun bibtex-next-field ()
+;;   "Finds end of text of next field."
+;;   (interactive)
+;;   (condition-case ()
+;;       (progn
+;; 	(bibtex-inside-field)
+;; 	(re-search-forward ",[ \t\n]*" (point-max) 1)
+;; 	(bibtex-enclosing-field)
+;; 	(bibtex-inside-field))
+;;     (error nil)))
+
 (defun bibtex-find-text (arg)
   "Go to end of text of current field; with arg, go to beginning."
   (interactive "P")
@@ -664,12 +839,23 @@ bibtex-curly-delimeters, insert curly brackets."
   (if arg
       (progn
 	(goto-char (match-beginning bibtex-text-in-field))
-	(if (or (looking-at "\"") (looking-at "{"))
+	(if (looking-at "\"")
 	    (forward-char 1)))
     (goto-char (match-end bibtex-text-in-field))
-    (if (or (= (preceding-char) ?\") (= (preceding-char) ?}))
+    (if (= (preceding-char) ?\")
 	(forward-char -1))))
 
+;; (defun bibtex-find-text ()
+;;   "Go to end of text of current field."
+;;   (interactive)
+;;   (condition-case ()
+;;       (progn
+;; 	(bibtex-inside-field)
+;; 	(bibtex-enclosing-field)
+;; 	(goto-char (match-end bibtex-text-in-field))
+;; 	(bibtex-inside-field))
+;;     (error nil)))
+
 (defun bibtex-remove-OPT ()
   "Removes the 'OPT' starting optional arguments and goes to end of text"
   (interactive)
@@ -685,12 +871,11 @@ bibtex-curly-delimeters, insert curly brackets."
   "Try to avoid point being at end of a bibtex field."
   (interactive)
   (end-of-line)
-  (skip-chars-backward " \t")		;delete these chars? -- MON
+  (skip-chars-backward " \t")		;MON - maybe delete these chars?
   (cond ((= (preceding-char) ?,)
 	 (forward-char -1)))
-  (cond ((or (= (preceding-char) ?\") (= (preceding-char) ?\}))
-	 (forward-char -1))))		;only go back if quote
-
+  (cond ((= (preceding-char) ?\")
+	 (forward-char -1))))		;MON - only go back if quote
 
 (defun bibtex-remove-double-quotes ()
   "Removes """" around string."
@@ -905,7 +1090,7 @@ an undefined location.
     (re-search-forward regexp right nil 1)
     (if (> (match-beginning 0) initial)
 	(signal 'search-failed (list regexp)))	  
-    (while (< (match-end 0) initial)		;<= --> < -- MON
+    (while (<= (match-end 0) initial)
       (re-search-forward regexp right nil 1)
       (if (> (match-beginning 0) initial)
 	  (signal 'search-failed (list regexp))))
@@ -932,16 +1117,9 @@ an undefined location.
 		  (looking-at "OPT")
 		  bibtex-clean-entry-zap-empty-opts)
 		 (goto-char begin-text)
-		 (if (and (looking-at "\"\"") ; empty: delete whole field
-			  (boundp 'bibtex-save-OPT)
-			  bibtex-save-OPT
-			  (not (memq (car (read-from-string
-					   (buffer-substring
-					    (+ begin-name 3)
-					    end-name)))
-				     bibtex-save-OPT)))
+		 (if (looking-at "\"\"") ; empty: delete whole field
 		     (delete-region begin-field end-field)
-		   ;; otherwise: not empty, delete "OPT"
+		   ; otherwise: not empty, delete "OPT"
 		   (goto-char begin-name)
 		   (delete-char (length "OPT"))
 		   (goto-char begin-field) ; and loop to go through next test
@@ -965,12 +1143,7 @@ an undefined location.
 				     (equal (buffer-substring
 					     begin-name
 					     (+ begin-name 3))
-					    "opt")
-				     (memq (car (read-from-string
-						 (buffer-substring
-						  begin-name
-						  end-name)))
-					   bibtex-save-OPT)))
+					    "opt")))
 			    (error "Mandatory field ``%s'' is empty"
 				   (buffer-substring begin-name end-name))))
 		       (t
@@ -1039,66 +1212,49 @@ an undefined location.
 ;; since we aren't interested.  See etc/SUN-SUPPORT for the reasons why
 ;; we consider this nothing but a distraction from our work.
 
-(if (fboundp 'defmenu)
-    (progn
-
-(defmenu bibtex-sun-entry-menu 
-  ("Article In Conf. Proc."
-   (lambda () (eval-in-window *menu-window* (bibtex-InProceedings))))
-  ("Article In Journal"
-   (lambda () (eval-in-window *menu-window* (bibtex-Article))))
-  ("Book"
-   (lambda () (eval-in-window *menu-window* (bibtex-Book))))
-  ("Booklet"
-   (lambda () (eval-in-window *menu-window* (bibtex-Booklet))))
-  ("Master's Thesis"
-   (lambda () (eval-in-window *menu-window* (bibtex-MastersThesis))))
-  ;;("DEA Thesis" bibtex-DEAthesis)
-  ("PhD. Thesis"
-   (lambda () (eval-in-window *menu-window* (bibtex-PhdThesis))))
-  ("Technical Report"
-   (lambda () (eval-in-window *menu-window* (bibtex-TechReport))))
-  ("Technical Manual"
-   (lambda () (eval-in-window *menu-window* (bibtex-Manual))))
-  ("Conference Proceedings"
-   (lambda () (eval-in-window *menu-window* (bibtex-Proceedings))))
-  ("In A Book"
-   (lambda () (eval-in-window *menu-window* (bibtex-InBook))))
-  ("In A Collection"
-   (lambda () (eval-in-window *menu-window* (bibtex-InCollection))))
-  ("Miscellaneous"
-   (lambda () (eval-in-window *menu-window* (bibtex-Misc))))
-  ("Unpublished"
-   (lambda () (eval-in-window *menu-window* (bibtex-Unpublished)))))
-
-(defmenu bibtex-sun-menu
-  ("BibTeX menu")
-  ("add entry" . bibtex-sun-entry-menu)
-  ("add string"
-   (lambda () (eval-in-window *menu-window* (bibtex-string))))
-  ;("next field" bibtex-next-position)
-  ;("to end of field" bibtex-find-it)
-;  ("remove OPT"
-;   (lambda () (eval-in-window *menu-window* (bibtex-remove-opt))))
-;  ("remove quotes"
-;   (lambda () (eval-in-window *menu-window* (bibtex-remove-double-quotes))))
-;  ("remove this line"
-;   (lambda () (eval-in-window *menu-window* (kill-current-line))))
-  ("describe BibTeX mode"
-   (lambda () (eval-in-window *menu-window* (describe-mode))))
-  ("Main Emacs menu" . emacs-menu))
+(defmacro eval-in-menu-window (&rest l)
+  "Evaluates its argument in the window in which the mouse button was pressed."
+  (list 'eval-in-window '*menu-window* l))
+
+;(defmenu bibtex-sun-entry-menu 
+;  ("Article In Conf. Proc." eval-in-menu-window bibtex-InProceedings)
+;  ("Article In Journal" eval-in-menu-window bibtex-Article)
+;  ("Book" eval-in-menu-window bibtex-Book)
+;  ("Booklet" eval-in-menu-window bibtex-Booklet)
+;  ("Master's Thesis" eval-in-menu-window bibtex-MastersThesis)
+;  ("PhD. Thesis" eval-in-menu-window bibtex-PhdThesis)
+;  ("Technical Report" eval-in-menu-window bibtex-TechReport)
+;  ("Technical Manual" eval-in-menu-window bibtex-Manual)
+;  ("Conference Proceedings" eval-in-menu-window bibtex-Proceedings)
+;  ("In A Book" eval-in-menu-window bibtex-InBook)
+;  ("In A Collection" eval-in-menu-window bibtex-InCollection)
+;  ("Miscellaneous" eval-in-menu-window bibtex-Misc)
+;  ("Unpublished" eval-in-menu-window bibtex-Unpublished)
+;  ("string" eval-in-menu-window bibtex-string)
+;  ("preamble" eval-in-menu-window bibtex-preamble))
+;
+;(defmenu bibtex-sun-menu
+;  ("BibTeX menu")
+;  ("add entry" . bibtex-sun-entry-menu)
+;  ("next field" eval-in-menu-window bibtex-next-field nil)
+;  ("to end of field" eval-in-menu-window bibtex-find-text nil)
+;  ("snatch similar preceding field" eval-in-menu-window bibtex-pop-previous 1)
+;  ("snatch similar following field" eval-in-menu-window bibtex-pop-next 1)
+;  ("remove OPT" eval-in-menu-window bibtex-remove-OPT)
+;  ("remove quotes" eval-in-menu-window bibtex-remove-double-quotes)
+;  ("clean entry" eval-in-menu-window bibtex-clean-entry)
+;  ("describe BibTeX mode" eval-in-menu-window describe-mode)
+;  ("Main Emacs menu" . emacs-menu))
  
 (defun bibtex-sun-menu-eval (window x y)
   "Pop-up menu of BibTeX commands."
   (sun-menu-evaluate window (1+ x) (1- y) 'bibtex-sun-menu))
 
 (defun bibtex-sun-environment ()
-  "Set up sun menus for BibTeX mode.  Call it as bibtex-mode-hook, or interactively"
+  "Set up sun menus for BibTeX mode.  Call it as bibtex-mode-hook, or
+interactively"
   (interactive)
   (local-set-mouse  '(text right) 'bibtex-sun-menu-eval))
 
-))  ; matches (if...
-
-(provide 'bibtex)
+;;; bibtex-mode.el ends here
 
-;;; bibtex.el ends here
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index e4e02a68f67..85a9c1dd2e4 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1,12 +1,15 @@
 ;;; fill.el --- fill commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
 ;; Copyright (C) 1985, 1986, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defconst fill-individual-varying-indent nil
   "*Controls criterion for a new paragraph in `fill-individual-paragraphs'.
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 26d82a2f793..b05632c569e 100644
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -1,7 +1,7 @@
 ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index ad7512d6cf7..036e5d6bb63 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -1,12 +1,15 @@
 ;;; outline.el --- outline mode commands for Emacs
 
+;; Maintainer: FSF
+;; Last-Modified: 10 Apr 1991
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;; Jan '86, Some new features added by Peter Desnoyers and rewritten by RMS.
   
 (defvar outline-regexp "[*\^l]+"
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c5457fa5e5d..53953cb65be 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -1,18 +1,15 @@
 ;;; page-ext.el --- page handling commands
 
-;;; by Robert J. Chassell
-
-;;; You may use these commands to handle an address list or other
-;;; small data base.
+;; Author: Robert J. Chassell <bob@gnu.ai.mit.edu>
+;; Last-Modified: 10 Apr 1991
 
 ;;; Copyright (C) 1990 Free Software Foundation
-;;; Please send bug reports to bob@ai.mit.edu
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -24,6 +21,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;;; You may use these commands to handle an address list or other
+;;; small data base.
+
+;;; Change Log:
+
 ;;; Change Log ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Version 0.043
@@ -132,6 +136,7 @@
 ;;; 28 Jan 1990 - Initial definitions.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;;; Code:
 
 ;;;; Summary
 
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index 935e19bdba4..65cad14e6ed 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -1,12 +1,15 @@
 ;;; page.el --- page motion commands for emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 01 May 1992
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun forward-page (&optional count)
   "Move forward to page boundary.  With arg, repeat, or go back if negative.
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 516ccd646de..dd0e941c195 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -1,13 +1,16 @@
 ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun move-to-column-force (column)
   "Move to column COLUMN in current line.
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index e0eb0614d70..a769877118d 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -1,12 +1,15 @@
 ;;; refbib.el --- convert refer-style references to ones usable by Latex bib
 
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
 ;; Copyright (C) 1989 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,11 +21,15 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; Use: from a buffer containing the refer-style bibliography,
 ;;   M-x r2b-convert-buffer
 ;; Program will prompt for an output buffer name, and will log
 ;; warnings during the conversion process in the buffer *Log*.
 
+;;; Change Log:
+
 ; HISTORY
 ; 9/88, created
 ; modified 1/19/89, allow books with editor but no author;
@@ -45,6 +52,9 @@
 ; modified 3/1/89,  fixed capitialize-title for first words all caps
 ; modified 3/15/89, allow use of " to delimit fields
 ; modified 4/18/89, properly "quote" special characters on output
+
+;;; Code:
+
 ;**********************************************************
 ; User Parameters
 
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index 63ef847b018..b9033e13dac 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -1,7 +1,7 @@
 ;;; spell.el --- spelling correction interface for Emacs.
 
 ;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -9,7 +9,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 545fcd34def..9b6fee482a5 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,16 +1,18 @@
 ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
 
-;; Copyright (C) 1985, 1986, 1989, 1992 Free Software Foundation, Inc.
+;; Maintainer: Edward M. Reingold <reingold@cs.uiuc.edu>
+;; Last-Modified: 04 July 1992
+
 ;; Contributions over the years by William F. Schelter, Dick King,
 ;; Stephen Gildea, Michael Prange, and Edward M. Reingold.
 
-;; Latest revision (1992) by Edward M. Reingold <reingold@cs.uiuc.edu>.
+;; Copyright (C) 1985, 1986, 1989, 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -22,6 +24,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'comint)
 
 (defvar tex-shell-file-name nil
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index f23ffbba7aa..1c35f4c46e4 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1,6 +1,8 @@
 ;;;; texinfmt.el --- convert Texinfo files to Info files.
 
-;;;; Version 2.00   14 Dec 1990
+;; Author: Robert J. Chassell <bob@gnu.ai.mit.edu>
+;; Version: 2.00
+;; Last-Modified: 14 Dec 1990
 
 ;; Copyright (C) 1985, 1986, 1988, 1990 Free Software Foundation, Inc.
 
@@ -8,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -20,12 +22,16 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; Updated May 1990 to correspond, more or less, to version 2.8 of
 ;; texinfo.tex.  NOTE: texinfmt.el is being phased out; it is being
 ;; replaced by makeinfo.c, which is faster and provides better error
 ;; checking.  
 ;; Robert J. Chassell, bob@ai.mit.edu
 
+;;; Code:
+
 (defvar texinfo-format-syntax-table nil)
 
 (defvar texinfo-vindex)
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 76cbc5b2a2b..837dd3e3a2f 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -1,6 +1,8 @@
 ;;;; texinfo.el ---- major mode for editing Texinfo files.
 
-;;;; Version 2.00   14 Dec 1990
+;; Author: Bob Chassell <bob@gnu.ai.mit.edu>
+;; Version: 2.00
+;; Last-Modified: 14 Dec 1990
 
 ;; Copyright (C) 1985, 1988, 1989, 1990 Free Software Foundation, Inc.
 
@@ -8,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -20,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (require 'texnfo-upd)
 (require 'tex-mode)
 (defvar texinfo-mode-syntax-table nil)
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index da341b2ab9c..b30f897586c 100644
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -1,12 +1,15 @@
 ;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1988
+
 ;; Copyright (C) 1985 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;###autoload
 (defun underline-region (start end)
diff --git a/lisp/time.el b/lisp/time.el
index 2978b812cdb..11ab1cd524a 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,12 +1,15 @@
 ;;; time.el --- display time and load in mode line of Emacs.
 
+;; Maintainer: FSF
+;; Last-Modified: 09 Oct 1990
+
 ;; Copyright (C) 1985, 1986, 1987 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar display-time-mail-file nil
   "*File name of mail inbox file, for indicating existence of new mail.
diff --git a/lisp/timer.el b/lisp/timer.el
index b938307aea6..cbe3b2a0478 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -1,12 +1,15 @@
 ;;; timer.el --- run a function with args at some time in future
 
+;; Maintainer: FSF
+;; Last-Modified: 19 Jan 1990
+
 ;; Copyright (C) 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar timer-process nil)
 (defvar timer-alist ())
 (defvar timer-out "")
diff --git a/lisp/uncompress.el b/lisp/uncompress.el
index fd450ac36f0..b918c5b1fd8 100644
--- a/lisp/uncompress.el
+++ b/lisp/uncompress.el
@@ -1,12 +1,15 @@
 ;;; uncompress.el --- auto-decompression hook for visiting .Z files
 
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1988
+
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;; When we are about to make a backup file,
 ;; uncompress the file we visited
 ;; so that making the backup can work properly.
diff --git a/lisp/userlock.el b/lisp/userlock.el
index 23430fa1e04..cce5251204b 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -1,12 +1,15 @@
 ;;; userlock.el --- handle file access contention between multiple users
 
+;;; Maintainer: FSF
+;;; Last-Modified: 26 May 1987
+
 ;; Copyright (C) 1985, 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,12 +21,14 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
-;; This file is autloaded to handle certain conditions
+;; This file is autoloaded to handle certain conditions
 ;; detected by the file-locking code within Emacs.
 ;; The two entry points are `ask-user-about-lock' and
 ;; `ask-user-about-supersession-threat'.
 
+;;; Code:
 
 (put 'file-locked 'error-conditions '(file-locked file-error error))
 
diff --git a/lisp/view.el b/lisp/view.el
index 8bb69bff6fd..d93c9b50cf8 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -1,13 +1,16 @@
 ;;; view.el --- peruse file or buffer without editing.
 
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 21 Aug 1988
+
 ;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,6 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defvar view-mode-map nil)
 (if view-mode-map
diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 48ecbeb61de..6abdb38591d 100644
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -1,12 +1,15 @@
 ;;; vms-patch.el --- override parts of files.el for VMS.
 
+;; Maintainer: FSF
+;; Last-Modified: 06 May 1992
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;; Functions that need redefinition
 
diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el
index efd1482e1c0..bf561ad5205 100644
--- a/lisp/vmsproc.el
+++ b/lisp/vmsproc.el
@@ -1,4 +1,8 @@
-;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
+;;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
+
+;; Author: Mukesh Prasad
+;; Maintainer: FSF
+;; Last-Modified: 29 Sep 1986
 
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
@@ -6,7 +10,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,7 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Written by Mukesh Prasad.
+;;; Code:
 
 (defvar display-subprocess-window nil
   "If non-nil, the suprocess window is displayed whenever input is received.")
diff --git a/lisp/vmsx.el b/lisp/vmsx.el
index 2d7fc89af7f..dc39efe4f67 100644
--- a/lisp/vmsx.el
+++ b/lisp/vmsx.el
@@ -1,12 +1,16 @@
 ;;; vmsx.el --- run asynchronous VMS subprocesses under Emacs
 
+;; Author: Mukesh Prasad
+;; Maintainer: FSF
+;; Last-Modified: 29 Sep 1986
+
 ;; Copyright (C) 1986 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,7 +22,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Written by Mukesh Prasad.
+;;; Code:
 
 (defvar display-subprocess-window nil
   "If non-nil, the suprocess window is displayed whenever input is received.")
diff --git a/lisp/vt100-led.el b/lisp/vt100-led.el
index 2a096a7311b..b2bda4cd49d 100644
--- a/lisp/vt100-led.el
+++ b/lisp/vt100-led.el
@@ -1,12 +1,15 @@
 ;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones.
 
+;; Author: Howard Gayle
+;; Maintainer: FSF
+
 ;; Copyright (C) 1988 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,8 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-
-;; Written by Howard Gayle.
+;;; Code:
 
 (defvar led-state (make-vector 5 nil)
    "The internal state of the LEDs.  Choices are nil, t, `flash.
diff --git a/lisp/xscheme.el b/lisp/xscheme.el
index 87ef6d6c668..fe45757d47e 100644
--- a/lisp/xscheme.el
+++ b/lisp/xscheme.el
@@ -3,13 +3,15 @@
 ;; Maintainer: FSF
 ;; Last-Modified: 21 Jan 1987
 
+;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $
+
 ;; Copyright (C) 1986, 1987, 1989, 1990 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)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -28,8 +30,6 @@
 
 ;;; Code:
 
-;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $
-
 (require 'scheme)
 
 (defvar scheme-program-name "scheme"