*** empty log message ***

lisp/calendar/holidays.el

@@ -1,4 +1,5 @@
-;; Holiday functions.
+;;; holidays.el --- holiday functions for the calendar package
+
 ;; Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -586,3 +587,4 @@ checked.  If nil, the holiday (car (cdr (cdr X))), if there, is checked."
 
 (provide 'holidays)
 
+;;; holidays.el ends here

lisp/emacs-lisp/float.el

@@ -1,3 +1,5 @@
+;;; float.el --- floating point arithmetic package.
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 ;; Author Bill Rosenblatt
 
@@ -17,8 +19,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Floating point arithmetic package.
-;;
 ;; 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.
@@ -447,3 +447,4 @@ are recognized."
 
 (provide 'float)
 
+;;; float.el ends here

lisp/emacs-lisp/helper.el

@@ -1,5 +1,4 @@
-;; helper - utility help package for modes which want to provide help
-;; without relinquishing control, e.g. `electric' modes.
+;;; helper.el --- utility help package supporting help in electric modes
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
@@ -147,4 +146,6 @@
 	     (ding)
 	     (setq continue nil))))))
 
-(provide 'helper)			
+(provide 'helper)
+
+;;; helper.el ends here

lisp/emulation/edt.el

@@ -1,3 +1,5 @@
+;;; edt.el --- EDT emulation in Emacs
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 ;;  It started from public domain code by Mike Clarkson
 ;;  but has been greatly altered.
@@ -396,3 +398,5 @@ by the PF1 key.  GOLD is the ASCII the 7-bit escape sequence <ESC>OP.")
 (or (assq 'edt-direction-string minor-mode-alist)
     (setq minor-mode-alist (cons '(edt-direction-string edt-direction-string)
 				 minor-mode-alist)))
+
+;;; edt.el ends here

lisp/flow-ctrl.el

@@ -1,5 +1,5 @@
-;;; Help for lusers on cu(1) or terminals with wired-in ^S/^Q flow control
-;;;
+;;; flow-ctrl.el --- help for lusers on cu(1) or terminals with wired-in ^S/^Q flow control
+
 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
 ;;; Copyright (C) 1991 Kevin Gallagher
 ;;; Adapted for Emacs 19 by Eric S. Raymond <eric@snark.thyrsus.com>
@@ -80,7 +80,6 @@ and C-q characters to OS."
     (and (memstr= term losing-terminal-types) (evade-flow-control)))
   )
 
-;;; flow-ctrl.el ends here
-
 (provide 'flow-ctrl)
 
+;;; flow-ctrl.el ends here

lisp/ftp.el

@@ -1,4 +1,5 @@
-;; File input and output over Internet using FTP
+;;; ftp.el --- file input and output over Internet using FTP
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 ;; Author mly@prep.ai.mit.edu.
 
@@ -384,3 +385,5 @@ USER and PASSWORD are defaulted from the values used when
 	 (= (process-exit-status process) 0)
 	 (set-buffer-modified-p nil))
     (message "Reverted")))
+
+;;; ftp.el ends here

lisp/gnus.el

@@ -1,4 +1,5 @@
-;;; GNUS: an NNTP-based News Reader for GNU Emacs
+;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
+
 ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
@@ -6080,3 +6081,5 @@ Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."
 ;;end:
 
 (provide 'gnus)
+
+;;; gnus.el ends here

lisp/gnusmail.el

@@ -1,4 +1,5 @@
-;;; Mail reply commands for GNUS newsreader
+;;; gnusmail.el --- mail reply commands for GNUS newsreader
+
 ;; Copyright (C) 1990 Masanobu UMEDA
 ;; $Header: gnusmail.el,v 1.1 90/03/23 13:24:39 umerin Locked $
 
@@ -147,3 +148,5 @@ The command \\[mh-yank-cur-msg] yanks the original message into current buffer."
     (setq mh-sent-from-msg 1)))
 
 (provide 'gnusmail)
+
+;;; gnusmail.el ends here

lisp/gnusmisc.el

@@ -1,4 +1,5 @@
-;;; Miscellaneous commands for GNUS newsreader
+;;; gnusmisc.el --- miscellaneous commands for GNUS newsreader
+
 ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1989, 1990 Masanobu UMEDA
 ;; $Header: gnusmisc.el,v 1.2 90/03/23 13:25:04 umerin Locked $
@@ -213,3 +214,5 @@ inserting it before the newsgroup on the line containging point."
     ))
 
 (provide 'gnusmisc)
+
+;;; gnusmisc.el ends here

lisp/gnuspost.el

@@ -1,4 +1,5 @@
-;;; Post news commands for GNUS newsreader
+;;; gnuspost.el --- post news commands for GNUS newsreader
+
 ;; Copyright (C) 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1989, 1990 Masanobu UMEDA
 ;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $
@@ -671,3 +672,5 @@ containing the organization."
     ))
 
 (provide 'gnuspost)
+
+;;; gnuspost.el ends here

lisp/gosmacs.el

@@ -1,4 +1,5 @@
-;; Rebindings to imitate Gosmacs.
+;;; gosmacs.el --- rebindings to imitate Gosmacs.
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -101,3 +102,5 @@ From the window at the lower right corner, select the one at the upper left."
   "Scroll the selected window up so that the current line is at the top."
   (interactive)
   (recenter 0))
+
+;;; gosmacs.el ends here

lisp/grow-vers.el

@@ -1,3 +1,5 @@
+;;; 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.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
@@ -28,3 +30,5 @@
 ;; so that we do not alter the current version.
 (delete-file "lisp/version.el")
 (write-region (point-min) (point-max) "lisp/version.el" nil 'nomsg)
+
+;;; grow-vers.el ends here

lisp/help.el

@@ -1,4 +1,5 @@
-;; Help commands for Emacs
+;;; help.el --- help commands for Emacs
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -383,3 +384,5 @@ to the specified name LIBRARY (a la calling `load' instead of `load-library')."
      load-path)
     (message "No library %s in search path" library)
     nil))
