*** empty log message ***
This commit is contained in:
Eric S. Raymond
parent
f961a17c44
commit
fd7fa35a05
65 changed files with 194 additions and 119 deletions
|
|
@ -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 @@ 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.
|
||||
|
||||
|
|
|
|||
182
lisp/byte-run.el
182
lisp/byte-run.el
|
|
@ -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 @@ 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.
|
||||
;;; 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.
|
||||
;; (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)
|
||||
|
||||
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 ends here
|
||||
|
|
|
|||
|
|
@ -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 @@ 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
|
||||
|
|
|
|||
|
|
@ -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 @@ 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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 @@ 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
;; Copyright (C) 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 31 Oct 1989
|
||||
;; Keywords: internal
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 30 Jun 1992
|
||||
;; Keywords: help, internal
|
||||
|
||||
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 31 Oct 1989
|
||||
;; Keywords: internal
|
||||
|
||||
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 30 Jun 1992
|
||||
;; Keywords: help
|
||||
|
||||
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 09 May 1991
|
||||
;; Keywords: help
|
||||
|
||||
;; Copyright (C) 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 13 May 1991
|
||||
;; Keyord: languages
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 19 Apr 1992
|
||||
;; Keywords: unix
|
||||
|
||||
;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 16 Mar 1992
|
||||
;; Keywords: mail, news
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 01 Jun 1992
|
||||
;; Keywords: mail
|
||||
|
||||
;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 09 May 1991
|
||||
;; Keywords: help
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 21 Dec 1991
|
||||
;; Keywords: unix
|
||||
|
||||
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
;;;
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@
|
|||
;; Author: K. Shane Hartman
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 05 Apr 1991
|
||||
;; Keywords: languages
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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 $")
|
||||
|
|
|
|||
|
|
@ -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 $
|
||||
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@
|
|||
;; Author: K. Shane Hartman
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 31 Oct 1989
|
||||
;; Keywords: languages
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@
|
|||
;; Author: K. Shane Hartman
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 31 Oct 1989
|
||||
;; Keywords: languages
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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")
|
||||
|
|
|
|||
|
|
@ -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.")
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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 $
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 $
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -2,6 +2,7 @@
|
|||
|
||||
;; Maintainer: FSF
|
||||
;; Last-Modified: 24 Jun 1992
|
||||
;; Keywords: wp
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue