*** empty log message ***

lisp/abbrev.el

@@ -1,10 +1,9 @@
 ;;; abbrev.el --- abbrev mode commands for Emacs
 
-;; Maintainer: FSF
-;; Last-Modified: 09 Jul 1992
-
 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/add-log.el

@@ -1,7 +1,5 @@
 ;;; add-log.el --- change log maintenance commands for Emacs
 
-;; Maintainer: FSF
-
 ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992
 ;;	Free Software Foundation, Inc.
 

lisp/byte-run.el

@@ -1,12 +1,11 @@
 ;; byte-run.el --- byte-compiler support for inlining
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;	Hallvard Furuseth <hbf@ulrik.uio.no>
-;; Last-Modified: 13 Jul 1992
 ;; Keywords: internal
 
-;; 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

lisp/calendar/appt.el

@@ -1,12 +1,11 @@
 ;;; appt.el --- appointment notification functions.
 
+;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+
 ;; 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

lisp/calendar/calendar.el

@@ -1,13 +1,12 @@
 ;;; calendar.el --- Calendar functions.
 
+;;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
+
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
-;; Last-Modified: 30 Jun 1992
 ;; Keyword: calendar
 
 (defconst calendar-version "Version 4.02, released June 14, 1992")
 
-;;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/calendar/holidays.el

@@ -1,11 +1,10 @@
 ;;; holidays.el --- holiday functions for the calendar package
 
-;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
-;; Last-Modified: 14 Jul 1992
-;; Keywords: calendar
-
 ;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
 
+;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
+;; Keywords: calendar
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/case-table.el

@@ -1,10 +1,10 @@
 ;;; case-table.el ---code to extend the character set and support case tables.
 
+;; Copyright (C) 1988 Free Software Foundation, Inc.
+
 ;; Author: Howard Gayle
 ;; Maintainer: FSF
-;; Last-Modified: 16 Mar 1992
+;; Keywords: i14n
-
-;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 

lisp/cl.el

@@ -1,13 +1,12 @@
 ;;; cl.el --- Common-Lisp extensions for GNU Emacs Lisp.
 
+;; Copyright (C) 1987, 1988, 1989 Free Software Foundation, Inc.
+
 ;; Author: Cesar Quiroz <quiroz@cs.rochester.edu>
-;; Last-Modified: 16 Mar 1992
 ;; Keywords: extensions
 
 (defvar cl-version "2.0 beta 29 October 1989")
 
-;; Copyright (C) 1987, 1988, 1989 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/cmuscheme.el

@@ -1,7 +1,6 @@
 ;;; cmuscheme.el -- Scheme process in a buffer. Adapted from tea.el.
 
 ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
-;; Last-Modified: 16 Mar 1992
 ;; Keyword: processes, lisp
 
 ;;; Copyright Olin Shivers (1988)

lisp/comint.el

@@ -1,12 +1,11 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
+;;; Copyright Olin Shivers (1988).
+
 ;; Maintainer: Olin Shivers <shivers@cs.cmu.edu>
-;; Last-Modified: 16 Jul 1992
 ;; Version: 2.03
 ;; Keyword: estensions, processes
 
-;;; Copyright Olin Shivers (1988).
-
 ;;; This file is part of GNU Emacs.
 
 ;;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/dabbrev.el

@@ -1,10 +1,12 @@
 ;;; dabbrev.el --- dynamic abbreviation package for GNU Emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 16 Mar 1992
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Last-Modified: 16 Mar 1992
+;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/diary-lib.el

@@ -1,11 +1,10 @@
 ;;; diary.el --- diary functions.
 
-;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
-;; Last-Modified: 30 Jun 1992
-;; Keyword: calendar
-
 ;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
 
+;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
+;; Keyword: calendar
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/diff.el

@@ -1,13 +1,12 @@
 ;;; diff.el --- "DIFF" mode for handling output from unix diff utility.
 
+;; Copyright (C) 1990 Free Software Foundation, Inc.
+
 ;; Author: Frank P. Bresz <fpb@ittc.wec.com>
 ;; Maintainer: FSF
 ;; Created: 27 Jan 1989
-;; Last-Modified: 21 Dec 1992
 ;; Keyword: unix, tools
 
-;; 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

lisp/dired-aux.el

@@ -1,10 +1,9 @@
 ;; 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.
 

lisp/ebuff-menu.el

@@ -1,10 +1,9 @@
 ;;; ebuff-menu.el --- electric-buffer-list mode
 
-;; Author: Richard Mlynarik <mly@ai.mit.edu>
-;; Last-Modified: 21 Dec 1991
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Author: Richard Mlynarik <mly@ai.mit.edu>
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/echistory.el

@@ -1,10 +1,9 @@
 ;;; echistory.el --- Electric Command History Mode
 
+;; Copyright (C) 1985 Free Software Foundation, Inc.
+
 ;; Author: K. Shane Hartman
 ;; Maintainer: FSF
-;; Last-Modified: 09 May 1991
-
-;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 

lisp/ehelp.el

@@ -1,11 +1,10 @@
 ;;; ehelp.el --- bindings for electric-help mode
 
-;; Maintainer: FSF
-;; Last-Modified: 16 Mar 1992
-;; Keywords: help, extensions
-
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: help, extensions
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/emacs-lisp/autoload.el

@@ -1,11 +1,10 @@
 ;;; autoload.el --- maintain autoloads in loaddefs.el.
 
-;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
-;; Last-Modified: 24 Jun 1992
-;; Keyword: internal
-
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
 ;;;
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Keyword: internal
+
 ;;; 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 2, or (at your option)

lisp/emacs-lisp/bytecomp.el

@@ -1,16 +1,15 @@
 ;;; bytecomp.el --- compilation of Lisp code into byte code.
 
+;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
+
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;	Hallvard Furuseth <hbf@ulrik.uio.no>
-;; Last-Modified: 15 Jul 1992
 ;; Keywords: internal
 
 ;; Subsequently modified by RMS.
 
 (defconst byte-compile-version "FSF 2.1")
 
-;;; 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
@@ -245,8 +244,17 @@ of `message.'")
 (defconst byte-compile-warning-types '(redefine callargs free-vars unresolved))
 (defvar byte-compile-warnings (not noninteractive)
   "*List of warnings that the byte-compiler should issue (t for all).
-Valid elements of this list are `callargs', `redefine', `free-vars',
+Valid elements of this list are:
-and `unresolved'.")
+`free-vars' (references to variables not in the
+	     current lexical scope)
+`unresolved' (calls to unknown functions)
+`callargs'  (lambda calls with args that don't
+	     match the lambda's definition)
+`redefine'  (function cell redefined from
+	     a macro to a lambda or vice versa,
+	     or redefined to take other args)
+This variable defaults to nil in -batch mode, which is
+slightly faster.")
 
 (defvar byte-compile-generate-call-tree nil
   "*Non-nil means collect call-graph information when compiling.

lisp/emacs-lisp/edebug.el

@@ -1,7 +1,10 @@
-;;; edebug.el --- a source-level debugger for emacs lisp.
+;;; edebug.el --- a source-level debugger for emacs lisp
 
 ;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc
 
+;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
+;; Keywords: lisp, tools
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,8 +22,9 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
-;;;================================================================
+;;;; Commentary:
-;;; This minor mode allows programmers to step through elisp source
+
+;;; This minor mode allows programmers to step through Emacs Lisp source
 ;;; code while executing, set breakpoints, etc.  See the texinfo
 ;;; document (being constructed...) for more detailed instructions
 ;;; than contained here.  Send me your enhancement, ideas, bugs, or
@@ -152,7 +156,7 @@
 ;;; 
 ;;; Revision 1.4  89/02/14  22:58:34  liberte
 ;;; Fix broken breakpointing.
-;;; Temporarily widen elisp buffer during edebug.
+;;; Temporarily widen Emacs Lisp buffer during edebug.
 ;;; 
 ;;; Revision 1.3  89/01/30  00:26:09  liberte
 ;;; More bug fixes for cond and let.
@@ -186,6 +190,8 @@
 ;; Use the "?" command in edebug to describe other commands.
 ;; See edebug.texinfo for more instructions.
 
+;;; Code:
+
 
 ;;; Options
 ;;; -------
@@ -198,7 +204,7 @@ If nil, eval-region evaluates normally, but eval-defun with prefix arg
 uses edebug-defun.  eval-region is called by eval-defun, eval-last-sexp,
 and eval-print-last-sexp.
 
-You may wish to make this variable local to each elisp buffer by calling
+You may wish to make this variable local to each Emacs Lisp buffer by calling
 (make-local-variable 'edebug-all-defuns) in your emacs-lisp-mode-hook.
 You can use the function edebug-all-defuns to toggle its value.")
 
@@ -266,7 +272,7 @@ edebug-print-trace-exit.")
 
 (defun edebug-last-sexp ()
   "Return the last sexp before point in current buffer.
-Assumes elisp syntax is active."
+Assumes Emacs Lisp syntax is active."
   (car
    (read-from-string
     (buffer-substring
@@ -852,7 +858,7 @@ may be one of the following:
 	  (throw 'no-match nil))
       (edebug-syntax-error "%s is not %s" form arg))))
 
-;; for loop defined in elisp manual
+;; for loop defined in Emacs Lisp manual
 (put 'for 'edebug-form-hook
      '(symbolp 'from form 'to form 'do &rest form))
 
@@ -2243,7 +2249,7 @@ print value into current buffer."
 
 
 (defun edebug-mode ()
-  "Mode for elisp buffers while in edebug.  Under construction.
+  "Mode for Emacs Lisp buffers while in edebug.  Under construction.
 
 There are both buffer local and global key bindings to several
 functions.  E.g. edebug-step-through is bound to

lisp/emacs-lisp/lisp-mode.el

@@ -1,11 +1,10 @@
 ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
 
-;; Maintainer: FSF
-;; Last-Modified: 03 Jun 1992
-;; Keywords: lisp, languages
-
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: lisp, languages
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/emacs-lisp/ring.el

@@ -1,11 +1,10 @@
 ;;; ring.el --- handle rings of marks
 
-;; Maintainer: FSF
-;; Last-Modified: 22 Apr 1991
-;; Keywords: extensions
-
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: extensions
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/emulation/edt.el

@@ -1,13 +1,13 @@
 ;;; edt.el --- EDT emulation in Emacs
 
+;; Copyright (C) 1986 Free Software Foundation, Inc.
+
 ;; Author: Mike Clarkson <mike@yetti.UUCP>
 ;; Maintainer: FSF
 ;; Created: 27 Aug 1986
-;; Last-Modified: 09 May 1991
 ;; Keywords: emulations
 
-;; Copyright (C) 1986 Free Software Foundation, Inc.
+;;  This started from public domain code by Mike Clarkson
-;;  It started from public domain code by Mike Clarkson
 ;;  but has been greatly altered.
 
 ;; This file is part of GNU Emacs.

lisp/files.el

@@ -1,10 +1,9 @@
 ;;; 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.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/find-dired.el

@@ -1,16 +1,15 @@
 ;; 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
 ;; Keywords: unix
 
 (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 2, or (at your option)

lisp/flow-ctrl.el

@@ -2,11 +2,13 @@
 
 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
 ;;; Copyright (C) 1991 Kevin Gallagher
+
 ;; Author Kevin Gallagher
 ;; Maintainer: FSF
 ;; Adapted-By: ESR
 ;; Keywords: hardware
 
+;;; This file is part of GNU Emacs.
 ;;;
 ;;; GNU Emacs is distributed in the hope that it will be useful, but
 ;;; WITHOUT ANY WARRANTY.  No author or distributor accepts

lisp/frame.el

@@ -1,11 +1,10 @@
 ;;; frame.el --- multi-frame management independent of window systems.
 
-;; Maintainer: FSF
-;; Last-Modified: 09 Jul 92
-;; Keywords: internal
-
 ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: internal
+
 ;;; This file is part of GNU Emacs.
 ;;;
 ;;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/gnus.el

@@ -1,13 +1,12 @@
 ;;; 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
 ;; Keywords: news
 
 ;; $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

lisp/gnusmail.el

@@ -1,13 +1,12 @@
 ;;; 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
 ;; Keywords: news
 
 ;; $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

lisp/gnusmisc.el

@@ -1,13 +1,12 @@
 ;;; 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
 ;; Keywords: news
 
 ;; $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

lisp/gnuspost.el

@@ -1,13 +1,12 @@
 ;;; 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
 ;; Keywords: news
 
 ;; $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

lisp/help.el

@@ -1,11 +1,10 @@
 ;;; help.el --- help commands for Emacs
 
-;; Maintainer: FSF
-;; Last-Modified: 30 Jun 1992
-;; Keywords: help, internal
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: help, internal
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/hexl.el

@@ -1,10 +1,9 @@
 ;;; 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.
 
+;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/info.el

@@ -1,11 +1,10 @@
 ;;; info.el --- info package for Emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 30 Jun 1992
-;; Keywords: help
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: help
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/informat.el

@@ -1,11 +1,10 @@
 ;;; informat.el --- info support functions package for Emacs
 
-;; Maintainer: FSF
-;; Last-Modified: 09 May 1991
-;; Keywords: help
-
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: help
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/isearch-old.el

@@ -1,10 +1,9 @@
 ;;; isearch.el --- incremental search commands
 
-;; Maintainer: FSF
-;; Last-Modified: 30 Jun 1992
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/isearch.el

@@ -1,10 +1,9 @@
 ;; isearch-mode.el --- incremental search minor mode.
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 ;; Version: 1.2
-;; Last-Modified: 27 May 1992
-
-;; Copyright (C) 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 

lisp/kermit.el

@@ -1,10 +1,9 @@
 ;;; kermit.el --- additions to shell mode for use with kermit, etc.
 
+;; Copyright (C) 1988 Free Software Foundation, Inc.
+
 ;; Author: Jeff Norden <jeff@colgate.csnet>
 ;; Created: 15 Feb 1988
-;; Last-modified: 12 Mar 1992
-
-;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 

lisp/ledit.el

@@ -1,11 +1,10 @@
 ;;; ledit.el --- Emacs side of ledit interface
 
-;; Maintainer: FSF
-;; Last-Modified: 13 May 1991
-;; Keyord: languages
-
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keyord: languages
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/lpr.el

@@ -1,11 +1,10 @@
 ;;; lpr.el --- print Emacs buffer on line printer.
 
-;; Maintainer: FSF
-;; Last-Modified: 19 Apr 1992
-;; Keywords: unix
-
 ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: unix
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/mail/mail-extr.el

@@ -1,13 +1,12 @@
 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header.
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
 ;; Author: Joe Wells <jbw@cs.bu.edu>
-;; Last-Modified: 7 Apr 1992
 ;; Version: 1.0
 ;; Adapted-By: ESR
 ;; Keywords: mail
 
-;; 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

lisp/mail/mailabbrev.el

@@ -1,14 +1,13 @@
 ;;; mailabbrev.el --- abbrev-expansion of mail aliases.
 
+;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
+
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;	Roland McGrath <roland@gnu.ai.mit.edu>
 ;; Created: 19 Oct 90
-;; Last-Modified: 13 Jun 92
 ;; Keywords: mail
 
 ;;; ??? We must get papers for this or delete it.
-;;; 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

lisp/mail/mailalias.el

@@ -1,11 +1,10 @@
 ;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
 
-;; Maintainer: FSF
-;; Last-Modified: 01 Jun 1992
-;; Keywords: mail
-
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: mail
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/mail/rmail.el

@@ -1,11 +1,10 @@
 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 24 Apr 1992
-;; Keywords: mail
-
 ;; Copyright (C) 1985, 1986, 1987, 1988, 1991, 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: mail
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/mail/rnewspost.el

@@ -1,11 +1,10 @@
 ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
 
-;; Maintainer: FSF
-;; Last-Modified: 30 May 1992
-;; Keywords: mail, news
-
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: mail, news
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/mail/sendmail.el

@@ -1,11 +1,10 @@
 ;;; sendmail.el --- mail sending commands for Emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 24 Jun 1992
-;; Keywords: mail
-
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: mail
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/medit.el

@@ -1,12 +1,11 @@
 ;;; medit.el --- front-end to the MEDIT package for editing MDL
 
+;; Copyright (C) 1985 Free Software Foundation, Inc.
+
 ;; Author: K. Shane Hartman
 ;; Maintainer: FSF
-;; Last-Modified: 05 Apr 1991
 ;; Keywords: languages
 
-;; 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

lisp/mh-e.el

@@ -1,15 +1,14 @@
 ;;; mh-e.el --- GNU Emacs interface to the MH mailer
 
+;;;  Copyright (C) 1985, 86, 87, 88, 89, 92 Free Software Foundation
+
 ;; Author: James Larus <larus@ginger.berkeley.edu>
 ;; Version: 3.7
-;; Last-Modified: 30 Jun 1992
 ;; Keywords: mail
 
 (defvar mh-e-RCS-id)
 (setq mh-e-RCS-id "$Header: /var/home/larus/lib/emacs/RCS/mh-e.el,v 3.1 90/09/28 15:47:58 larus Exp Locker: larus $")
 
-;;;  Copyright (C) 1985, 86, 87, 88, 89, 92 Free Software Foundation
-
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but without any warranty.  No author or distributor
 ;; accepts responsibility to anyone for the consequences of using it

lisp/netunam.el

@@ -1,12 +1,11 @@
 ;;; netunam.el --- HP-UX RFA Commands
 
+;; Copyright (C) 1988 Free Software Foundation, Inc.
+
 ;; 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 $
 
-;; 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

lisp/nnspool.el

@@ -1,14 +1,13 @@
 ;;; nnspool.el --- spool access using NNTP for GNU Emacs
 
-;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;; Last-Modified: 16 Mar 1992
-;; Keywords: news
-
-;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
-
 ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
 
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Keywords: news
+
+;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/nntp.el

@@ -1,14 +1,13 @@
 ;;; nntp.el --- NNTP (RFC977) Interface for GNU Emacs
 
-;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;; Last-Modified: 16 Mar 1992
-;; Keywords: news
-
-;; $Header: nntp.el,v 3.10 90/03/23 13:25:27 umerin Locked $
-
 ;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
 ;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
 
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Keywords: news
+
+;; $Header: nntp.el,v 3.10 90/03/23 13:25:27 umerin Locked $
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,

lisp/paths.el

@@ -1,11 +1,10 @@
 ;;; paths.el --- define pathnames for use by various Emacs commands.
 
-;; Maintainer: FSF
-;; Last-Modified: 05 Dec 1991
-;; Keywords: internal
-
 ;; Copyright (C) 1986, 1988 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: internal
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/play/gomoku.el

@@ -1,12 +1,11 @@
 ;;; gomoku.el --- Gomoku game between you and Emacs
 
+;; Copyright (C) 1988 Free Software Foundation, Inc.
+
 ;; 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

lisp/play/life.el

@@ -1,11 +1,10 @@
 ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
 
-;; Author: Kyle Jones <talos!kjones@uunet.uu.net>
-;; Last-Modified: 16 Mar 1992
-;; Keyword: games
-
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
+;; Author: Kyle Jones <talos!kjones@uunet.uu.net>
+;; Keyword: games
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/play/meese.el

@@ -3,6 +3,8 @@
 ;; Maintainer: FSF
 ;; Keywords: games
 
+;;; Code:
+
 (defun protect-innocence-hook ()
   (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
 	   (not (y-or-n-p "Are you over 18? ")))

lisp/progmodes/c-mode.el

@@ -1,11 +1,10 @@
 ;;; 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.
 
+;; Maintainer: FSF
+;; Keywords: c
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/progmodes/compile.el

@@ -1,14 +1,13 @@
 ;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
 
+;; Copyright (C) 1985, 86, 87, 92 Free Software Foundation, Inc.
+
 ;; Author: Roland McGrath <roland@prep.ai.mit.edu>
 ;; Maintainer: FSF
-;; Last-Modified: 05 Jul 1992
 ;; Keyword: tools, processes
 
 ;;;!!! dup removal is broken.
 
-;; Copyright (C) 1985, 86, 87, 92 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/progmodes/cplus-md.el

@@ -1,9 +1,10 @@
 ;;; c++-mode.el --- C++ code editing commands for Emacs
 
+;; Copyright (C) 1985 Richard M. Stallman.
+
 ;; Author: Dave Detlefs <dld@cs.cmu.edu>
 ;; 	Stewart Clamen <clamen@cs.cmu.edu>
 ;; Maintainer: Dave Detlefs <dld@cs.cmu.edu>
-;; Last-Modified: 09 May 1991
 ;; Keywords: c
 
 ;;; Commentary:
@@ -11,8 +12,6 @@
 ;; 1987 Dave Detlefs  (dld@cs.cmu.edu) 
 ;; and  Stewart Clamen (clamen@cs.cmu.edu).
 ;; Done by fairly faithful modification of:
-;; c-mode.el, Copyright (C) 1985 Richard M. Stallman.
-
 ;;; Change Log:
 
 ;; Feb, 1990 (Dave Detlefs, dld@cs.cmu.edu)
@@ -99,13 +98,11 @@
   (define-key c++-mode-map "\e\C-q" 'indent-c++-exp)
   (define-key c++-mode-map "\177" 'backward-delete-char-untabify)
   (define-key c++-mode-map "\t" 'c++-indent-command)
-  (define-key c++-mode-map "\C-c\C-i" 'c++-insert-header)
+;;   (define-key c++-mode-map "\C-c\C-i" 'c++-insert-header)
-  (define-key c++-mode-map "\C-c\C-\\" 'c++-macroize-region)
+  (define-key c++-mode-map "\C-c\C-\\" 'c-backslash-region)
-  (define-key c++-mode-map "\C-c\C-c" 'c++-comment-region)
+;;   (define-key c++-mode-map "\e\C-a" 'c++-beginning-of-defun)
-  (define-key c++-mode-map "\C-c\C-u" 'c++-uncomment-region)
+;;   (define-key c++-mode-map "\e\C-e" 'c++-end-of-defun)
-  (define-key c++-mode-map "\e\C-a" 'c++-beginning-of-defun)
+;;   (define-key c++-mode-map "\e\C-x" 'c++-indent-defun))
-  (define-key c++-mode-map "\e\C-e" 'c++-end-of-defun)
-  (define-key c++-mode-map "\e\C-x" 'c++-indent-defun))
 
 (defvar c++-mode-syntax-table nil
   "Syntax table used in C++ mode.")
@@ -119,7 +116,7 @@
 
 (defvar c++-continued-member-init-offset nil
   "*Extra indent for continuation lines of member inits;
-NIL means to align with previous initializations rather than
+nil means to align with previous initializations rather than
 with the colon on the first line.")
 (defvar c++-member-init-indent 0
   "*Indentation level of member initializations in function declarations.")
@@ -569,8 +566,8 @@ Returns nil if line starts inside a string, t if in a comment."
 		    (looking-at "\\*/")))
 	     (search-backward "/*" lim 'move))
 	    ((and
-	      (search-backward "//" (max (point-bol) lim) 'move)
+	      (search-backward "//" (max (c++-point-bol) lim) 'move)
-	      (not (within-string-p (point) opoint))))
+	      (not (c++-within-string-p (point) opoint))))
 	  (t (beginning-of-line)
 	     (skip-chars-forward " \t")
 	     (if (looking-at "#")
@@ -644,16 +641,16 @@ Returns nil if line starts inside a string, t if in a comment."
 		     (>= (car indent-stack) 0))
 		;; Line is on an existing nesting level.
 		;; Lines inside parens are handled specially.
-		(if (/= (char-after (car contain-stack)) ?{)
+		(if (/= (char-after (car contain-stack)) ?\{)
 		    (setq this-indent (car indent-stack))
 		  ;; Line is at statement level.
 		  ;; Is it a new statement?  Is it an else?
 		  ;; Find last non-comment character before this line
 		  (save-excursion
 		    (setq at-else (looking-at "else\\W"))
-		    (setq at-brace (= (following-char) ?{))
+		    (setq at-brace (= (following-char) ?\{))
 		    (c++-backward-to-noncomment opoint)
-		    (if (not (memq (preceding-char) '(nil ?\, ?\; ?} ?: ?{)))
+		    (if (not (memq (preceding-char) '(nil ?\, ?\; ?\} ?: ?\{)))
 			;; Preceding line did not end in comma or semi;
 			;; indent this line  c-continued-statement-offset
 			;; more than previous.
@@ -688,9 +685,9 @@ Returns nil if line starts inside a string, t if in a comment."
 		(setq this-indent (max 1 (+ this-indent c-label-offset))))
 	    (if (looking-at "friend[ \t]class[ \t]")
 		(setq this-indent (+ this-indent c++-friend-offset)))
-	    (if (= (following-char) ?})
+	    (if (= (following-char) ?\})
 		(setq this-indent (- this-indent c-indent-level)))
-	    (if (= (following-char) ?{)
+	    (if (= (following-char) ?\{)
 		(setq this-indent (+ this-indent c-brace-offset)))
 	    ;; Put chosen indentation into effect.
 	    (or (= (current-column) this-indent)
@@ -706,8 +703,10 @@ Returns nil if line starts inside a string, t if in a comment."
 		    (progn
 		      (indent-for-comment)
 		      (beginning-of-line))))))))))
-
+
-(defun fill-C-comment ()
+(defun fill-c++-comment ()
+  "Fill a comment contained in consecutive lines containing point.
+The fill lines remain a comment."
   (interactive)
   (save-excursion
     (let ((save fill-prefix))
@@ -726,28 +725,28 @@ Returns nil if line starts inside a string, t if in a comment."
       (delete-char -1)
       (setq fill-prefix save))))
 
-(defun point-bol ()
+(defun c++-point-bol ()
   "Returns the value of the point at the beginning of the current line."
   (save-excursion
     (beginning-of-line)
     (point)))
 
-(defun c++-insert-header ()
+;; (defun c++-insert-header ()
-  "Insert header denoting C++ code at top of buffer."
+;;   "Insert header denoting C++ code at top of buffer."
-  (interactive)
+;;   (interactive)
-  (save-excursion
+;;   (save-excursion
-    (goto-char (point-min))
+;;     (goto-char (point-min))
-    (insert "// "
+;;     (insert "// "
-	    "This may look like C code, but it is really "
+;; 	    "This may look like C code, but it is really "
-	    "-*- C++ -*-"
+;; 	    "-*- C++ -*-"
-	    "\n\n")))
+;; 	    "\n\n")))
 
-(defun within-string-p (point1 point2)
+(defun c++-within-string-p (point1 point2)
   "Returns true if number of double quotes between two points is odd."
   (let ((s (buffer-substring point1 point2)))
-    (not (zerop (mod (count-char-in-string ?\" s) 2)))))
+    (not (zerop (% (c++-count-char-in-string ?\" s) 2)))))
 
-(defun count-char-in-string (c s)
+(defun c++-count-char-in-string (c s)
   (let ((count 0)
 	(pos 0))
     (while (< pos (length s))
@@ -755,227 +754,147 @@ Returns nil if line starts inside a string, t if in a comment."
       (setq pos (1+ pos)))
     count))
 
-;;; This page covers "macroization;" making C++ parameterized types
+;; rms: This page is creeping featurism, and not worth having.
-;;; via macros.
 
-(defvar c++-default-macroize-column 78
-  "Place to insert backslashes.")
-
-(defun c++-macroize-region (from to arg)
-  "Insert backslashes at end of every line in region.  Useful for defining cpp
-macros.  If called with negative argument, will remove trailing backslashes,
-so that indentation will work right."
-  (interactive "r\np")
-  (save-excursion
-    (goto-char from)
-    (beginning-of-line 1)
-    (let ((line (count-lines (point-min) (point)))
-	  (to-line (save-excursion (goto-char to)
-				   (count-lines (point-min) (point)))))
-      (while (< line to-line)
-	(backslashify-current-line (> arg 0))
-	(next-line 1) (setq line (1+ line))))))
-
-(defun backslashify-current-line (doit)
-  (end-of-line 1)
-  (cond
-   (doit
-    ;; Note that "\\\\" is needed to get one backslash.
-    (if (not (save-excursion (forward-char -1) (looking-at "\\\\")))
-	(progn
-	  (if (>= (current-column) c++-default-macroize-column)
-	      (insert " \\")
-	    (while (<= (current-column) c++-default-macroize-column)
-	      (insert "\t") (end-of-line))
-	    (delete-char -1)
-	    (while (< (current-column) c++-default-macroize-column)
-	      (insert " ") (end-of-line))
-	    (insert "\\")))))
-   (t
-    (forward-char -1)
-    (if (looking-at "\\\\")
-	(progn (skip-chars-backward " \t")
-	       (kill-line))))))
-
-
-;;; This page covers commenting out multiple lines.
-
-(defun c++-comment-region ()
-  "Comment out all lines in a region between mark and current point.
-Inserts \"// \" (`comment-start') in front of each line."
-  (interactive)
-  (let* ((m      (if (eq (mark) nil) (error "Mark is not set!") (mark)))
-	 (start  (if (< (point) m) (point) m))
-	 (end    (if (> (point) m) (point) m))
-	 (mymark (copy-marker end)))
-    (save-excursion
-	(goto-char start)
-	(while (< (point) (marker-position mymark))
-	    (beginning-of-line)
-	    (insert comment-start)
-	    (beginning-of-line)
-	    (next-line 1)))))
-
-(defun c++-uncomment-region ()
-  "Uncomment all lines in region between mark and current point.
-Deletes the leading \"// \" (`comment-start') from each line, if any."
-  (interactive)
-  (let* ((m      (if (eq (mark) nil) (error "Mark is not set!") (mark)))
-	 (start  (if (< (point) m) (point) m))
-	 (end    (if (> (point) m) (point) m))
-	 (mymark (copy-marker end))
-	 (len    (length comment-start))
-	 (char   (string-to-char comment-start)))
-    (save-excursion
-	(goto-char start)
-	(while (< (point) (marker-position mymark))
-	    (beginning-of-line)
-	    (if (looking-at (concat " *" comment-start))
-		(progn
-		  (zap-to-char 1 char)
-		  (delete-char len)))
-	    (beginning-of-line)
-	    (next-line 1)))))
-
 ;;; Below are two regular expressions that attempt to match defuns
 ;;; "strongly" and "weakly."  The strong one almost reconstructs the
 ;;; grammar of C++; the weak one just figures anything id or curly on
 ;;; the left begins a defun.  The constant "c++-match-header-strongly"
 ;;; determines which to use; the default is the weak one.
 
-(defvar c++-match-header-strongly nil
+;; (defvar c++-match-header-strongly nil
-  "*If nil, use `c++-defun-header-weak' to identify beginning of definitions.
+;;   "*If nil, use `c++-defun-header-weak' to identify beginning of definitions.
-If non-nil, use `c++-defun-header-strong'.")
+;; If non-nil, use `c++-defun-header-strong'.")
-
+;; 
-(defvar c++-defun-header-strong-struct-equivs "\\(class\\|struct\\|enum\\)"
+;; (defvar c++-defun-header-strong-struct-equivs "\\(class\\|struct\\|enum\\)"
-  "Regexp to match names of structure declaration blocks in C++.")
+;;   "Regexp to match names of structure declaration blocks in C++.")
-
+;; 
-(defconst c++-defun-header-strong
+;; (defconst c++-defun-header-strong
-  (let*
+;;   (let*
-      (; valid identifiers
+;;       (; valid identifiers
-       ;; There's a real wierdness here -- if I switch the below
+;;        ;; There's a real wierdness here -- if I switch the below
-       (id "\\(\\w\\|_\\)+")
+;;        (id "\\(\\w\\|_\\)+")
-       ;; to be
+;;        ;; to be
-       ;; (id "\\(_\\|\\w\\)+")
+;;        ;; (id "\\(_\\|\\w\\)+")
-       ;; things no longer work right.  Try it and see!
+;;        ;; things no longer work right.  Try it and see!
-
+;; 
-       ; overloadable operators
+;;        ; overloadable operators
-       (op-sym1
+;;        (op-sym1
-	 "[---+*/%^&|~!=<>]\\|[---+*/%^&|<>=!]=\\|<<=?\\|>>=?")
+;; 	 "[---+*/%^&|~!=<>]\\|[---+*/%^&|<>=!]=\\|<<=?\\|>>=?")
-       (op-sym2
+;;        (op-sym2
-	 "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]")	 
+;; 	 "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]")	 
-       (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))
+;;        (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))
-       ; whitespace
+;;        ; whitespace
-       (middle "[^\\*]*\\(\\*+[^/\\*][^\\*]*\\)*")
+;;        (middle "[^\\*]*\\(\\*+[^/\\*][^\\*]*\\)*")
-       (c-comment (concat "/\\*" middle "\\*+/"))
+;;        (c-comment (concat "/\\*" middle "\\*+/"))
-       (wh (concat "\\(\\s \\|\n\\|//.*$\\|" c-comment "\\)"))
+;;        (wh (concat "\\(\\s \\|\n\\|//.*$\\|" c-comment "\\)"))
-       (wh-opt (concat wh "*"))
+;;        (wh-opt (concat wh "*"))
-       (wh-nec (concat wh "+"))
+;;        (wh-nec (concat wh "+"))
-       (oper (concat "\\(" "operator" "\\("
+;;        (oper (concat "\\(" "operator" "\\("
-		     wh-opt op-sym "\\|" wh-nec id "\\)" "\\)"))
+;; 		     wh-opt op-sym "\\|" wh-nec id "\\)" "\\)"))
-       (dcl-list "([^():]*)")
+;;        (dcl-list "([^():]*)")
-       (func-name (concat "\\(" oper "\\|" id "::" id "\\|" id "\\)"))
+;;        (func-name (concat "\\(" oper "\\|" id "::" id "\\|" id "\\)"))
-       (inits
+;;        (inits
-	 (concat "\\(:"
+;; 	 (concat "\\(:"
-		 "\\(" wh-opt id "(.*\\()" wh-opt "," "\\)\\)*"
+;; 		 "\\(" wh-opt id "(.*\\()" wh-opt "," "\\)\\)*"
-		 wh-opt id "(.*)" wh-opt "{"
+;; 		 wh-opt id "(.*)" wh-opt "{"
-		 "\\|" wh-opt "{\\)"))
+;; 		 "\\|" wh-opt "{\\)"))
-       (type-name (concat
+;;        (type-name (concat
-		    "\\(" c++-defun-header-strong-struct-equivs wh-nec "\\)?"
+;; 		    "\\(" c++-defun-header-strong-struct-equivs wh-nec "\\)?"
-		    id))
+;; 		    id))
-       (type (concat "\\(const" wh-nec "\\)?"
+;;        (type (concat "\\(const" wh-nec "\\)?"
-		     "\\(" type-name "\\|" type-name wh-opt "\\*+" "\\|"
+;; 		     "\\(" type-name "\\|" type-name wh-opt "\\*+" "\\|"
-		     type-name wh-opt "&" "\\)"))
+;; 		     type-name wh-opt "&" "\\)"))
-       (modifier "\\(inline\\|virtual\\|overload\\|auto\\|static\\)")
+;;        (modifier "\\(inline\\|virtual\\|overload\\|auto\\|static\\)")
-       (modifiers (concat "\\(" modifier wh-nec "\\)*"))
+;;        (modifiers (concat "\\(" modifier wh-nec "\\)*"))
-       (func-header
+;;        (func-header
-	 ;;     type               arg-dcl
+;; 	 ;;     type               arg-dcl
-	 (concat modifiers type wh-nec func-name wh-opt dcl-list wh-opt inits))
+;; 	 (concat modifiers type wh-nec func-name wh-opt dcl-list wh-opt inits))
-       (inherit (concat "\\(:" wh-opt "\\(public\\|private\\)?"
+;;        (inherit (concat "\\(:" wh-opt "\\(public\\|private\\)?"
-			wh-nec id "\\)"))
+;; 			wh-nec id "\\)"))
-       (cs-header (concat
+;;        (cs-header (concat
-		    c++-defun-header-strong-struct-equivs
+;; 		    c++-defun-header-strong-struct-equivs
-		    wh-nec id wh-opt inherit "?" wh-opt "{")))
+;; 		    wh-nec id wh-opt inherit "?" wh-opt "{")))
-    (concat "^\\(" func-header "\\|" cs-header "\\)"))
+;;     (concat "^\\(" func-header "\\|" cs-header "\\)"))
-  "Strongly-defined regexp to match beginning of structure or function def.")
+;;   "Strongly-defined regexp to match beginning of structure or function def.")
-
+;; 
-
+;; 
-;; This part has to do with recognizing defuns.
+;; ;; This part has to do with recognizing defuns.
-
+;; 
-;; The weak convention we will use is that a defun begins any time
+;; ;; The weak convention we will use is that a defun begins any time
-;; there is a left curly brace, or some identifier on the left margin,
+;; ;; there is a left curly brace, or some identifier on the left margin,
-;; followed by a left curly somewhere on the line.  (This will also
+;; ;; followed by a left curly somewhere on the line.  (This will also
-;; incorrectly match some continued strings, but this is after all
+;; ;; incorrectly match some continued strings, but this is after all
-;; just a weak heuristic.)  Suggestions for improvement (short of the
+;; ;; just a weak heuristic.)  Suggestions for improvement (short of the
-;; strong scheme shown above) are welcomed.
+;; ;; strong scheme shown above) are welcomed.
-
+;; 
-(defconst c++-defun-header-weak "^{\\|^[_a-zA-Z].*{"
+;; (defconst c++-defun-header-weak "^{\\|^[_a-zA-Z].*{"
-  "Weakly-defined regexp to match beginning of structure or function def.")
+;;   "Weakly-defined regexp to match beginning of structure or function def.")
-
+;; 
-(defun c++-beginning-of-defun (arg)
+;; (defun c++-beginning-of-defun (arg)
-  (interactive "p")
+;;   (interactive "p")
-  (let ((c++-defun-header (if c++-match-header-strongly
+;;   (let ((c++-defun-header (if c++-match-header-strongly
-			      c++-defun-header-strong
+;; 			      c++-defun-header-strong
-			    c++-defun-header-weak)))
+;; 			    c++-defun-header-weak)))
-    (cond ((or (= arg 0) (and (> arg 0) (bobp))) nil)
+;;     (cond ((or (= arg 0) (and (> arg 0) (bobp))) nil)
-	  ((and (not (looking-at c++-defun-header))
+;; 	  ((and (not (looking-at c++-defun-header))
-		(let ((curr-pos (point))
+;; 		(let ((curr-pos (point))
-		      (open-pos (if (search-forward "{" nil 'move)
+;; 		      (open-pos (if (search-forward "{" nil 'move)
-				    (point)))
+;; 				    (point)))
-		      (beg-pos
+;; 		      (beg-pos
-			(if (re-search-backward c++-defun-header nil 'move)
+;; 			(if (re-search-backward c++-defun-header nil 'move)
-			    (match-beginning 0))))
+;; 			    (match-beginning 0))))
-		  (if (and open-pos beg-pos
+;; 		  (if (and open-pos beg-pos
-			   (< beg-pos curr-pos)
+;; 			   (< beg-pos curr-pos)
-			   (> open-pos curr-pos))
+;; 			   (> open-pos curr-pos))
-		      (progn
+;; 		      (progn
-			(goto-char beg-pos)
+;; 			(goto-char beg-pos)
-			(if (= arg 1) t nil));; Are we done?
+;; 			(if (= arg 1) t nil));; Are we done?
-		    (goto-char curr-pos)
+;; 		    (goto-char curr-pos)
-		    nil))))
+;; 		    nil))))
-	  (t
+;; 	  (t
-	    (if (and (looking-at c++-defun-header) (not (bobp)))
+;; 	    (if (and (looking-at c++-defun-header) (not (bobp)))
-		(forward-char (if (< arg 0) 1 -1)))
+;; 		(forward-char (if (< arg 0) 1 -1)))
-	    (and (re-search-backward c++-defun-header nil 'move (or arg 1))
+;; 	    (and (re-search-backward c++-defun-header nil 'move (or arg 1))
-		 (goto-char (match-beginning 0)))))))
+;; 		 (goto-char (match-beginning 0)))))))
-
+;; 
-
+;; 
-(defun c++-end-of-defun (arg)
+;; (defun c++-end-of-defun (arg)
-  (interactive "p")
+;;   (interactive "p")
-  (let ((c++-defun-header (if c++-match-header-strongly
+;;   (let ((c++-defun-header (if c++-match-header-strongly
-			      c++-defun-header-strong
+;; 			      c++-defun-header-strong
-			    c++-defun-header-weak)))
+;; 			    c++-defun-header-weak)))
-    (if (and (eobp) (> arg 0))
+;;     (if (and (eobp) (> arg 0))
-	nil
+;; 	nil
-      (if (and (> arg 0) (looking-at c++-defun-header)) (forward-char 1))
+;;       (if (and (> arg 0) (looking-at c++-defun-header)) (forward-char 1))
-      (let ((pos (point)))
+;;       (let ((pos (point)))
-	(c++-beginning-of-defun 
+;; 	(c++-beginning-of-defun 
-	  (if (< arg 0)
+;; 	  (if (< arg 0)
-	      (- (- arg (if (eobp) 0 1)))
+;; 	      (- (- arg (if (eobp) 0 1)))
-	    arg))
+;; 	    arg))
-	(if (and (< arg 0) (bobp))
+;; 	(if (and (< arg 0) (bobp))
-	    t
+;; 	    t
-	  (if (re-search-forward c++-defun-header nil 'move)
+;; 	  (if (re-search-forward c++-defun-header nil 'move)
-	      (progn (forward-char -1)
+;; 	      (progn (forward-char -1)
-		     (forward-sexp)
+;; 		     (forward-sexp)
-		     (beginning-of-line 2)))
+;; 		     (beginning-of-line 2)))
-	  (if (and (= pos (point)) 
+;; 	  (if (and (= pos (point)) 
-		   (re-search-forward c++-defun-header nil 'move))
+;; 		   (re-search-forward c++-defun-header nil 'move))
-	      (c++-end-of-defun 1))))
+;; 	      (c++-end-of-defun 1))))
-      t)))
+;;       t)))
-
+;; 
-(defun c++-indent-defun ()
+;; (defun c++-indent-defun ()
-  "Indents the current function definition, struct or class declaration."
+;;   "Indents the current function definition, struct or class declaration."
-  (interactive)
+;;   (interactive)
-  (let ((restore (point)))
+;;   (let ((restore (point)))
-    (c++-end-of-defun 1)
+;;     (c++-end-of-defun 1)
-    (beginning-of-line 1)
+;;     (beginning-of-line 1)
-    (let ((end (point)))
+;;     (let ((end (point)))
-      (c++-beginning-of-defun 1)
+;;       (c++-beginning-of-defun 1)
-      (while (<= (point) end)
+;;       (while (<= (point) end)
-	(c++-indent-line)
+;; 	(c++-indent-line)
-	(next-line 1)
+;; 	(next-line 1)
-	(beginning-of-line 1)))
+;; 	(beginning-of-line 1)))
-    (goto-char restore)))
+;;     (goto-char restore)))
 
 ;;; c++-mode.el ends here

lisp/progmodes/etags.el

@@ -1,11 +1,11 @@
 ;; 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.
 
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Keywords: tools
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/progmodes/hideif.el

@@ -1,13 +1,12 @@
 ;;; hide-ifdef-mode.el --- hides selected code within ifdef.
 
+;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte
+
 ;; Author: Dan LaLiberte <liberte@a.cs.uiuc.edu>
-;; Last-Modified: 06 Mar 1991
 ;; Keywords: c
 
 ;;; $Header: hide-ifdef-mode.el,v 1.7 88/02/16 03:12:58 liberte Exp $
 
-;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte
-
 ;;; Commentary:
 
 ;;; Written by Brian Marick, at Gould, Computer Systems Division, Urbana IL.

lisp/progmodes/inf-lisp.el

@@ -1,11 +1,10 @@
 ;;; inf-lisp.el --- an inferior-lisp mode
 
-;; Author: Olin Shivers <shivers@cs.cmu.edu>
-;; Last-Modified: 16 Jul 1992
-;; Keyword: processes, lisp
-
 ;;; Copyright Olin Shivers (1988).
 
+;; Author: Olin Shivers <shivers@cs.cmu.edu>
+;; Keyword: processes, lisp
+
 ;;; This file is part of GNU Emacs.
 
 ;;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/progmodes/perl-mode.el

@@ -1,12 +1,12 @@
 ;;; perl-mode.el --- Perl code editing commands for GNU Emacs
 
+;; Copyright (C) 1990  William F. Mann
+
 ;; Author: William F. Mann
 ;; Maintainer: FSF
-;; Last-Modified: 21 Dec 1991
 ;; Adapted-By: ESR
 ;; Keywords: languages
 
-;;   Copyright (C) 1990  William F. Mann
 ;; Adapted from C code editing commands 'c-mode.el', Copyright 1987 by the
 ;; Free Software Foundation, under terms of its General Public License.
 

lisp/progmodes/scheme.el

@@ -1,13 +1,12 @@
 ;;; scheme.el --- Scheme mode, and its idiosyncratic commands.
 
+;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
+
 ;; Author: Bill Rozas <jinz@prep.ai.mit.edu>
-;; Last-Modified: 16 Mar 1992
 ;; Keywords: languages, lisp
 
 ;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
 
-;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/replace.el

@@ -1,10 +1,9 @@
 ;;; replace.el --- replace commands for Emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 09 Jul 1992
-
 ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 92 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/reposition.el

@@ -1,10 +1,9 @@
 ;;; reposition.el --- center a Lisp function or comment on the screen
 
+;; Copyright (C) 1991 Free Software Foundation, Inc.
+
 ;; 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.
 

lisp/simple.el

@@ -6,7 +6,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 +18,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 open-line (arg)
   "Insert a newline and leave point before it.  If there is a fill
@@ -237,10 +238,17 @@ Don't use this in Lisp programs!
 			   (/ (buffer-size) 10))
 		      (/ (* (buffer-size) (prefix-numeric-value arg)) 10)))
 	       (point-max)))
+  ;; If we went to a place in the middle of the buffer,
+  ;; adjust it to the beginning of a line.
   (if arg (forward-line 1)
-    ;; Scroll to put point near bottom--show nearly maximum amount of text,
+    ;; If the end of the buffer is not already on the screen,
-    ;; but leave room to add something.
+    ;; then scroll specially to put it near, but not at, the bottom.
-    (recenter -3)))
+    (if (let ((old-point (point)))
+	  (save-excursion
+		    (goto-char (window-start))
+		    (vertical-motion (window-height))
+		    (< (point) old-point)))
+	(recenter -3))))
 
 (defun mark-whole-buffer ()
   "Put point at beginning and mark at end of buffer.
@@ -854,20 +862,21 @@ system cut and paste."
   "Save the region as if killed, but don't kill it."
   (interactive "r")
   (copy-region-as-kill beg end)
-  (save-excursion
+  (if (interactive-p)
-    (let ((other-end (if (= (point) beg) end beg)))
+      (save-excursion
-      (if (pos-visible-in-window-p other-end (selected-window))
+	(let ((other-end (if (= (point) beg) end beg)))
-	  (progn
+	  (if (pos-visible-in-window-p other-end (selected-window))
-	    (goto-char other-end)
+	      (progn
-	    (sit-for 1))
+		(goto-char other-end)
-	(let* ((killed-text (current-kill 0))
+		(sit-for 1))
-	       (message-len (min (length killed-text) 40)))
+	    (let* ((killed-text (current-kill 0))
-	  (message
+		   (message-len (min (length killed-text) 40)))
-	   (if (= (point) beg)
+	      (if (= (point) beg)
-	       (format "Killed until \"%s\""
+		  ;; Don't say "killed"; that is misleading.
-		       (substring killed-text (- message-len)))
+		  (message "Saved text until \"%s\""
-	     (format "Killed from \"%s\""
+			  (substring killed-text (- message-len)))
-		     (substring killed-text 0 message-len)))))))))
+		(message "Saved text from \"%s\""
+			(substring killed-text 0 message-len)))))))))
 
 (defun append-next-kill ()
   "Cause following command, if kill, to append to previous kill."
@@ -1701,7 +1710,10 @@ when close-paren is inserted.")
 (defun set-variable (var val)
   "Set VARIABLE to VALUE.  VALUE is a Lisp object.
 When using this interactively, supply a Lisp expression for VALUE.
-If you want VALUE to be a string, you must surround it with doublequotes."
+If you want VALUE to be a string, you must surround it with doublequotes.
+
+If VARIABLE has a `variable-interactive' property, that is used as if
+it were the arg to `interactive' (which see) to interactively read the value."
   (interactive
    (let* ((var (read-variable "Set variable: "))
 	  (minibuffer-help-form
@@ -1720,89 +1732,14 @@ If you want VALUE to be a string, you must surround it with doublequotes."
 		      (prin1 (symbol-value var))))
 		nil)))))
      (list var
-	   (eval-minibuffer (format "Set %s to value: " var)))))
+	   (let ((prop (get var 'variable-interactive)))
+	     (if prop
+		 ;; Use VAR's `variable-interactive' property
+		 ;; as an interactive spec for prompting.
+		 (call-interactively (list 'lambda '(arg)
+					   (list 'interactive prop)
+					   'arg))
+	       (eval-minibuffer (format "Set %s to value: " var)))))))
   (set var val))
-
-;These commands are defined in editfns.c
-;but they are not assigned to keys there.
-(put 'narrow-to-region 'disabled t)
-(define-key ctl-x-map "n" 'narrow-to-region)
-(define-key ctl-x-map "w" 'widen)
-
-(define-key global-map "\C-j" 'newline-and-indent)
-(define-key global-map "\C-m" 'newline)
-(define-key global-map "\C-o" 'open-line)
-(define-key esc-map "\C-o" 'split-line)
-(define-key global-map "\C-q" 'quoted-insert)
-(define-key esc-map "^" 'delete-indentation)
-(define-key esc-map "\\" 'delete-horizontal-space)
-(define-key esc-map "m" 'back-to-indentation)
-(define-key ctl-x-map "\C-o" 'delete-blank-lines)
-(define-key esc-map " " 'just-one-space)
-(define-key esc-map "z" 'zap-to-char)
-(define-key esc-map "=" 'count-lines-region)
-(define-key ctl-x-map "=" 'what-cursor-position)
-(define-key esc-map "\e" 'eval-expression)
-(define-key ctl-x-map "\e" 'repeat-complex-command)
-(define-key ctl-x-map "u" 'advertised-undo)
-(define-key global-map "\C-_" 'undo)
-(define-key esc-map "!" 'shell-command)
-(define-key esc-map "|" 'shell-command-on-region)
-
-(define-key global-map "\C-u" 'universal-argument)
-(let ((i ?0))
-  (while (<= i ?9)
-    (define-key esc-map (char-to-string i) 'digit-argument)
-    (setq i (1+ i))))
-(define-key esc-map "-" 'negative-argument)
-
-(define-key global-map "\C-k" 'kill-line)
-(define-key global-map "\C-w" 'kill-region)
-(define-key esc-map "w" 'kill-ring-save)
-(define-key esc-map "\C-w" 'append-next-kill)
-(define-key global-map "\C-y" 'yank)
-(define-key esc-map "y" 'yank-pop)
-
-(define-key ctl-x-map "a" 'append-to-buffer)
-
-(define-key global-map "\C-@" 'set-mark-command)
-(define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
-
-(define-key global-map "\C-n" 'next-line)
-(define-key global-map "\C-p" 'previous-line)
-(define-key ctl-x-map "\C-n" 'set-goal-column)
-
-(define-key global-map [up] 'previous-line)
-(define-key global-map [down] 'next-line)
-(define-key global-map [left] 'backward-char)
-(define-key global-map [right] 'forward-char)
-
-(define-key global-map "\C-t" 'transpose-chars)
-(define-key esc-map "t" 'transpose-words)
-(define-key esc-map "\C-t" 'transpose-sexps)
-(define-key ctl-x-map "\C-t" 'transpose-lines)
-
-(define-key esc-map ";" 'indent-for-comment)
-(define-key esc-map "j" 'indent-new-comment-line)
-(define-key esc-map "\C-j" 'indent-new-comment-line)
-(define-key ctl-x-map ";" 'set-comment-column)
-(define-key ctl-x-map "f" 'set-fill-column)
-(define-key ctl-x-map "$" 'set-selective-display)
-
-(define-key esc-map "@" 'mark-word)
-(define-key esc-map "f" 'forward-word)
-(define-key esc-map "b" 'backward-word)
-(define-key esc-map "d" 'kill-word)
-(define-key esc-map "\177" 'backward-kill-word)
-
-(define-key esc-map "<" 'beginning-of-buffer)
-(define-key esc-map ">" 'end-of-buffer)
-(define-key ctl-x-map "h" 'mark-whole-buffer)
-(define-key esc-map "\\" 'delete-horizontal-space)
-
-(fset 'mode-specific-command-prefix (make-sparse-keymap))
-(defconst mode-specific-map (symbol-function 'mode-specific-command-prefix)
-  "Keymap for characters following C-c.")
-(define-key global-map "\C-c" 'mode-specific-command-prefix)
 
 ;;; simple.el ends here

lisp/textmodes/fill.el

@@ -1,11 +1,9 @@
 ;;; fill.el --- fill commands for Emacs
 
-;; Maintainer: FSF
-;; Last-Modified: 24 Jun 1992
-;; Keywords: wp
-
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
+;; Keywords: wp
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/textmodes/page.el

@@ -1,10 +1,9 @@
 ;;; page.el --- page motion commands for emacs.
 
-;; Maintainer: FSF
-;; Last-Modified: 01 May 1992
-
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify

lisp/textmodes/picture.el

@@ -1,10 +1,9 @@
 ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
 
+;; Copyright (C) 1985 Free Software Foundation, Inc.
+
 ;; Author: K. Shane Hartman
 ;; Maintainer: FSF
-;; Last-Modified: 16 Mar 1992
-
-;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.