+
+;;; help.el ends here

lisp/hexl.el

@@ -1,5 +1,5 @@
-;; -*-Emacs-Lisp-*-
-;; hexl-mode -- Edit a file in a hex dump format.
+;;; hexl-mode.el --- edit a file in a hex dump format.
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -656,4 +656,4 @@ You may also type up to 3 octal digits, to insert a character with that code"
     (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer)
     (define-key hexl-mode-map "\C-x\C-t" 'undefined))
 
-;; The End.
+;;; hexl.el ends here

lisp/inc-vers.el

@@ -1,4 +1,5 @@
-;; Load this file to increment the recorded Emacs version number.
+;;; inc-vers.el --- load this to increment the recorded Emacs version number.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -41,3 +42,5 @@
 (set-buffer-modified-p nil)
 
 (kill-emacs)
+
+;;; inc-vers.el ends here

lisp/indent.el

@@ -1,4 +1,5 @@
-;; Indentation commands for Emacs
+;;; indent.el --- indentation commands for Emacs
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -244,3 +245,5 @@ Use \\[edit-tab-stops] to edit them interactively."
 (define-key esc-map "\034" 'indent-region)
 (define-key ctl-x-map "\t" 'indent-rigidly)
 (define-key esc-map "i" 'tab-to-tab-stop)
+
+;;; indent.el ends here

lisp/info.el

@@ -1,4 +1,5 @@
-;; Info package for Emacs  -- could use a "create node" feature.
+;;; info.el --- info package for Emacs  -- could use a "create node" feature.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -995,3 +996,4 @@ Interactively, if the binding is execute-extended-command, a command is read."
 
 (provide 'info)
 
+;;; info.el ends here

lisp/informat.el

@@ -1,4 +1,5 @@
-;; Info support functions package for Emacs
+;;; informat.el --- info support functions package for Emacs
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -413,3 +414,5 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
 			   (save-buffer))))
 	    (error (message ">> Error: %s" (prin1-to-string err))))))
       (kill-emacs error))))
+
+;;; informat.el ends here

lisp/international/iso-ascii.el

@@ -1,4 +1,5 @@
-;; Set up char tables for ISO 8859/1 character set for ASCII terminals.
+;;; iso-ascii.el --- set up char tables for ISO 8859/1 character set for ASCII terminals.
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -124,3 +125,5 @@
 (standard-display-ascii 255 "{\"y}") ; small y with diaeresis or umlaut mark
 
 (provide 'iso8859-1-ascii)
+
+;;; iso-ascii.el ends here

lisp/international/iso-insert.el

@@ -1,4 +1,5 @@
-;; Insert functions for ISO 8859/1.
+;;; iso-insert.el --- insert functions for ISO 8859/1.
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -618,3 +619,5 @@
 )
 
 (provide 'iso8859-1-insert)
+
+;;; iso-insert.el ends here

lisp/international/iso-swed.el

@@ -1,4 +1,5 @@
-;; 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 terminals.
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -138,3 +139,5 @@
 (standard-display-ascii 255 "{\"y}") ; small y with diaeresis or umlaut mark
 
 (provide 'iso8859-1-swedish)
+
+;;; iso-swed.el ends here

lisp/isearch-old.el

@@ -1,4 +1,5 @@
-;; Incremental search
+;;; isearch.el --- incremental search commands
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -621,3 +622,5 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
     (setq command-history (cons (list function string) command-history))
     ;; Go ahead and search.
     (funcall function string)))
+
+;;; isearch.el ends here

lisp/kermit.el

@@ -1,4 +1,5 @@
-;;Additions to shell mode for use with kermit, etc.
+;;; kermit.el --- additions to shell mode for use with kermit, etc.
+
 ;;Feb 1988, Jeff Norden - jeff@colgate.csnet
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
@@ -136,4 +137,4 @@ command \"kermit | tr -d '\\015'\"."
   (interactive)
   (set-process-filter (get-buffer-process (current-buffer)) nil))
 
-
+;;; kermit.el ends here

lisp/play/gomoku.el

@@ -1,4 +1,5 @@
-;; Gomoku game between you and Emacs
+;;; gomoku.el --- Gomoku game between you and Emacs
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1157,4 +1158,4 @@ If the game is finished, this command requests for another game."
 
 (provide 'gomoku)
 
-
+;;; gomoku.el ends here

lisp/play/hanoi.el

@@ -1,8 +1,6 @@
-;
-; hanoi - towers of hanoi in GNUmacs
-;
+;;; hanoi.el --- towers of hanoi in GNUmacs
+
 ; Author (a) 1985, Damon Anton Permezel
-;
 
 ;;;
 ;;; hanoi-topos - direct cursor addressing

lisp/progmodes/fortran.el

@@ -1,4 +1,5 @@
-;;; Fortran mode for GNU Emacs  (version 1.28.3, July 15, 1991)
+;;; fortran.el --- Fortran mode for GNU Emacs  (version 1.28.3, July 15, 1991)
+
 ;;; Copyright (c) 1991 Free Software Foundation, Inc.
 ;;; Written by Michael D. Prange (prange@erl.mit.edu)
 ;;; Maintained (as of version 1.28) by Stephen A. Wood (saw@hallc1.cebaf.gov)
@@ -995,3 +996,4 @@ character format style."
 
 (provide 'fortran)
 
+;;; fortran.el ends here

lisp/progmodes/hideif.el

@@ -1,5 +1,5 @@
-;;; hide-ifdef-mode.el   Hides selected code within ifdef.
-;;;
+;;; hide-ifdef-mode.el --- ides selected code within ifdef.
+
 ;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte
 ;;; Written by Brian Marick, at Gould, Computer Systems Division, Urbana IL.
 ;;; Extensively modified by Daniel LaLiberte (while at Gould).
@@ -1004,4 +1004,5 @@ Turn off hiding by calling show-ifdef."
       (error "No define list for %s" name))
     (if hide-ifdef-hiding (hide-ifdefs))))
 
-;===%%SF%% exports (End)  ===
+;;; hideif.el ends here
+

lisp/progmodes/icon.el

@@ -1,3 +1,5 @@
+;;; 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))
@@ -547,3 +549,4 @@ Returns nil if line starts inside a string, t if in a comment."
 		(if (re-search-forward comment-start-skip (save-excursion (end-of-line) (point)) t)
 		    (progn (indent-for-comment) (beginning-of-line))))))))))
 
+;;; icon.el ends here

lisp/textmodes/ispell4.el

@@ -1,5 +1,6 @@
-;;This is the GNU EMACS interface to GNU ISPELL version 3.
-;;   Copyright (C) 1990, 1991 Free Software Foundation, Inc.
+;;; ispell.el --- this is the GNU EMACS interface to GNU ISPELL version 3.
+
+;;Copyright (C) 1990, 1991 Free Software Foundation, Inc.
 ;;
 ;;This file is part of GNU ISPELL.
 ;;
@@ -547,3 +548,4 @@ L lookup; Q quit\n")
       (kill-emacs 1))
   (write-region (point-min) (point-max) "ispell.info"))
 
+;;; ispell.el ends here