;;; 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.
;; 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,
;; 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 change-log-default-name nil
(defun change-log-mode ()
"Major mode for editting change logs; like Indented Text Mode.
+Prevents numeric backups and sets `left-margin' to 8 and `fill-column'
+to 74.
New log entries are usually made with \\[add-change-log-entry]."
(interactive)
(kill-all-local-variables)
(indented-text-mode)
(setq major-mode 'change-log-mode)
(setq mode-name "Change Log")
+ (setq left-margin 8)
+ (setq fill-column 74)
;; Let each entry behave as one paragraph:
(set (make-local-variable 'paragraph-start) "^\\s *$\\|^^L")
(set (make-local-variable 'paragraph-separate) "^\\s *$\\|^^L\\|^\\sw")
t)
(buffer-substring (match-beginning 1)
(match-end 1))))))))
+
+;;; add-log.el ends here
;; Author: Joe Wells <jbw@bigbird.bu.edu>
;; Last-Modified: 5 May 1989
+;; Keyword: help
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; Author David M. Brown
;; Maintainer: FSF
;; Last-Modified: 30 Jan 1991
+;; Keyword: extensions
;; Copyright (C) 1987 Free Software Foundation, Inc.
-;;; -*- Mode:Emacs-Lisp -*-
-
-;; Runtime support for the new optimizing byte compiler.
-;; By Jamie Zawinski <jwz@lucid.com>.
-;; Last Modified: 27-jul-91.
-;;
-;; The code in this file should always be loaded, because it defines things
-;; like "defsubst" which should work interpreted as well. The code in
-;; bytecomp.el and byte-optimize.el can be loaded as needed.
-;;
-;; This should be loaded by loadup.el or startup.el. If you can't modify
-;; those files, load this from your .emacs file. But if you are using
-;; emacs18, this file must be loaded before any .elc files which were
-;; generated by the new compiler without emacs18 compatibility turned on.
-;; If this file is loaded, certain emacs19 binaries will run in emacs18.
-;; Meditate on the meanings of byte-compile-generate-emacs19-bytecodes and
-;; byte-compile-emacs18-compatibility.
-
-
-;; 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)
-;; 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.
-
-
-;; emacs-18 compatibility.
-
-(if (fboundp 'make-byte-code)
- nil
- ;;
- ;; To avoid compiler bootstrapping problems, this temporary uncompiled
- ;; make-byte-code is needed to load the compiled one. Ignore the warnings.
- (fset 'make-byte-code
- '(lambda (arglist bytestring constants stackdepth doc)
- (list 'lambda arglist doc
- (list 'byte-code bytestring constants stackdepth))))
- ;;
- ;; Now get a compiled version.
- (defun make-byte-code (arglist bytestring constants stackdepth
- &optional doc &rest interactive)
- "For compatibility with Emacs19 ``.elc'' files."
- (nconc (list 'lambda arglist)
- ;; #### Removed the (stringp doc) for speed. Because the V19
- ;; make-byte-code depends on the args being correct, it won't
- ;; help to make a smarter version for V18 alone.
- ;; Btw, it should have been (or (stringp doc) (natnump doc)).
- (if doc (list doc))
- (if interactive
- (list (cons 'interactive (if (car interactive) interactive))))
- (list (list 'byte-code bytestring constants stackdepth)))))
-
-
-;;; interface to selectively inlining functions.
-;;; This only happens when source-code optimization is turned on.
-
-;; Redefined in byte-optimize.el.
-(fset 'inline 'progn)
-(put 'inline 'lisp-indent-hook 0)
-
-
-;;; Interface to inline functions.
-
-(defmacro proclaim-inline (&rest fns)
- "Cause the named functions to be open-coded when called from compiled code.
-They will only be compiled open-coded when byte-compile-optimize is true."
- (cons 'eval-and-compile
- (mapcar '(lambda (x)
- (or (memq (get x 'byte-optimizer)
- '(nil byte-compile-inline-expand))
- (error
- "%s already has a byte-optimizer, can't make it inline"
- x))
- (list 'put (list 'quote x)
- ''byte-optimizer ''byte-compile-inline-expand))
- fns)))
-
-
-(defmacro proclaim-notinline (&rest fns)
- "Cause the named functions to no longer be open-coded."
- (cons 'eval-and-compile
- (mapcar '(lambda (x)
- (if (eq (get x 'byte-optimizer) 'byte-compile-inline-expand)
- (put x 'byte-optimizer nil))
- (list 'if (list 'eq (list 'get (list 'quote x) ''byte-optimizer)
- ''byte-compile-inline-expand)
- (list 'put x ''byte-optimizer nil)))
- fns)))
-
-;; This has a special byte-hunk-handler in bytecomp.el.
-(defmacro defsubst (name arglist &rest body)
- "Same syntax as defun, but the defined function will always be open-coded,
-so long as byte-compile-optimize is true."
- (list 'prog1
- (cons 'defun (cons name (cons arglist body)))
- (list 'proclaim-inline name)))
-
-(defun make-obsolete (fn new)
- "Make the byte-compiler warn that FUNCTION is obsolete and NEW should be
-used instead. If NEW is a string, that is the `use instead' message."
- (interactive "aMake function obsolete: \nxObsoletion replacement: ")
- (let ((handler (get fn 'byte-compile)))
- (if (eq 'byte-compile-obsolete handler)
- (setcar (get fn 'byte-obsolete-info) new)
- (put fn 'byte-obsolete-info (cons new handler))
- (put fn 'byte-compile 'byte-compile-obsolete)))
- fn)
-
-(put 'dont-compile 'lisp-indent-hook 0)
-(defmacro dont-compile (&rest body)
- "Like progn, but the body will always run interpreted (not compiled)."
- (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body)))))
-
-\f
-;;; interface to evaluating things at compile time and/or load time
-;;; these macro must come after any uses of them in this file, as their
-;;; definition in the file overrides the magic definitions on the
-;;; byte-compile-macro-environment.
-
-(put 'eval-when-compile 'lisp-indent-hook 0)
-(defmacro eval-when-compile (&rest body)
- "Like progn, but evaluates the body at compile-time. The result of the
-body appears to the compiler as a quoted constant."
- ;; Not necessary because we have it in b-c-initial-macro-environment
- ;; (list 'quote (eval (cons 'progn body)))
- (cons 'progn body))
-
-(put 'eval-and-compile 'lisp-indent-hook 0)
-(defmacro eval-and-compile (&rest body)
- "Like progn, but evaluates the body at compile-time as well as at load-time."
- ;; Remember, it's magic.
- (cons 'progn body))
-
-\f
-;;; Interface to file-local byte-compiler parameters.
-;;; Redefined in bytecomp.el.
-
-(put 'byte-compiler-options 'lisp-indent-hook 0)
-(defmacro byte-compiler-options (&rest args)
- "Set some compilation-parameters for this file. This will affect only the
-file in which it appears; this does nothing when evaluated, and when loaded
-from a .el file.
-
-Each argument to this macro must be a list of a key and a value.
-
- Keys: Values: Corresponding variable:
-
- verbose t, nil byte-compile-verbose
- optimize t, nil, source, byte byte-compile-optimize
- warnings list of warnings byte-compile-warnings
- Legal elements: (callargs redefine free-vars unresolved)
- file-format emacs18, emacs19 byte-compile-emacs18-compatibility
- new-bytecodes t, nil byte-compile-generate-emacs19-bytecodes
-
-For example, this might appear at the top of a source file:
-
- (byte-compiler-options
- (optimize t)
- (warnings (- free-vars)) ; Don't warn about free variables
- (file-format emacs19))"
- nil)
+;; byte-run.el --- byte-compiler support for inlining
+
+;; 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
+;; 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:
+
+;;; interface to selectively inlining functions.
+;;; This only happens when source-code optimization is turned on.
+
+;;; Code:
+
+;; Redefined in byte-optimize.el.
+;; This is not documented--it's not clear that we should promote it.
+(fset 'inline 'progn)
+(put 'inline 'lisp-indent-hook 0)
+
+
+;;; Interface to inline functions.
+
+;; (defmacro proclaim-inline (&rest fns)
+;; "Cause the named functions to be open-coded when called from compiled code.
+;; They will only be compiled open-coded when byte-compile-optimize is true."
+;; (cons 'eval-and-compile
+;; (mapcar '(lambda (x)
+;; (or (memq (get x 'byte-optimizer)
+;; '(nil byte-compile-inline-expand))
+;; (error
+;; "%s already has a byte-optimizer, can't make it inline"
+;; x))
+;; (list 'put (list 'quote x)
+;; ''byte-optimizer ''byte-compile-inline-expand))
+;; fns)))
+
+;; (defmacro proclaim-notinline (&rest fns)
+;; "Cause the named functions to no longer be open-coded."
+;; (cons 'eval-and-compile
+;; (mapcar '(lambda (x)
+;; (if (eq (get x 'byte-optimizer) 'byte-compile-inline-expand)
+;; (put x 'byte-optimizer nil))
+;; (list 'if (list 'eq (list 'get (list 'quote x) ''byte-optimizer)
+;; ''byte-compile-inline-expand)
+;; (list 'put x ''byte-optimizer nil)))
+;; fns)))
+
+;; This has a special byte-hunk-handler in bytecomp.el.
+(defmacro defsubst (name arglist &rest body)
+ "Define an inline function. The syntax is just like that of `defun'."
+ (or (memq (get name 'byte-optimizer)
+ '(nil byte-compile-inline-expand))
+ (error "`%s' is a primitive" name))
+ (list 'prog1
+ (cons 'defun (cons name (cons arglist body)))
+ (list 'eval-and-compile
+ (list 'put (list 'quote name)
+ ''byte-optimizer ''byte-compile-inline-expand))))
+
+(defun make-obsolete (fn new)
+ "Make the byte-compiler warn that FUNCTION is obsolete.
+The warning will say that NEW should be used instead.
+If NEW is a string, that is the `use instead' message."
+ (interactive "aMake function obsolete: \nxObsoletion replacement: ")
+ (let ((handler (get fn 'byte-compile)))
+ (if (eq 'byte-compile-obsolete handler)
+ (setcar (get fn 'byte-obsolete-info) new)
+ (put fn 'byte-obsolete-info (cons new handler))
+ (put fn 'byte-compile 'byte-compile-obsolete)))
+ fn)
+
+(put 'dont-compile 'lisp-indent-hook 0)
+(defmacro dont-compile (&rest body)
+ "Like `progn', but the body always runs interpreted (not compiled)."
+ (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body)))))
+
+\f
+;;; interface to evaluating things at compile time and/or load time
+;;; these macro must come after any uses of them in this file, as their
+;;; definition in the file overrides the magic definitions on the
+;;; byte-compile-macro-environment.
+
+(put 'eval-when-compile 'lisp-indent-hook 0)
+(defmacro eval-when-compile (&rest body)
+ "Like `progn', but evaluates the body at compile time.
+The result of the body appears to the compiler as a quoted constant."
+ ;; Not necessary because we have it in b-c-initial-macro-environment
+ ;; (list 'quote (eval (cons 'progn body)))
+ (cons 'progn body))
+
+(put 'eval-and-compile 'lisp-indent-hook 0)
+(defmacro eval-and-compile (&rest body)
+ "Like `progn', but evaluates the body at compile time and at load time."
+ ;; Remember, it's magic.
+ (cons 'progn body))
+
+\f
+;;; I nuked this because it's not a good idea for users to think of using it.
+;;; These options are a matter of installation preference, and have nothing to
+;;; with particular source files; it's a mistake to suggest to users
+;;; they should associate these with particular source files.
+;;; There is hardly any reason to change these parameters, anyway.
+;;; --rms.
+
+;; (put 'byte-compiler-options 'lisp-indent-hook 0)
+;; (defmacro byte-compiler-options (&rest args)
+;; "Set some compilation-parameters for this file. This will affect only the
+;; file in which it appears; this does nothing when evaluated, and when loaded
+;; from a .el file.
+;;
+;; Each argument to this macro must be a list of a key and a value.
+;;
+;; Keys: Values: Corresponding variable:
+;;
+;; verbose t, nil byte-compile-verbose
+;; optimize t, nil, source, byte byte-compile-optimize
+;; warnings list of warnings byte-compile-warnings
+;; Legal elements: (callargs redefine free-vars unresolved)
+;; file-format emacs18, emacs19 byte-compile-compatibility
+;;
+;; For example, this might appear at the top of a source file:
+;;
+;; (byte-compiler-options
+;; (optimize t)
+;; (warnings (- free-vars)) ; Don't warn about free variables
+;; (file-format emacs19))"
+;; nil)
+
+;;; byte-run.el ends here
;;; calendar.el --- Calendar functions.
+
+;; 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.
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
+;;; Commentary:
+
;; This collection of functions implements a calendar window. It generates
;; generates a calendar for the current month, together with the previous and
;; coming months, or for any other three-month period. The calendar can be
;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990),
;; pages 899-928.
-(defconst calendar-version "Version 4.02, released June 14, 1992")
+;;; Code:
(defvar view-diary-entries-initially nil
"*If T, the diary entries for the current date will be displayed on entry.
(if today-visible today (list displayed-month 1 displayed-year)))
(set-buffer-modified-p nil)
(or (one-window-p t)
- (/= (screen-width) (window-width))
+ (/= (frame-width) (window-width))
(shrink-window (- (window-height) 9)))
(sit-for 0)
(and mark-holidays-in-calendar
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Last-Modified: 14 Jul 1992
+;; Keywords: calendar
;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; Author: Olin Shivers <olin.shivers@cs.cmu.edu>
;; Last-Modified: 16 Mar 1992
+;; Keyword: processes, lisp
;;; Copyright Olin Shivers (1988)
;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
;; Maintainer: Olin Shivers <shivers@cs.cmu.edu>
;; Last-Modified: 16 Jul 1992
;; Version: 2.03
+;; Keyword: estensions, processes
;;; Copyright Olin Shivers (1988).
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Last-Modified: 30 Jun 1992
+;; Keyword: calendar
;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Created: 27 Jan 1989
;; Last-Modified: 21 Dec 1992
+;; Keyword: unix, tools
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
+;; Keywords: help, extensions
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 09 Jun 1992
+;; Keywords: extensions
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Last-Modified: 24 Jun 1992
+;; Keyword: internal
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;;
;; Author: Dick King (king@kestrel).
;; Last-Modified: 16 Mar 1992
+;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Author: Richard Mlynark <mly@eddie.mit.edu>
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: lisp, tools
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Written by Richard Mlynarik July 1987
-;; cus-print.el -- handles print-level and print-circle.
+;; cust-print.el -- handles print-level and print-circle.
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; Version: 1.0
;; Last-Modified: 17 Mar 1992
;; Adapted-By: ESR
+;; Keyword: extensions
;; Copyright (C) 1992 Free Software Foundation, Inc.
(uninstall-custom-print-funcs)
)
-;;; cus-print.el ends here
+;;; cust-print.el ends here
;; Maintainer: FSF
;; Last-Modified: 08 Jan 1992
+;; Keyword: lisp, tools
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
-;;; Disassembler for compiled Emacs Lisp code
+;;; disass.el --- disassembler for compiled Emacs Lisp code
+
+;; Author: Doug Cutting <doug@csli.stanford.edu>
+;; Jamie Zawinski <jwz@lucid.com>
+;; Maintainer: Jamie Zawinski <jwz@lucid.com>
+;; Last-Modified: 22 Oct 91
+;; Keyword: internal
+
;;; Copyright (C) 1986, 1991 Free Software Foundation, Inc.
-;;; Original version by Doug Cutting (doug@csli.stanford.edu)
-;;; Substantially modified by Jamie Zawinski <jwz@lucid.com> for
-;;; the new lapcode-based byte compiler.
-;;; Last modified 22-oct-91.
;; This file is part of GNU Emacs.
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; Commentary:
+
+;;; Original version by Doug Cutting (doug@csli.stanford.edu)
+;;; Substantially modified by Jamie Zawinski <jwz@lucid.com> for
+;;; the new lapcode-based byte compiler.
+
+;;; Code:
;;; The variable byte-code-vector is defined by the new bytecomp.el.
;;; The function byte-decompile-lapcode is defined in byte-opt.el.
(insert "\n"))
(setq lap (cdr lap)))))
nil)
+
+;;; disass.el ends here
;; Author: Bill Rosenblatt
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
+;; Keywords: extensions
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1991
+;; Keywords: help
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 03 Jun 1992
+;; Keywords: lisp, languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 12 Mar 1992
+;; Keyword: lisp, languages
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;;; ring.el --- handle rings of marks
+;; Maintainer: FSF
+;; Last-Modified: 22 Apr 1991
+;; Keywords: extensions
+
;; 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,
;; 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 code defines a ring data structure. A ring is a
;;; (hd-index tl-index . vector)
;;; list. You can insert to, remove from, and rotate a ring. When the ring
;;; These functions are used by the input history mechanism, but they can
;;; be used for other purposes as well.
+;;; Code:
+
(provide 'history)
(defun ring-p (x)
;; Maintainer: FSF
;; Created: 27 Aug 1986
;; Last-Modified: 09 May 1991
+;; Keywords: emulations
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; It started from public domain code by Mike Clarkson
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
+;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; 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 $")
;; Maintainer: FSF
;; Last-Modified: 03 Jun 1992
;; Adapted-By: ESR
+;; Keywords: hardware
;;; Copyright (C) 1990 Free Software Foundation, Inc.
;;; Copyright (C) 1991 Kevin Gallagher
;; Maintainer: FSF
;; Last-Modified: 09 Jul 92
+;; Keywords: internal
;;;; Copyright (C) 1990, 1992 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 $
;; 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 $
;; 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 $
;; 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 $
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: emulations
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 31 Oct 1989
+;; Keywords: internal
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 30 Jun 1992
+;; Keywords: help, internal
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 31 Oct 1989
+;; Keywords: internal
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 30 Jun 1992
+;; Keywords: help
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: help
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 13 May 1991
+;; Keyord: languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 14 Jul 1992
+;; Keywords: internal
;; This is loaded into a bare Emacs to make a dumpable one.
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 19 Apr 1992
+;; Keywords: unix
;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
+;; Keywords: mail, news
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; 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.
;; Maintainer: FSF
;; Last-Modified: 01 Jun 1992
+;; Keywords: mail
;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Created: 13 Jan 1986
;; Last-Modified: 30 May 1992
+;; Keywords: mail
;; This is in the public domain
;; since Delp distributed it without a copyright notice in 1986.
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: help
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 21 Dec 1991
+;; Keywords: unix
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Last-Modified: 14 Mar 1992
+;; Keywords: lisp, extensions
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;;
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 05 Apr 1991
+;; Keywords: languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; 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 $")
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
+;; Keywords: mail, news
;; $Header: mhspool.el,v 1.5 90/03/23 13:25:23 umerin Locked $
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 31 Oct 1989
+;; Keywords: languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 31 Oct 1989
+;; Keywords: languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Author: Kyle Jones <talos!kjones@uunet.uu.net>
;; Last-Modified: 16 Mar 1992
+;; Keyword: games
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Last-Modified: 20 May 1988
+;; Keywords: games
(defun protect-innocence-hook ()
(if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
;;; awk-mode.el --- AWK code editing commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+;; Keyword: unix, languages
+
;; 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,
;; 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 awk-mode-syntax-table nil
"Syntax table in use in Awk-mode buffers.")
;; Author: Roland McGrath <roland@prep.ai.mit.edu>
;; Maintainer: FSF
;; Last-Modified: 05 Jul 1992
+;; Keyword: tools, processes
;;;!!! dup removal is broken.
;; Maintainer: bug-fortran-mode@erl.mit.edu
;; Version 1.28.3
;; Last-Modified: 15 Jul 1991
+;; Keywords: languages
;;; Copyright (c) 1991 Free Software Foundation, Inc.
;;; hide-ifdef-mode.el --- hides selected code within ifdef.
-;;; Author: Dan LaLiberte <liberte@a.cs.uiuc.edu>
-;;; Last-Modified: 06 Mar 1991
+;; 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 $
;; Author: Chris Smith <convex!csmith>
;; Created: 15 Feb 89
;; Last-Modified: 06 Mar 1991
+;; Keywords: languages
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; Author: Olin Shivers <shivers@cs.cmu.edu>
;; Last-Modified: 16 Jul 1993
+;; Keyword: processes, lisp
;;; Copyright Olin Shivers (1988).
;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
;; Author: Thomas Neumann <tom@smart.bo.open.de>
;; Adapted-By: ESR
-;; Keywords: unix tools
+;; Keywords: unix, tools
;; $Id: makefile.el,v 1.7.1.17 1992/07/15 20:05:15 tom Exp tom $
;; Author: Michael Schmidt <michael@pbinfo.UUCP>
;; Tom Perrine <Perrin@LOGICON.ARPA>
;; Last-Modified: 30 May 1992
+;; Keywords: languages
;; The authors distributed this without a copyright notice
;; back in 1988, so it is in the public domain. The original included
;; Maintainer: FSF
;; Last-Modified: 24 Jun 1992
+;; Keywords: wp
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.