*** empty log message ***

20 files changed, 89 insertions, 24 deletions

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index d7d20af1d7a..70f1a43fe54 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -1,3 +1,5 @@
+;;; upd-copyr.el --- update the copyright notice in a GNU Emacs elisp file
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
 ;;; Written by Roland McGrath.
 ;;;
@@ -128,3 +130,5 @@ Put this on write-file-hooks."
   nil)
 
 (provide 'upd-copyr)
+
+;;; upd-copyr.el ends here
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 55259ed4221..fb76742c295 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -1,4 +1,5 @@
-; Evi: Major mode for emulating "vi" editor under GNU Emacs.
+;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
+
 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
 ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)
@@ -1445,3 +1446,5 @@ With arg, inserts that many newlines."
                           (setq arg (1- arg)))
                         (if flag (forward-char 1))))) arg)
     t))
+
+;;; vi.el ends here
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 583251e990f..5b80fbf8e2e 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -1,4 +1,5 @@
-;; "RMAIL" mail reader for Emacs.
+;;; undigest.el --- digest-cracking support for the RMAIL mail reader
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -103,3 +104,4 @@ Leaves original message, deleted, before the undigestified messages."
              (delete-region (point-min) (point-max))
              (rmail-show-message rmail-current-message))))))
 
+;;; undigest.el ends here
diff --git a/lisp/play/studly.el b/lisp/play/studly.el
index 5661b04a3cb..e40b18677f7 100644
--- a/lisp/play/studly.el
+++ b/lisp/play/studly.el
@@ -1,4 +1,4 @@
-;;; StudlyCaps (tm)(r)(c)(xxx)
+;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx)
 
 (defun studlify-region (begin end)
   "Studlify-case the region"
@@ -46,3 +46,5 @@
   "Studlify-case the current buffer"
   (interactive "*")
   (studlify-region (point-min) (point-max)))
+
+;;; studly.el ends here
diff --git a/lisp/term-nasty.el b/lisp/term-nasty.el
index 86a4a1ec30e..2a0d13acd6b 100644
--- a/lisp/term-nasty.el
+++ b/lisp/term-nasty.el
@@ -1,3 +1,5 @@
+;;; term-nasty.el --- Damned Things from terminfo.el
+
 Some people used to be bothered by the following comments that were
 found in terminal.el.  We decided they were distracting, and that it
 was better not to have them there.  On the other hand, we didn't want
@@ -18,4 +20,6 @@ and C-i even though the termcap doesn't say they may be used:
 ;fuck me harder
 ;again and again!
 ;wa12id!!
-;(spiked)
\ No newline at end of file
+;(spiked)
+
+;;; term-nasty.el ends here
diff --git a/lisp/terminal.el b/lisp/terminal.el
index 314cc45d707..97293fee260 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1,4 +1,5 @@
-;; Terminal emulator for GNU Emacs.
+;;; terminal.el --- terminal emulator for GNU Emacs.
+
 ;; Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
 ;; Written by Richard Mlynarik, November 1986.
 
@@ -1217,3 +1218,5 @@ of the terminal-emulator"
            (concat "\"" harder "\"")))))
 
 (provide 'terminal)
+
+;;; terminal.el ends here
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index eb5ff51e932..bc92872d951 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,4 +1,5 @@
-;; TeX, LaTeX, and SliTeX mode commands.
+;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
+
 ;; Copyright (C) 1985, 1986, 1989 Free Software Foundation, Inc.
 ;; Rewritten following contributions by William F. Schelter
 ;; and Dick King (king@kestrel).
@@ -803,3 +804,4 @@ Runs the shell command defined by tex-show-queue-command."
 
 (provide 'tex-mode)
 
+;;; tex-mode.el ends here
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 7d38045eb8c..f23ffbba7aa 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -1,5 +1,4 @@
-;;;; texinfmt.el
-;;;; Convert Texinfo files to Info files.
+;;;; texinfmt.el --- convert Texinfo files to Info files.
 
 ;;;; Version 2.00   14 Dec 1990
 
@@ -1819,3 +1818,5 @@ For example, invoke
              (message ">>  %s" s))
            (setq error 1))))
       (kill-emacs error))))
+
+;;; texinfmt.el ends here
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index edb72a8ed54..76cbc5b2a2b 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -1,5 +1,4 @@
-;;;; texinfo.el
-;;;; Major mode for editing Texinfo files.
+;;;; texinfo.el ---- major mode for editing Texinfo files.
 
 ;;;; Version 2.00   14 Dec 1990
 
@@ -413,3 +412,4 @@ Runs the shell command defined by tex-dvi-print-command."
 
 (provide 'texinfo)
 
+;;; texinfo.el ends here
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 6954952ca61..377de8a6ab9 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -1,5 +1,4 @@
-;;;; texnfo-upd.el
-;;;; A utility for updating nodes and menus in Texinfo files.
+;;; texnfo-upd.el --- a utility for updating nodes and menus in Texinfo files.
 
 ;;;; Version 2.00   14 Dec 1990
 
@@ -1721,7 +1720,6 @@ chapter."
           included-file-list)))))
   (message "Multiple files updated."))
 
-;;;;;;;;;;;;;;;; end texnfo-upd.el ;;;;;;;;;;;;;;;;
-
 (provide 'texnfo-upd)
 
+;;; texnfo-upd.el ends here
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 39122d5e436..56a4ab59c59 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -1,4 +1,5 @@
-;; Text mode, and its ideosyncratic commands.
+;;; text-mode.el --- text mode, and its idiosyncratic commands.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -148,3 +149,5 @@ the distance between the end of the text and `fill-column'."
       (indent-to 
         (+ left-margin 
            (/ (- fill-column left-margin line-length) 2))))))
+
+;;; text-mode.el ends here
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 89edcfefe34..da341b2ab9c 100644
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -1,4 +1,5 @@
-;; Insert or remove underlining (done by overstriking) in Emacs.
+;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -46,3 +47,5 @@ which specify the range to operate on."
      (goto-char (min start end))
      (while (re-search-forward "_\\|_" end1 t)
        (delete-char -2)))))
+
+;;; underline.el ends here
diff --git a/lisp/time.el b/lisp/time.el
index 27485bee64a..2978b812cdb 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,4 +1,5 @@
-;; Display time and load in mode line of Emacs.
+;;; time.el --- display time and load in mode line of Emacs.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -122,3 +123,5 @@ After each update, `display-time-hook' is run with `run-hooks'."
   (while (file-symlink-p file)
     (setq file (file-symlink-p file)))
   (> (nth 7 (file-attributes file)) 0))
+
+;;; time.el ends here
diff --git a/lisp/timer.el b/lisp/timer.el
index 905706f3ab7..b938307aea6 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -1,4 +1,5 @@
-;; Run a function with args at some time in future
+;;; timer.el --- run a function with args at some time in future
+
 ;; Copyright (C) 1990 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -91,3 +92,5 @@ the call to the function."
   (or timer-alist timer-dont-exit (process-send-eof timer-process)))
 
 (provide 'timer)
+
+;;; timer.el ends here
diff --git a/lisp/uncompress.el b/lisp/uncompress.el
index 6897c7c3ccb..fd450ac36f0 100644
--- a/lisp/uncompress.el
+++ b/lisp/uncompress.el
@@ -1,3 +1,23 @@
+;;; uncompress.el --- auto-decompression hook for visiting .Z files
+
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 ;; When we are about to make a backup file,
 ;; uncompress the file we visited
 ;; so that making the backup can work properly.
@@ -45,3 +65,5 @@ It then selects a major mode from the uncompressed file name and contents."
         (goto-char (point-min))
         (setq error nil)
         t)))
+
+;;; uncompress.el ends here
diff --git a/lisp/unused.el b/lisp/unused.el
index 0808593f6e6..9b7eea4304e 100644
--- a/lisp/unused.el
+++ b/lisp/unused.el
@@ -1,5 +1,6 @@
-;; Editing commands in GNU Emacs that turned out not to be used.
-;; They were added with an eye to making possible a more CCA-compatible
+;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
+
+;; These were added with an eye to making possible a more CCA-compatible
 ;; command set; but that turned out not to be interesting.
 
 (defun mark-beginning-of-buffer ()
@@ -30,3 +31,5 @@ With argument, do this that many times."
 With argument, do this that many times."
   (interactive "p")
   (forward-to-word (- arg)))
+
+;;; unused.el ends here
diff --git a/lisp/userlock.el b/lisp/userlock.el
index 5866b03c67b..23430fa1e04 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -1,3 +1,5 @@
+;;; userlock.el --- handle file access contention between multiple users
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, inc.
 
 ;; This file is part of GNU Emacs.
@@ -123,4 +125,4 @@ If you say `n', the change you started to make will be aborted.
 Usually, you should type `n' and then `M-x revert-buffer',
 to get the latest version of the file, then make the change again.")))
 
-
+;;; userlock.el ends here
diff --git a/lisp/view.el b/lisp/view.el
index 3307ba8ce03..8bb69bff6fd 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -1,4 +1,5 @@
-;; View: Peruse file or buffer without editing.
+;;; view.el --- peruse file or buffer without editing.
+
 ;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -439,3 +440,4 @@ invocations return to earlier marks."
 
 (provide 'view)
 
+;;; view.el ends here
diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 15302b3fd90..48ecbeb61de 100644
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -1,4 +1,5 @@
-;; Override parts of files.el for VMS.
+;;; vms-patch.el --- override parts of files.el for VMS.
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -107,3 +108,5 @@ If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."
                   " sys$login:delete-me.txt/name=""GNUprintbuffer"" "
                   (mapconcat 'identity switches " "))
           nil nil nil)))
+
+;;; vms-patch.el ends here
diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el
index 47c35ee4b14..efd1482e1c0 100644
--- a/lisp/vmsproc.el
+++ b/lisp/vmsproc.el
@@ -1,4 +1,4 @@
-;; vmsx.el --- run asynchronous VMS subprocesses under Emacs
+;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
 
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
@@ -137,3 +137,5 @@ line to the last line for resubmission."
   (kill-line))
 
 (define-key esc-map "$" 'subprocess-command)
+
+;;; vmsproc.el ends here