*** empty log message ***

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 78310112c10bbb1f284e0edd62479c4645754fb4..6cf7253b443d4a647491cfd45cd34cdcae5298a1 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -1,4 +1,5 @@
-;; Lisp mode, and its idiosyncratic commands.
+;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -614,3 +615,4 @@ means don't indent that line."
 
 (provide 'lisp-mode)
 
+;;; lisp-mode.el ends here

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index db2a4169ae346c87955c5d00189b47e764e423a7..cc3b189ea3d653d30d997cefc986bdda4462d2ab 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -1,4 +1,5 @@
-;; Lisp editing commands for Emacs
+;;; lisp.el --- Lisp editing commands for Emacs
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -260,3 +261,5 @@ function definitions, values or properties are considered."
             (with-output-to-temp-buffer " *Completions*"
               (display-completion-list list)))
           (message "Making completion list...%s" "done")))))
+
+;;; lisp.el ends here

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 3f14afa505e1f9de08ceeef41bd2179cb164e8a7..54b177792c898cf0359e7e9ccde4ad7527246fbc 100644 (file)
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -1,4 +1,5 @@
-;; Convert buffer of Mocklisp code to real lisp.
+;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -271,3 +272,4 @@
 
 ;Variable pause-writes-files
 
+;;; mlconvert.el ends here

diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 521b64ce28101a17b182ddc522a53e3dcf09604f..65af46a309ece96dff8ac6e1e42e6604f22256b2 100644 (file)
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -1,4 +1,5 @@
-;; Run-time support for mocklisp code.
+;;; mlsupport.el --- run-time support for mocklisp code.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -404,3 +405,4 @@
 
 (provide 'mlsupport)
 
+;;; mlsupport.el ends here

diff --git a/lisp/ledit.el b/lisp/ledit.el
index 7981ef851fd1614412c353f9151a4e806546b753..9034732305636b82b7eb0dd66bae14afdaa5cae2 100644 (file)
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -1,4 +1,5 @@
-;; Emacs side of ledit interface
+;;; ledit.el --- Emacs side of ledit interface
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -141,3 +142,5 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
   (setq mode-name "Ledit")
   (setq major-mode 'ledit-mode)
   (run-hooks 'ledit-mode-hook))
+
+;;; ledit.el ends here

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 3b8e7bbd67e96f2da3af21a52090a29b34f79d22..7f3370493c6817048a8d9d3eb6d4111c298944be 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,4 +1,5 @@
-;;Load up standardly loaded Lisp files for Emacs.
+;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
+
 ;; This is loaded into a bare Emacs to make a dumpable one.
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
@@ -147,3 +148,5 @@
 
 (or (fboundp 'dump-emacs)
     (eval top-level))
+
+;;; loadup.el ends here

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 296224679b9911f72f29f34a56e987d7f4321008..e7d182fede88aade5a15a0f8bcd80745d513464b 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -1,4 +1,5 @@
-;; Print Emacs buffer on line printer.
+;;; lpr.el --- print Emacs buffer on line printer.
+
 ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -94,3 +95,5 @@ See definition of `print-region-1' for calling conventions.")
        (widen) (erase-buffer)
        (insert-buffer-substring oldbuf start end)
        (setq start (point-min) end (point-max)))))
+
+;;; lpr.el ends here

diff --git a/lisp/macros.el b/lisp/macros.el
index 76f1f6fe728d9e32c75930a55d88e266893bdf0a..4cd6a34ebe8b6380ccd0e2f62f8352e0a2a3b7eb 100644 (file)
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -1,4 +1,5 @@
-;; Non-primitive commands for keyboard macros.
+;;; macros.el --- non-primitive commands for keyboard macros.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -173,3 +174,5 @@ and then select the region of un-tablified names and use
 
 ;;;###autoload
 (define-key ctl-x-map "q" 'kbd-macro-query)
+
+;;; macros.el ends here

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index b25edf5cb5e50fca25dca661acc1bb5f21f03cc0..a7d9ef9c3b3b81970a078c1d06a7a8fa9918a089 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -1,4 +1,5 @@
-;; Utility functions used both by rmail and rnews
+;;; mail-utils.el --- utility functions used both by rmail and rnews
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -200,3 +201,4 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
 
 (provide 'mail-utils)
 
+;;; mail-utils.el ends here

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 056395bc8ac9fc543ea0578930bf53c2cc970a6a..71077a1760efe0c307a01d316df28c3ac42bf16a 100644 (file)
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -1,4 +1,5 @@
-;;; Abbrev-expansion of mail aliases.
+;;; mailabbrev.el --- abbrev-expansion of mail aliases.
+
 ;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 ;;; Created: 19 oct 90, Jamie Zawinski <jwz@lucid.com>
 ;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu>
@@ -613,3 +614,5 @@ end of line."
 
       (t ; v19
        (fmakunbound 'expand-mail-aliases)))
+
+;;; mailabbrev.el ends here

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 2765bd561f0327107b74da103b50d5ce1969c85b..e0b44601b9e7e8a8681b86770a475247e914cab8 100644 (file)
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -1,4 +1,5 @@
-;; Expand mailing address aliases defined in ~/.mailrc.
+;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
+
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -167,3 +168,5 @@ DEFINITION can be one or more mail addresses separated by commas."
     (if tem
        (rplacd tem definition)
       (setq mail-aliases (cons (cons name definition) mail-aliases)))))
+
+;;; mailalias.el ends here

diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 326d509257541390260b173dffc9a6257119c7fa..e9d96167581c207ef20804b0ed2f6704a9e32a80 100644 (file)
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -1,6 +1,5 @@
-;;
-;; P O S T . E L
-;;
+;;; post.el --- RMAIL coupler to /usr/uci/post mailer
+
 ;; Yet another mail interface.  this for the rmail system to provide
 ;;  the missing sendmail interface on systems without /usr/lib/sendmail,
 ;;   but with /usr/uci/post.
@@ -90,3 +89,5 @@ site-init."
       (kill-buffer tembuf)
       (if (bufferp errbuf)
          (switch-to-buffer errbuf)))))
+
+;;; mailpost.el ends here

diff --git a/lisp/makesum.el b/lisp/makesum.el
index 4274e900e7eadcfcf5674c3af46a8be9a19446d7..99b0452bd16ba004b7d0b357754bdefe4ba49cf2 100644 (file)
--- a/lisp/makesum.el
+++ b/lisp/makesum.el
@@ -1,4 +1,5 @@
-;; Generate key binding summary for Emacs
+;;; makesum.el --- generate key binding summary for Emacs
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -99,3 +100,5 @@ Previous contents of that buffer are killed first."
        (forward-line 1)
        (setq lines (cdr lines))))
     (goto-char (- (point-max) from-end))))
+
+;;; makesum.el ends here

diff --git a/lisp/man.el b/lisp/man.el
index 790c8a0c1bd1ebd3bfb9cdf13235227809ab5ee6..c2e0d45ac3f2be1c985d4d3d771e0097b816e1ca 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,4 +1,5 @@
-;; Read in and display parts of Unix manual.
+;;; man.el --- read in and display parts of Unix manual.
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -165,3 +166,5 @@ where SECTION is the desired section of the manual, as in \"tty(4)\"."
     (if (equal (substring name -2) ".z")
        (call-process "pcat" nil t nil name)
       (insert-file-contents name))))
+
+;;; man.el ends here

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index ddf27bdc839dc4e8235761bce37c8963d2230406..5f4571f4ab8748e7ad374a4c4f5f7037f4801b9f 100644 (file)
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -1,4 +1,5 @@
-;;; map-ynp.el -- General-purpose boolean question-asker.
+;;; map-ynp.el --- General-purpose boolean question-asker.
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
 ;;; Written by Roland McGrath.
 ;;;
@@ -149,3 +150,5 @@ Returns the number of actions taken."
     (message "")
     ;; Return the number of actions that were taken.
     actions))
+
+;;; map-ynp.el ends here

diff --git a/lisp/medit.el b/lisp/medit.el
index d42e67a26a3a6097930181e148bcff78151423f6..9c08ccb2b9deb0c9a0bfda07d8b8b1d49aae38e2 100644 (file)
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -1,4 +1,6 @@
-;; Lisp interface between GNU Emacs and MEDIT package. Emacs under MDL.
+;;; medit.el --- Lisp interface between GNU Emacs and MEDIT package.
+
+;; Emacs under MDL.
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -113,4 +115,4 @@ Like Mim mode, plus these special commands:
 
 (mim-mode)
 
-
+;;; medit.el ends here

diff --git a/lisp/mhspool.el b/lisp/mhspool.el
index f9ad802ec56290517407faf24990e2f4ff99387f..49ed3379094e56a79abe8e953a938244109639f9 100644 (file)
--- a/lisp/mhspool.el
+++ b/lisp/mhspool.el
@@ -1,4 +1,5 @@
-;;; MH folder access using NNTP for GNU Emacs
+;;; mhspool.el --- MH folder access using NNTP for GNU Emacs
+
 ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: mhspool.el,v 1.5 90/03/23 13:25:23 umerin Locked $
@@ -403,3 +404,5 @@ If the stream is opened, return T, otherwise return NIL."
     ))
 
 (provide 'mhspool)
+
+;;; mhspool.el ends here

diff --git a/lisp/mim-mode.el b/lisp/mim-mode.el
index b7aae0a6d1943978f33154a1f30ec4363555295d..1c0dec2ed5911ec7b962f3f2fc112fc115db42a6 100644 (file)
--- a/lisp/mim-mode.el
+++ b/lisp/mim-mode.el
@@ -1,4 +1,5 @@
-;; Mim (MDL in MDL) mode.
+;;; mim-mode.el --- Mim (MDL in MDL) mode.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -840,3 +841,4 @@ You need type only enough of the name to be unambiguous."
 
 (provide 'mim-mode)
 
+;;; mim-mode.el ends here

diff --git a/lisp/mim-syntax.el b/lisp/mim-syntax.el
index c9a95b50f2f8ccd938404c7933e26c8d07a23ed8..a9ab16ca25de1a10e71d52fb41c4719a5286950f 100644 (file)
--- a/lisp/mim-syntax.el
+++ b/lisp/mim-syntax.el
@@ -1,4 +1,5 @@
-;; Syntax checker for Mim (MDL).
+;;; mim-syntax.el --- syntax checker for Mim (MDL).
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -87,5 +88,4 @@ Answers correct or incorrect, cannot point out the error context."
          (message "Syntax correct")
        (error "Syntax incorrect")))))
 
-
-       
+;;; mim-syntax.el ends here

diff --git a/lisp/misc.el b/lisp/misc.el
index db7b3f223b512a65d933d1bc9729643d78c822d0..3eea6ec22bb3deaf077bf0ad390abb3f2c40211c 100644 (file)
--- a/lisp/misc.el
+++ b/lisp/misc.el
@@ -1,4 +1,5 @@
-;; Basic editing commands for Emacs
+;;; misc.el --- basic editing commands for Emacs
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -49,3 +50,5 @@ The characters copied are inserted in the buffer before point."
                            (min (save-excursion (end-of-line) (point))
                                 (+ n (point)))))))
     (insert string)))
+
+;;; misc.el ends here

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 41940cb6221dccd549b6341fcaf8b56dba9a4532..94d0e4ba5f1a229013f143c08eed12c8b88d826a 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1,4 +1,5 @@
-;;; Window system-independent mouse support.
+;;; mouse.el --- window system-independent mouse support.
+
 ;;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;;; This file is part of GNU Emacs.
@@ -455,3 +456,4 @@ This does not delete the region; it acts like \\[kill-ring-save]."
 
 (provide 'mouse)
 
+;;; mouse.el ends here

diff --git a/lisp/netunam.el b/lisp/netunam.el
index 44d828729ef92dc582401caf25ba4827f0538444..8bfad991cd47fc17d2f9f3ae5c918d8c98729067 100644 (file)
--- a/lisp/netunam.el
+++ b/lisp/netunam.el
@@ -1,4 +1,5 @@
-;; HP-UX RFA Commands
+;;; netunam.el --- HP-UX RFA Commands
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -150,3 +151,5 @@ NODE is the network node for the remote machine."
   (delete-char -1)
   (setq rfa-password-accumulator
        (substring rfa-password-accumulator 0 -1)))
+
+;;; netunam.el ends here

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index 0cfa097d2f5b41a90ff7023b446b1439389bb517..15afc80504a7282bac9415c67d8ebb83dbaf3e2a 100644 (file)
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -1,4 +1,5 @@
-;;; Spool access using NNTP for GNU Emacs
+;;; nnspool.el --- spool access using NNTP for GNU Emacs
+
 ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
@@ -373,3 +374,5 @@ If the stream is opened, return T, otherwise return NIL."
     ))
 
 (provide 'nnspool)
+
+;;; nnspool.el ends here

diff --git a/lisp/nntp.el b/lisp/nntp.el
index dd33902be77ddf7f3c3a21d22b184c8fa6409f22..d1e0dd2fbe4ede60697050937189db9418b0fcb7 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1,4 +1,5 @@
-;;; NNTP (RFC977) Interface for GNU Emacs
+;;; nntp.el --- NNTP (RFC977) Interface for GNU Emacs
+
 ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
 ;; $Header: nntp.el,v 3.10 90/03/23 13:25:27 umerin Locked $
@@ -666,3 +667,4 @@ defining this function as macro."
 
 (provide 'nntp)
 
+;;; nntp.el ends here

diff --git a/lisp/novice.el b/lisp/novice.el
index 7a3898014efab2d0e841ba2b795405dd4c3feec8..c5374e8b8bef1cd8242fbdb80ec85366f35b5384 100644 (file)
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -1,4 +1,5 @@
-;; Handling of disabled commands ("novice mode") for Emacs.
+;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -109,3 +110,4 @@ to future sessions."
    (insert "(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+;;; novice.el ends here

diff --git a/lisp/options.el b/lisp/options.el
index 3abd02910baadf9088b32db350ef7348e35dcdc4..86e8d4930328a3112635074a91ea50144448873b 100644 (file)
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -1,4 +1,5 @@
-;; Edit Options command for Emacs.
+;;; options.el --- edit Options command for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -123,3 +124,4 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
      (kill-sexp 1)
      (prin1 (symbol-value var) (current-buffer)))))
 
+;;; options.el ends here

diff --git a/lisp/paths.el b/lisp/paths.el
index 50a5880eac326b6c812a0175598f1e5bcda8c863..074b979d558df7614f52bc4aecc130d549dccb57 100644 (file)
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -1,4 +1,5 @@
-;; Define pathnames for use by various Emacs commands.
+;;; paths.el --- define pathnames for use by various Emacs commands.
+
 ;; Copyright (C) 1986, 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -165,3 +166,5 @@ Append a section-number or section-name to get a directory name.")
       "~/abbrev.def"
     "~/.abbrev_defs")
   "*Default name of file to read abbrevs from.")
+
+;;; paths.el ends here

diff --git a/lisp/play/life.el b/lisp/play/life.el
index 0aceb065609ab362aa4997cce3846cd792ff94e6..3ce585d9f163c7913573b61415f02be26409c39b 100644 (file)
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -1,4 +1,5 @@
-;; Conway's `Life' for GNU Emacs
+;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 ;; Contributed by Kyle Jones, talos!kjones@uunet.uu.net
 
@@ -273,3 +274,4 @@ generations (this defaults to 1)."
 
 (provide 'life)
 
+;;; life.el ends here

diff --git a/lisp/play/meese.el b/lisp/play/meese.el
index 5ba9dfd2ad20cc1fc147776253c2bd9f148429a7..5bbe3b1a07b894ce9c7761aa72a89cdc5cc36480 100644 (file)
--- a/lisp/play/meese.el
+++ b/lisp/play/meese.el
@@ -1,3 +1,5 @@
+;; meese.el --- protect the impressionable young minds of America...NOT!
+
 (defun protect-innocence-hook ()
   (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
           (not (y-or-n-p "Are you over 18? ")))
@@ -12,3 +14,5 @@
 
 (or (memq 'protect-innocence-hook find-file-hooks)
     (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))
+
+;;; meese.el ends here

diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index f4d622ad819dec9a14663c15529cd96b94399b8d..01b44c1d3569b351c2a854bfcc239a2b7a3a8c3c 100644 (file)
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -1,4 +1,5 @@
-;;; Multiplication puzzle for GNU Emacs
+;;; mpuz.el --- multiplication puzzle for GNU Emacs
+
 ;;; by Philippe Schnoebelen <phs@lifia.imag.fr>
 ;;; Last modified on 11 Nov 1990
 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
@@ -444,5 +445,4 @@ You may abort a game by hitting \\[keyboard-quit]."
          (setq list (cons digit list))))
     (mapcar 'mpuz-correct-guess list)))
 
-;;; End of mult-puzzle
-
+;;; mpuz.el ends here

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 24f5225260ac427e12c1f4bc900fbd498d158407..19c7249b40a5a2f1f0cab77b8f6913ea29259871 100644 (file)
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -1,4 +1,5 @@
-; Modula-2 editing support package
+;;; modula2.el --- Modula-2 editing support package
+
 ; Author Mick Jordan
 ; amended Peter Robinson
 ; ported to GNU Michael Schmidt
@@ -437,3 +438,5 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
        ((string-equal (substring (buffer-name) -3) ".md")
         (find-file-other-window
          (concat (substring (buffer-name) 0 -3)  ".mi")))))
+
+;;; modula2.el ends here

diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 9220495bbf892493837313303ac0ae61f76573e6..ddbbf8049620f747e5c3b24de81c0d2190ad891e 100644 (file)
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -1,4 +1,5 @@
-;; Major mode for editing Prolog, and for running Prolog under Emacs
+;;; prolog.el --- major mode for editing and running Prolog under Emacs
+
 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
 ;; Author Masanobu UMEDA (umerin@flab.flab.fujitsu.junet)
 
@@ -256,3 +257,5 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
   (interactive "P\nr")
   (prolog-consult-region compile beg end)
   (switch-to-buffer "*prolog*"))
+
+;;; prolog.el ends here

diff --git a/lisp/rect.el b/lisp/rect.el
index 06a55a295a6597e7b7fd8862f26eaf90d968050d..343143e10cb3bb08256a976906380df29719f5c7 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -1,4 +1,5 @@
-;; Rectangle functions for GNU Emacs.
+;;; rect.el --- rectangle functions for GNU Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -210,3 +211,5 @@ When called from a program, requires two args which specify the corners."
     (delete-char -1)
     (indent-to aftercol)
     (backward-char (- aftercol column))))
+
+;;; rect.el ends here

diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 35bf42136157cef68436c6495730bddc39d74575..4806273cab87eaea4109407839fb6bf95137ed02 100644 (file)
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -1,4 +1,4 @@
-;; GNU Emacs major mode for editing nroff source
+;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -17,8 +17,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-
-
 (defvar nroff-mode-abbrev-table nil
   "Abbrev table used while in nroff mode.")
 
@@ -34,6 +32,7 @@
       (define-key nroff-mode-map "\en" 'forward-text-line)
       (define-key nroff-mode-map "\ep" 'backward-text-line)))
 
+;;;###autoload
 (defun nroff-mode ()
   "Major mode for editing text intended for nroff to format.
 \\{nroff-mode-map}
@@ -200,3 +199,4 @@ turns it on iff arg is positive, otherwise off."
        (cond ((null arg) (null nroff-electric-mode))
              (t (> (prefix-numeric-value arg) 0)))))
 
+;;; nroff-mode.el ends here

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 33b716d812059efc5cbca1d2086f5fcb2632bfea..3580c1e54b5faada4a3b536569c7ba6f9498cdac 100644 (file)
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -1,4 +1,5 @@
-;; Outline mode commands for Emacs
+;;; outline.el --- outline mode commands for Emacs
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -395,3 +396,4 @@ and return that position or nil if it cannot be found."
        nil
         (point))))
 
