summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/=ada.el16
-rw-r--r--lisp/=ftp.el4
-rw-r--r--lisp/=gnus.el12
-rw-r--r--lisp/=gnusmail.el14
-rw-r--r--lisp/=gnusmisc.el10
-rw-r--r--lisp/=gnuspost.el10
-rw-r--r--lisp/=gosmacs.el6
-rw-r--r--lisp/=grow-vers.el13
-rw-r--r--lisp/=inc-vers.el6
-rw-r--r--lisp/=isearch-old.el7
-rw-r--r--lisp/=iso8859-1.el10
-rw-r--r--lisp/=man.el7
-rw-r--r--lisp/=medit.el13
-rw-r--r--lisp/=mim-mode.el8
-rw-r--r--lisp/=mim-syntax.el8
-rw-r--r--lisp/=netunam.el4
-rw-r--r--lisp/=sun-keys.el25
-rw-r--r--lisp/=timer.el7
-rw-r--r--lisp/=vmsx.el8
-rw-r--r--lisp/abbrev.el11
-rw-r--r--lisp/abbrevlist.el6
-rw-r--r--lisp/apropos.el12
-rw-r--r--lisp/array.el15
-rw-r--r--lisp/autoinsert.el10
-rw-r--r--lisp/calendar/appt.el13
-rw-r--r--lisp/case-table.el11
-rw-r--r--lisp/chistory.el10
-rw-r--r--lisp/comint.el14
-rw-r--r--lisp/compare-w.el7
-rw-r--r--lisp/dabbrev.el10
-rw-r--r--lisp/diff.el13
-rw-r--r--lisp/dired-aux.el7
-rw-r--r--lisp/disp-table.el9
-rw-r--r--lisp/ebuff-menu.el14
-rw-r--r--lisp/echistory.el8
-rw-r--r--lisp/edmacro.el13
-rw-r--r--lisp/ehelp.el7
-rw-r--r--lisp/electric.el7
-rw-r--r--lisp/emacs-lisp/autoload.el8
-rw-r--r--lisp/emacs-lisp/backquote.el10
-rw-r--r--lisp/emacs-lisp/cl-indent.el9
-rw-r--r--lisp/emacs-lisp/cust-print.el13
-rw-r--r--lisp/emacs-lisp/debug.el6
-rw-r--r--lisp/emacs-lisp/float.el11
-rw-r--r--lisp/emacs-lisp/helper.el8
-rw-r--r--lisp/emacs-lisp/lisp-mode.el5
-rw-r--r--lisp/emacs-lisp/lisp.el6
-rw-r--r--lisp/emacs-lisp/profile.el6
-rw-r--r--lisp/emulation/edt.el31
-rw-r--r--lisp/emulation/mlconvert.el7
-rw-r--r--lisp/emulation/mlsupport.el6
-rw-r--r--lisp/env.el7
-rw-r--r--lisp/files.el7
-rw-r--r--lisp/find-dired.el20
-rw-r--r--lisp/find-gc.el7
-rw-r--r--lisp/float-sup.el7
-rw-r--r--lisp/help.el7
-rw-r--r--lisp/hexl.el14
-rw-r--r--lisp/indent.el6
-rw-r--r--lisp/info.el13
-rw-r--r--lisp/informat.el7
-rw-r--r--lisp/international/iso-ascii.el11
-rw-r--r--lisp/international/iso-insert.el7
-rw-r--r--lisp/international/iso-swed.el9
-rw-r--r--lisp/international/swedish.el6
-rw-r--r--lisp/kermit.el4
-rw-r--r--lisp/ledit.el6
-rw-r--r--lisp/loadup.el7
-rw-r--r--lisp/lpr.el6
-rw-r--r--lisp/macros.el6
-rw-r--r--lisp/mail/emacsbug.el4
-rw-r--r--lisp/mail/mail-utils.el6
-rw-r--r--lisp/mail/mailalias.el6
-rw-r--r--lisp/mail/rmail.el6
-rw-r--r--lisp/mail/rmailedit.el6
-rw-r--r--lisp/mail/rmailkwd.el6
-rw-r--r--lisp/mail/rmailmsc.el5
-rw-r--r--lisp/mail/rmailout.el4
-rw-r--r--lisp/mail/rmailsort.el6
-rw-r--r--lisp/mail/rmailsum.el6
-rw-r--r--lisp/mail/rnews.el10
-rw-r--r--lisp/mail/rnewspost.el14
-rw-r--r--lisp/mail/sendmail.el6
-rw-r--r--lisp/mail/undigest.el11
-rw-r--r--lisp/makesum.el4
-rw-r--r--lisp/map-ynp.el12
-rw-r--r--lisp/misc.el6
-rw-r--r--lisp/novice.el6
-rw-r--r--lisp/options.el6
-rw-r--r--lisp/paths.el8
-rw-r--r--lisp/play/dissociate.el3
-rw-r--r--lisp/play/doctor.el7
-rw-r--r--lisp/play/gomoku.el11
-rw-r--r--lisp/play/life.el8
-rw-r--r--lisp/play/spook.el4
-rw-r--r--lisp/play/yow.el4
-rw-r--r--lisp/progmodes/c-mode.el7
-rw-r--r--lisp/progmodes/cmacexp.el7
-rw-r--r--lisp/progmodes/etags.el10
-rw-r--r--lisp/progmodes/fortran.el44
-rw-r--r--lisp/progmodes/icon.el19
-rw-r--r--lisp/progmodes/prolog.el8
-rw-r--r--lisp/progmodes/scheme.el13
-rw-r--r--lisp/rect.el4
-rw-r--r--lisp/register.el4
-rw-r--r--lisp/reposition.el10
-rw-r--r--lisp/rot13.el9
-rw-r--r--lisp/server.el4
-rw-r--r--lisp/shell.el4
-rw-r--r--lisp/sort.el8
-rw-r--r--lisp/sun-curs.el7
-rw-r--r--lisp/sun-fns.el13
-rw-r--r--lisp/tabify.el4
-rw-r--r--lisp/tar-mode.el4
-rw-r--r--lisp/term/bg-mouse.el15
-rw-r--r--lisp/term/sun-mouse.el10
-rw-r--r--lisp/term/sup-mouse.el24
-rw-r--r--lisp/terminal.el9
-rw-r--r--lisp/textmodes/bib-mode.el7
-rw-r--r--lisp/textmodes/bibtex.el580
-rw-r--r--lisp/textmodes/fill.el6
-rw-r--r--lisp/textmodes/nroff-mode.el4
-rw-r--r--lisp/textmodes/ooutline.el7
-rw-r--r--lisp/textmodes/page-ext.el17
-rw-r--r--lisp/textmodes/page.el6
-rw-r--r--lisp/textmodes/picture.el8
-rw-r--r--lisp/textmodes/refbib.el12
-rw-r--r--lisp/textmodes/spell.el4
-rw-r--r--lisp/textmodes/tex-mode.el10
-rw-r--r--lisp/textmodes/texinfmt.el10
-rw-r--r--lisp/textmodes/texinfo.el8
-rw-r--r--lisp/textmodes/underline.el6
-rw-r--r--lisp/time.el6
-rw-r--r--lisp/uncompress.el7
-rw-r--r--lisp/userlock.el9
-rw-r--r--lisp/view.el8
-rw-r--r--lisp/vms-patch.el6
-rw-r--r--lisp/vmsproc.el10
-rw-r--r--lisp/vt100-led.el8
-rw-r--r--lisp/xscheme.el6
140 files changed, 1288 insertions, 537 deletions
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/=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/=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/=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/=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/=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/=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/=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/=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/=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/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/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/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/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/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/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/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/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/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/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/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"