Commit fd7fa35a authored by Eric S. Raymond's avatar Eric S. Raymond

*** empty log message ***

parent f961a17c
;;; 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 @@ Interactively, with a prefix argument, the file name is prompted for."
(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 @@ Has a preference of looking backwards."
t)
(buffer-substring (match-beginning 1)
(match-end 1))))))))
;;; add-log.el ends here
......@@ -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.
......
......@@ -3,6 +3,7 @@
;; 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.
;; 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 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-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-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."
"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 @@ used instead. If NEW is a string, that is the `use instead' message."
(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 @@ used instead. If NEW is a string, that is the `use instead' message."
(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:
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)
;;; 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.
......@@ -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 @@ holidays are found, nil if not."
(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
......
......@@ -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.
......
......@@ -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
......
......@@ -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).
......
......@@ -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.
......
......@@ -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.
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
;; Keywords: help, extensions
;; Copyright (C) 1986 Free Software Foundation, Inc.
......
......@@ -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.
......
......@@ -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.
;;;
......
......@@ -2,6 +2,7 @@
;; Author: Dick King (king@kestrel).
;; Last-Modified: 16 Mar 1992
;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
......@@ -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
......
;; 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 @@ Otherwise, print normally."
(uninstall-custom-print-funcs)
)
;;; cus-print.el ends here
;;; cust-print.el ends here
......@@ -2,6 +2,7 @@
;; 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.
......@@ -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 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
(insert "\n"))
(setq lap (cdr lap)))))
nil)
;;; disass.el ends here
......@@ -3,6 +3,7 @@
;; Author: Bill Rosenblatt
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
;; Keywords: extensions
;; Copyright (C) 1986 Free Software Foundation, Inc.
......
......@@ -3,6 +3,7 @@
;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1991
;; Keywords: help
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 03 Jun 1992
;; Keywords: lisp, languages
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
......@@ -2,6 +2,7 @@
;; 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,
......@@ -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)
......
......@@ -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
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 16 Mar 1992
;; Keywords: extensions
;; Copyright (C) 1985 Free Software Foundation, Inc.
......
......@@ -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 $")
......
......@@ -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
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 09 Jul 92
;; Keywords: internal
;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
......
......@@ -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 $
......
......@@ -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 $
......
......@@ -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 $
......
......@@ -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 $
......
......@@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
;; Keywords: emulations