+;;; outline.el ends here

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index c17fa18755121a931783c40d6216797295afc1bc..13f331c43120d51a88998cd507bccd8dbb3f0760 100644 (file)
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -1,6 +1,5 @@
-;;;; page-ext.el
+;;; page-ext.el --- page handling commands
 
-;;; Page handling commands
 ;;; by Robert J. Chassell
 
 ;;; You may use these commands to handle an address list or other
@@ -742,4 +741,5 @@ to the same line in the pages buffer."
   (make-local-variable 'pages-pos-list)
   (make-local-variable 'pages-directory-buffer-narrowing-p))
 
-;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
+;;; page-ext.el ends here
+

diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index 576e23a756056e2f02212fd27176718ef06ed64f..935e19bdba4d1e81ac8806f7856ab3b4b6b7eed5 100644 (file)
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -1,4 +1,5 @@
-;; Page motion commands for emacs.
+;;; page.el --- page motion commands for emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -89,6 +90,7 @@ thus showing a page other than the one point was originally in."
                        (if (and (eolp) (not (bobp)))
                            (forward-line 1))
                        (point)))))
+(put 'narrow-to-page 'disabled t)
 
 (defun count-lines-page ()
   "Report number of lines on current page, and how many are before or after point."
@@ -123,3 +125,5 @@ thus showing a page other than the one point was originally in."
        (message "Page %d, line %d"
                 count
                 (1+ (count-lines (point) opoint)))))))
