From 6594deb0dcec8f1a663fc47b0588a7b4c935a6c5 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sat, 30 May 1992 22:12:04 +0000 Subject: [PATCH] *** empty log message *** --- lisp/emacs-lisp/lisp-mode.el | 4 +++- lisp/emacs-lisp/lisp.el | 5 ++++- lisp/emulation/mlconvert.el | 4 +++- lisp/emulation/mlsupport.el | 4 +++- lisp/ledit.el | 5 ++++- lisp/loadup.el | 5 ++++- lisp/lpr.el | 5 ++++- lisp/macros.el | 5 ++++- lisp/mail/mail-utils.el | 4 +++- lisp/mail/mailabbrev.el | 5 ++++- lisp/mail/mailalias.el | 5 ++++- lisp/mail/mailpost.el | 7 ++++--- lisp/makesum.el | 5 ++++- lisp/man.el | 5 ++++- lisp/map-ynp.el | 5 ++++- lisp/medit.el | 6 ++++-- lisp/mhspool.el | 5 ++++- lisp/mim-mode.el | 4 +++- lisp/mim-syntax.el | 6 +++--- lisp/misc.el | 5 ++++- lisp/mouse.el | 4 +++- lisp/netunam.el | 5 ++++- lisp/nnspool.el | 5 ++++- lisp/nntp.el | 4 +++- lisp/novice.el | 4 +++- lisp/options.el | 4 +++- lisp/paths.el | 5 ++++- lisp/play/life.el | 4 +++- lisp/play/meese.el | 4 ++++ lisp/play/mpuz.el | 6 +++--- lisp/progmodes/modula2.el | 5 ++++- lisp/progmodes/prolog.el | 5 ++++- lisp/rect.el | 5 ++++- lisp/textmodes/nroff-mode.el | 6 +++--- lisp/textmodes/ooutline.el | 4 +++- lisp/textmodes/page-ext.el | 6 +++--- lisp/textmodes/page.el | 6 +++++- lisp/textmodes/paragraphs.el | 5 ++++- lisp/textmodes/picture.el | 4 +++- lisp/textmodes/refbib.el | 5 ++++- 40 files changed, 145 insertions(+), 50 deletions(-) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 78310112c10..6cf7253b443 100644 --- 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 db2a4169ae3..cc3b189ea3d 100644 --- 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 3f14afa505e..54b177792c8 100644 --- 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 521b64ce281..65af46a309e 100644 --- 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 7981ef851fd..90347323056 100644 --- 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 3b8e7bbd67e..7f3370493c6 100644 --- 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 296224679b9..e7d182fede8 100644 --- 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 76f1f6fe728..4cd6a34ebe8 100644 --- 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 b25edf5cb5e..a7d9ef9c3b3 100644 --- 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 056395bc8ac..71077a1760e 100644 --- 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 ;;; Modified: 5 apr 92, Roland McGrath @@ -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 2765bd561f0..e0b44601b9e 100644 --- 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 326d5092575..e9d96167581 100644 --- 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 4274e900e7e..99b0452bd16 100644 --- 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 790c8a0c1bd..c2e0d45ac3f 100644 --- 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 ddf27bdc839..5f4571f4ab8 100644 --- 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 d42e67a26a3..9c08ccb2b9d 100644 --- 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 f9ad802ec56..49ed3379094 100644 --- 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 b7aae0a6d19..1c0dec2ed59 100644 --- 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 c9a95b50f2f..a9ab16ca25d 100644 --- 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 db7b3f223b5..3eea6ec22bb 100644 --- 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 41940cb6221..94d0e4ba5f1 100644 --- 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 44d828729ef..8bfad991cd4 100644 --- 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 0cfa097d2f5..15afc80504a 100644 --- 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 dd33902be77..d1e0dd2fbe4 100644 --- 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 7a3898014ef..c5374e8b8be 100644 --- 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 3abd02910ba..86e8d493032 100644 --- 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 50a5880eac3..074b979d558 100644 --- 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 0aceb065609..3ce585d9f16 100644 --- 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 5ba9dfd2ad2..5bbe3b1a07b 100644 --- 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 f4d622ad819..01b44c1d356 100644 --- 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 ;;; 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 24f5225260a..19c7249b40a 100644 --- 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 9220495bbf8..ddbbf804962 100644 --- 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 06a55a295a6..343143e10cb 100644 --- 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 35bf4213615..4806273cab8 100644 --- 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 33b716d8120..3580c1e54b5 100644 --- 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 c17fa187551..13f331c4312 100644 --- 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 576e23a7560..935e19bdba4 100644 --- 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 55b9fc6e45a..2235c0b903a 100644 --- 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 a72dee496ae..516ccd646de 100644 --- 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 cba3a2ba0f5..e0eb0614d70 100644 --- 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 -- 2.11.4.GIT