Mercurial > emacs
changeset 811:e694e0879463
*** empty log message ***
line wrap: on
line diff
--- a/lisp/=diary-lib.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=diary-lib.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Last-Modified: 30 Jun 1992 +;; Keyword: calendar ;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
--- a/lisp/=gnus.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=gnus.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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 $
--- a/lisp/=gnusmail.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=gnusmail.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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 $
--- a/lisp/=gnusmisc.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=gnusmisc.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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 $
--- a/lisp/=gnuspost.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=gnuspost.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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 $
--- a/lisp/=gosmacs.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=gosmacs.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 09 May 1991 +;; Keywords: emulations ;; Copyright (C) 1986 Free Software Foundation, Inc.
--- a/lisp/=grow-vers.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=grow-vers.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 31 Oct 1989 +;; Keywords: internal ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/=inc-vers.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=inc-vers.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 31 Oct 1989 +;; Keywords: internal ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/=man.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=man.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 21 Dec 1991 +;; Keywords: unix ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/=medit.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=medit.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: K. Shane Hartman ;; Maintainer: FSF ;; Last-Modified: 05 Apr 1991 +;; Keywords: languages ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/=mh-e.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=mh-e.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; 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 $")
--- a/lisp/=mhspool.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=mhspool.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; 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 $
--- a/lisp/=mim-mode.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=mim-mode.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: K. Shane Hartman ;; Maintainer: FSF ;; Last-Modified: 31 Oct 1989 +;; Keywords: languages ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/=mim-syntax.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/=mim-syntax.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: K. Shane Hartman ;; Maintainer: FSF ;; Last-Modified: 31 Oct 1989 +;; Keywords: languages ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/add-log.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/add-log.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,5 +1,7 @@ ;;; 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. @@ -7,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, @@ -19,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 (defvar change-log-default-name nil @@ -169,12 +172,16 @@ (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") @@ -248,3 +255,5 @@ t) (buffer-substring (match-beginning 1) (match-end 1)))))))) + +;;; add-log.el ends here
--- a/lisp/apropos.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/apropos.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Joe Wells <jbw@bigbird.bu.edu> ;; Last-Modified: 5 May 1989 +;; Keyword: help ;; Copyright (C) 1989 Free Software Foundation, Inc.
--- a/lisp/array.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/array.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author David M. Brown ;; Maintainer: FSF ;; Last-Modified: 30 Jan 1991 +;; Keyword: extensions ;; Copyright (C) 1987 Free Software Foundation, Inc.
--- a/lisp/byte-run.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/byte-run.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,29 +1,17 @@ -;;; -*- Mode:Emacs-Lisp -*- +;; byte-run.el --- byte-compiler support for inlining -;; 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. +;; Author: Jamie Zawinski <jwz@lucid.com> +;; Hallvard Furuseth <hbf@ulrik.uio.no> +;; Last-Modified: 13 Jul 1992 +;; Keywords: internal - -;; Copyright (C) 1985, 1986, 1987 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, @@ -35,81 +23,62 @@ ;; 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))))) - +;;; 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-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))) +;; (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." + "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 'proclaim-inline name))) + (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 and NEW should be -used instead. If NEW is a string, that is the `use instead' message." + "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) @@ -120,7 +89,7 @@ (put 'dont-compile 'lisp-indent-hook 0) (defmacro dont-compile (&rest body) - "Like progn, but the body will always run interpreted (not compiled)." + "Like `progn', but the body always runs interpreted (not compiled)." (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body))))) @@ -131,43 +100,48 @@ (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." + "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." + "Like `progn', but evaluates the body at compile time and at load time." ;; Remember, it's magic. (cons 'progn body)) -;;; 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: +;;; 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. - 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 +;; (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) -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
--- a/lisp/calendar/calendar.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/calendar/calendar.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,4 +1,11 @@ ;;; 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. @@ -18,6 +25,8 @@ ;; 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 @@ -66,7 +75,7 @@ ;; 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. @@ -996,7 +1005,7 @@ (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
--- a/lisp/calendar/holidays.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/calendar/holidays.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Last-Modified: 14 Jul 1992 +;; Keywords: calendar ;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
--- a/lisp/cmuscheme.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/cmuscheme.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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
--- a/lisp/comint.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/comint.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Maintainer: Olin Shivers <shivers@cs.cmu.edu> ;; Last-Modified: 16 Jul 1992 ;; Version: 2.03 +;; Keyword: estensions, processes ;;; Copyright Olin Shivers (1988).
--- a/lisp/diff.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/diff.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; Maintainer: FSF ;; Created: 27 Jan 1989 ;; Last-Modified: 21 Dec 1992 +;; Keyword: unix, tools ;; Copyright (C) 1990 Free Software Foundation, Inc.
--- a/lisp/ehelp.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/ehelp.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 16 Mar 1992 +;; Keywords: help, extensions ;; Copyright (C) 1986 Free Software Foundation, Inc.
--- a/lisp/electric.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/electric.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: K. Shane Hartman ;; Maintainer: FSF ;; Last-Modified: 09 Jun 1992 +;; Keywords: extensions ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/autoload.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/autoload.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Last-Modified: 24 Jun 1992 +;; Keyword: internal ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc. ;;;
--- a/lisp/emacs-lisp/backquote.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/backquote.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Dick King (king@kestrel). ;; Last-Modified: 16 Mar 1992 +;; Keywords: extensions ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/cl-indent.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/cl-indent.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; 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
--- a/lisp/emacs-lisp/cust-print.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/cust-print.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,9 +1,10 @@ -;; 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. @@ -569,4 +570,4 @@ (uninstall-custom-print-funcs) ) -;;; cus-print.el ends here +;;; cust-print.el ends here
--- a/lisp/emacs-lisp/debug.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/debug.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 08 Jan 1992 +;; Keyword: lisp, tools ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/disass.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/disass.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,9 +1,12 @@ -;;; 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. @@ -21,6 +24,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: + +;;; 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. @@ -223,3 +233,5 @@ (insert "\n")) (setq lap (cdr lap))))) nil) + +;;; disass.el ends here
--- a/lisp/emacs-lisp/float.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/float.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: Bill Rosenblatt ;; Maintainer: FSF ;; Last-Modified: 16 Mar 1992 +;; Keywords: extensions ;; Copyright (C) 1986 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/helper.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/helper.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: K. Shane Hartman ;; Maintainer: FSF ;; Last-Modified: 16 Mar 1991 +;; Keywords: help ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/lisp-mode.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 03 Jun 1992 +;; Keywords: lisp, languages ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/lisp.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/lisp.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 12 Mar 1992 +;; Keyword: lisp, languages ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/ring.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emacs-lisp/ring.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,12 +1,16 @@ ;;; 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, @@ -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: + ;;; 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 @@ -29,6 +35,8 @@ ;;; 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)
--- a/lisp/emulation/edt.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emulation/edt.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; 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
--- a/lisp/emulation/mlconvert.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emulation/mlconvert.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 09 May 1991 +;; Keywords: extensions ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/emulation/mlsupport.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/emulation/mlsupport.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 16 Mar 1992 +;; Keywords: extensions ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/find-dired.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/find-dired.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; 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 $")
--- a/lisp/flow-ctrl.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/flow-ctrl.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; Maintainer: FSF ;; Last-Modified: 03 Jun 1992 ;; Adapted-By: ESR +;; Keywords: hardware ;;; Copyright (C) 1990 Free Software Foundation, Inc. ;;; Copyright (C) 1991 Kevin Gallagher
--- a/lisp/frame.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/frame.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 09 Jul 92 +;; Keywords: internal ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
--- a/lisp/help.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/help.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 30 Jun 1992 +;; Keywords: help, internal ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/info.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/info.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 30 Jun 1992 +;; Keywords: help ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
--- a/lisp/informat.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/informat.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 09 May 1991 +;; Keywords: help ;; Copyright (C) 1986 Free Software Foundation, Inc.
--- a/lisp/ledit.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/ledit.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 13 May 1991 +;; Keyord: languages ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/loadup.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/loadup.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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.
--- a/lisp/lpr.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/lpr.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 19 Apr 1992 +;; Keywords: unix ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
--- a/lisp/mail/mail-utils.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/mail/mail-utils.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 16 Mar 1992 +;; Keywords: mail, news ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/mail/mailabbrev.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/mail/mailabbrev.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; 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.
--- a/lisp/mail/mailalias.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/mail/mailalias.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 01 Jun 1992 +;; Keywords: mail ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
--- a/lisp/mail/mailpost.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/mail/mailpost.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; 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.
--- a/lisp/makesum.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/makesum.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 09 May 1991 +;; Keywords: help ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/map-ynp.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/map-ynp.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Last-Modified: 14 Mar 1992 +;; Keywords: lisp, extensions ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc. ;;;
--- a/lisp/play/life.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/play/life.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Author: Kyle Jones <talos!kjones@uunet.uu.net> ;; Last-Modified: 16 Mar 1992 +;; Keyword: games ;; Copyright (C) 1988 Free Software Foundation, Inc.
--- a/lisp/play/meese.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/play/meese.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; Maintainer: FSF ;; Last-Modified: 20 May 1988 +;; Keywords: games (defun protect-innocence-hook () (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
--- a/lisp/progmodes/awk-mode.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/awk-mode.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,12 +1,16 @@ ;;; 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, @@ -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 awk-mode-syntax-table nil "Syntax table in use in Awk-mode buffers.")
--- a/lisp/progmodes/compile.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/compile.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: Roland McGrath <roland@prep.ai.mit.edu> ;; Maintainer: FSF ;; Last-Modified: 05 Jul 1992 +;; Keyword: tools, processes ;;;!!! dup removal is broken.
--- a/lisp/progmodes/fortran.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/fortran.el Fri Jul 17 08:15:29 1992 +0000 @@ -4,6 +4,7 @@ ;; 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.
--- a/lisp/progmodes/hideif.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/hideif.el Fri Jul 17 08:15:29 1992 +0000 @@ -1,7 +1,8 @@ ;;; 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 $
--- a/lisp/progmodes/icon.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/icon.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; Author: Chris Smith <convex!csmith> ;; Created: 15 Feb 89 ;; Last-Modified: 06 Mar 1991 +;; Keywords: languages ;; Copyright (C) 1989 Free Software Foundation, Inc.
--- a/lisp/progmodes/inf-lisp.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/inf-lisp.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,6 +2,7 @@ ;; 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
--- a/lisp/progmodes/make-mode.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/make-mode.el Fri Jul 17 08:15:29 1992 +0000 @@ -2,7 +2,7 @@ ;; 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 $
--- a/lisp/progmodes/modula2.el Fri Jul 17 07:10:46 1992 +0000 +++ b/lisp/progmodes/modula2.el Fri Jul 17 08:15:29 1992 +0000 @@ -3,6 +3,7 @@ ;; 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