+
+;;; page.el ends here

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 55b9fc6e45a86b728211290aa55ec0b80d1d7ca8..2235c0b903a0f2123619b392bc935cffe2b181f2 100644 (file)
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -1,4 +1,5 @@
-;; Paragraph and sentence parsing.
+;;; paragraphs.el --- paragraph and sentence parsing.
+
 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -228,3 +229,5 @@ With arg, repeat, or kill forward to Nth end of sentence if negative arg -N."
   "Interchange this (next) and previous sentence."
   (interactive "*p")
   (transpose-subr 'forward-sentence arg))
+
+;;; paragraphs.el ends here

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index a72dee496aee0855c84043ae90ae934bea8af037..516ccd646de56eb9c65f1e98829f3d9949c0cf03 100644 (file)
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -1,4 +1,5 @@
-;; "Picture mode" -- editing using quarter-plane screen model.
+;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 ;; Principal author K. Shane Hartman
 
@@ -559,3 +560,4 @@ With no argument strips whitespace from end of every line in Picture buffer
 
 (provide 'picture)
 
+;;; picture.el ends here

diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index cba3a2ba0f5e8b8a4391571dea46a2092522299e..e0eb0614d7030f3a9bac3f56ffbafeeaad356379 100644 (file)
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -1,4 +1,5 @@
-;; Convert refer-style bibliographic entries to ones usable by latex bib
+;;; refbib.el --- convert refer-style references to ones usable by Latex bib
+
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -709,3 +710,5 @@ To see this message again, perform
 (message "r2b loaded")
 
 (provide 'refer-to-bibtex)
+
+;;; refbib.el ends here