;;; abbrev.el --- abbrev mode commands for Emacs
-;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 1992
+
+;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
(defconst only-global-abbrevs nil "\
*t means user plans to use global abbrevs only.
(read-abbrev-file file t))
(defun write-abbrev-file (file)
- "Write all abbrev definitions to file of Lisp code.
+ "Write all abbrev definitions to a file of Lisp code.
The file written can be loaded in another session to define the same abbrevs.
The argument FILE is the file name to write."
(interactive
(read-file-name "Write abbrev file: "
(file-name-directory (expand-file-name abbrev-file-name))
abbrev-file-name)))
- (interactive "FWrite abbrev file: ")
(or (and file (> (length file) 0))
(setq file abbrev-file-name))
(save-excursion
;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
;; Suggested by a previous version by Gildea.
;; 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:
(defun list-one-abbrev-table (abbrev-table output-buffer)
"Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."
;;; ada.el --- Ada editing support package in GNUlisp. v1.0
-; Author: Vincent Broman <broman@bugs.nosc.mil> May 1987.
-; (borrows heavily from Mick Jordan's Modula-2 package for GNU,
-; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.)
+;; Author: Vincent Broman <broman@bugs.nosc.mil>
+;; Last-Modified: 30 Jan 1991
+;; Keywords: languages
;; Copyright (C) 1985, 1986, 1987 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.
+;;; Commentary:
+
+;; Created May 1987.
+;; (borrows heavily from Mick Jordan's Modula-2 package for GNU,
+;; as modified by Peter Robinson, Michael Schmidt, and Tom Perrine.)
+
+;;; Code:
+
(setq auto-mode-alist (cons (cons "\\.ada$" 'ada-mode) auto-mode-alist))
(defvar ada-mode-syntax-table nil
;;; apropos.el --- faster apropos commands.
+;; Author: Joe Wells <jbw@bigbird.bu.edu>
+;; Last-Modified: 5 May 1989
+
;; Copyright (C) 1989 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.
-;; Author: Joe Wells
-;; Last changed: Fri May 5 18:08:16 1989 by jbw (Joseph Wells) on bucsf
-;; jbw%bucsf.bu.edu@bu-it.bu.edu (school year)
-;; joew@uswest.com (summer)
+;;; Commentary:
;; The ideas for this package were derived from the C code in
;; src/keymap.c and elsewhere. The functions in this file should
;; Made doc file buffer read-only, buried it.
;; Only call substitute-command-keys if do-all set.
+;;; Code:
+
(defvar apropos-do-all nil
"*Whether `apropos' and `super-apropos' should do everything that they can.
Makes them run 2 or 3 times slower. Set this non-nil if you have a fast
;;; array.el --- array editing commands for Gnu Emacs
-;;; Written by dmb%morgoth@harvard.harvard.edu (address is old)
-;;; (David M. Brown at Goldberg-Zoino & Associates, Inc.)
-;;; Thanks to cph@kleph.ai.mit.edu for assistance
+;; Author David M. Brown
+;; Maintainer: FSF
+;; Last-Modified: 30 Jan 1991
;; Copyright (C) 1987 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.
+;;; Commentary:
+
+;;; Written by dmb%morgoth@harvard.harvard.edu (address is old)
+;;; (David M. Brown at Goldberg-Zoino & Associates, Inc.)
+;;; Thanks to cph@kleph.ai.mit.edu for assistance
+
;;; To do:
;;; Smooth initialization process by grokking local variables list
;;; at end of buffer or parsing buffer using whitespace as delimiters.
;;; Make 'array-copy-column-right faster.
\f
+;;; Code:
;;; Internal information functions.
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
+;; Author: Charlie Martin <crm@cs.duke.edu>
+;; Created: 01 Jul 1988
+;; Last-Modified: 30 Jun 1992
+
;; 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)
+;; 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.
-;;; autoinsert.el
+;;; Commentary:
;;; Abstract:
;;;
;;;
;;; Date: Fri Jul 1 16:15:31 EDT 1988
+;;; Code:
+
(defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
("\\.c$" . "c-insert.c")
("\\.h$" . "h-insert.c")
;;; appt.el --- appointment notification functions.
+;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
+;; Version: 2.1
+;; Last-Modified: 14 Jul 1992
+;; Keywords: calendar
+
;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
;;
;; appt.el - visible and/or audible notification of
;; appointments from ~/diary file generated from
;; Edward M. Reingold's calendar.el.
;;
-;; Version 2.1
;;
;; Comments, corrections, and improvements should be sent to
;; Neil M. Mager
;;; reads. This is all done automatically.
;;; It is invoked from the function list-diary-entries.
;;;
+
+;;; Code:
+
(defvar appt-issue-message t
"*Non-nil means check for appointments in the diary buffer.
To be detected, the diary entry must have the time
-;;; case-table.el --- functions for extending the character set and dealing with case tables.
+;;; case-table.el ---code to extend the character set and support case tables.
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
;; Copyright (C) 1988 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.
+;;; Commentary:
;; Written by:
;; TN/ETX/TX/UMG Howard Gayle UUCP : seismo!enea!erix!howard
;; S-126 25 Stockholm FAX : +46 8 719 64 82
;; Sweden
+;;; Code:
+
(defun describe-buffer-case-table ()
"Describe the case table of the current buffer."
(interactive)
;;; chistory.el --- list command history
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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 really has nothing to do with list-command-history per se, but
;; its a nice alternative to C-x ESC (repeat-complex-command) and
;; functions as a lister if given no pattern. It's not important
;; enough to warrant a file of its own.
+;;; Code:
+
;;;###autoload
(defun repeat-matching-complex-command (&optional pattern)
"Edit and re-evaluate complex command with name matching PATTERN.
;;; comint.el --- general command interpreter in a window stuff
+;; Maintainer: Olin Shivers <shivers@cs.cmu.edu>
+;; Last-Modified: 16 Jul 1992
+;; Version: 2.03
+
;;; Copyright Olin Shivers (1988).
;;; 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:
+
;;; The changelog is at the end of this file.
;;; Please send me bug reports, bug fixes, and extensions, so that I can
;;; background, dbx, gdb, kermit, prolog, telnet) to use comint-mode
;;; instead of shell-mode, see the notes at the end of this file.
-(defconst comint-version "2.03")
-
\f
;;; Brief Command Documentation:
;;;============================================================================
;;; comint-mode-hook is the comint mode hook. Basically for your keybindings.
;;; comint-load-hook is run after loading in this package.
+;;; Code:
+
+(defconst comint-version "2.03")
+
\f
;;; Buffer Local Variables:
;;;============================================================================
;;; compare-w.el --- compare text between windows for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1986, 1989 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 compare-windows-whitespace " \t\n"
"*String of characters considered whitespace for \\[compare-windows].
Changes in whitespace are optionally ignored.
;;; dabbrev.el --- dynamic abbreviation package for GNU Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985, 1986 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:
; DABBREVS - "Dynamic abbreviations" hack, originally written by Don Morrison
; for Twenex Emacs. Converted to mlisp by Russ Fish. Supports the table
;
; If anyone feels like hacking at it, Bob Keller (Keller@Utah-20) first
; suggested the beast, and has some good ideas for its improvement, but
-; doesn?tknow TECO (the lucky devil...). One thing that should definitely
+; doesn't know TECO (the lucky devil...). One thing that should definitely
; be done is adding the ability to search some other buffer(s) if you can?t
; find the expansion you want in the current one.
+;;; Code:
+
;; (defun dabbrevs-help ()
;; "Give help about dabbrevs."
;; (interactive)
;;; diff.el --- "DIFF" mode for handling output from unix diff utility.
+;; Author: Frank P. Bresz <fpb@ittc.wec.com>
+;; Maintainer: FSF
+;; Created: 27 Jan 1989
+;; Last-Modified: 21 Dec 1992
+
;; Copyright (C) 1990 Free Software Foundation, Inc.
-;; Written fpb@ittc.wec.com 1/27/89
;; 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:
+
;; todo: diff-switches flexibility:
;; (defconst diff-switches-function
;; '(lambda (file)
;; search for the pattern. If you only 1 addition you won't find the end
;; of the pattern (minor)
-;;
+;;; Code:
+
(defvar diff-switches nil
"*A list of switches to pass to the diff program.")
;; dired-aux.el --- directory browsing command support
-;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>.
;; Version: 5.234
;; Last-Modified: 14 Jul 1992
+;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
+
;; This file is part of GNU Emacs.
;; 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,
;;;###end dired-ins.el
-;;; dired-aux.el ends here
\ No newline at end of file
+;;; dired-aux.el ends here
;;; disp-table.el --- functions for dealing with char tables.
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 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)
+;; 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.
-
-;; Written by Howard Gayle.
+;;; Code:
(defun rope-to-vector (rope)
(let* ((len (/ (length rope) 2))
;;; ebuff-menu.el --- electric-buffer-list mode
-; buggestions to mly@ai.mit.edu
-
-;; who says one can't have typeout windows in gnu emacs?
-;; like ^r select buffer from its emacs lunar or tmacs libraries.
+;; Author: Richard Mlynarik <mly@ai.mit.edu>
+;; Last-Modified: 21 Dec 1991
;; Copyright (C) 1985, 1986 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.
+;;; Commentary:
+
+;; who says one can't have typeout windows in gnu emacs?
+;; like ^r select buffer from its emacs lunar or tmacs libraries.
+
+;;; Code:
(require 'electric)
;;; echistory.el --- Electric Command History Mode
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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:
(require 'electric) ; command loop
(require 'chistory) ; history lister
-;;; edmacro.el --- keyboard macro editor for GNU Emacs. Version 1.02.
+;;; edmacro.el --- keyboard macro editor
+
+;; Author: Dave Gillespie <daveg@csvax.caltech.edu>
+;; Maintainer: FSF
+;; Version: 1.02
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1990 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.
-;; Original from: Dave Gillespie, daveg@csvax.caltech.edu.
+;;; Commentary:
;; To use, type `M-x edit-last-kbd-macro' to edit the most recently
;; defined keyboard macro. If you have used `M-x name-last-kbd-macro'
;; to give a keyboard macro a name, type `M-x edit-kbd-macro' to edit
;; the macro by name. When you are done editing, type `C-c C-c' to
;; record your changes back into the original keyboard macro.
+
+;;; Code:
\f
;;; The user-level commands for editing macros.
;;; ehelp.el --- bindings for electric-help mode
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1986 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:
+
(require 'electric)
(defvar electric-help-map ()
"Keymap defining commands available in `electric-help-mode'.")
;;; electric.el --- window maker and Command loop for `electric' modes.
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 09 Jun 1992
+
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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,
;;; autoload.el --- maintain autoloads in loaddefs.el.
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 24 Jun 1992
+
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; 02139, USA.
;;;
+;;; Code:
+
(defun make-autoload (form file)
"Turn FORM, a defun or defmacro, into an autoload for source file FILE.
Returns nil if FORM is not a defun or defmacro."
;; backquote.el --- backquoting for Emacs Lisp macros
+;; Author: Dick King (king@kestrel).
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Written by Dick King (king@kestrel).
;; 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 is a rudimentry backquote package written by D. King,
+ ;;; This is a rudimentry backquote package written by D. King,
;;; king@kestrel, on 8/31/85. (` x) is a macro
;;; that expands to a form that produces x. (` (a b ..)) is
;;; a macro that expands into a form that produces a list of what a b
;;; This is so crunchy that I am considering including a check for
;;; this or changing the syntax to ... ,(<form>). RMS: opinion?
+;;; Code:
;;; a raft of general-purpose macros follows. See the nearest
;;; Commonlisp manual.
;;; cl-indent.el --- enhanced lisp-indent mode
+;; Author: Richard Mlynark <mly@eddie.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Written by Richard Mlynarik July 1987
;; 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:
+
;;>> TODO
;; :foo
;; bar
;; baz)
;; Need something better than &rest for such cases
+;;; Code:
;;; Hairy lisp indentation.
;; cus-print.el -- handles print-level and print-circle.
-;; LCD Archive Entry:
-;; custom-print|Daniel LaLiberte|liberte@cs.uiuc.edu
-;; |Handle print-level, print-circle and more.
-;; |$Date: Tue Mar 17, 1992$|$Revision: 1.0$|
+;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
+;; Version: 1.0
+;; Last-Modified: 17 Mar 1992
+;; Adapted-By: ESR
;; Copyright (C) 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.
+;;; Commentary:
+
;; This package provides a general print handler for prin1 and princ
;; that supports print-level and print-circle, and by the way,
;; print-length since the standard routines are being replaced. Also,
;; custom-message
;; custom-error
+;;; Code:
(provide 'custom-print)
;; Abbreviated package name: "CP"
;;; debug.el --- debuggers and related commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 08 Jan 1992
+
;; Copyright (C) 1985, 1986 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 debug-function-list nil
"List of functions currently set for debug on entry.")
;;; float.el --- floating point arithmetic package.
+;; Author: Bill Rosenblatt
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
-;; Author Bill Rosenblatt
;; 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:
+
;; Floating point numbers are represented by dot-pairs (mant . exp)
;; where mant is the 24-bit signed integral mantissa and exp is the
;; base 2 exponent.
;; June 20, 1986
;;
+;;; Code:
+
;; fundamental implementation constants
(defconst exp-base 2
"Base of exponent in this floating point representation.")
;;; helper.el --- utility help package supporting help in electric modes
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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:
; hey, here's a helping hand.
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
+;; Maintainer: FSF
+;; Last-Modified: 03 Jun 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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,
;;; lisp.el --- Lisp editing commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 12 Mar 1992
+
;; Copyright (C) 1985, 1986 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 defun-prompt-regexp nil
"Non-nil => regexp to ignore, before the `(' that starts a defun.")
;;; profile.el -- generate run time measurements of Emacs Lisp functions
;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu>
-;; Created: 7 Feb 1992
-;; Last-Modified: 7 Feb 1992
+;; Created: 07 Feb 1992
+;; Last-Modified: 07 Feb 1992
;; Version: 1.0
;; Adapted-By: ESR
;; 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,
;;; edt.el --- EDT emulation in Emacs
+;; Author: Mike Clarkson <mike@yetti.UUCP>
+;; Maintainer: FSF
+;; Created: 27 Aug 1986
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; It started from public domain code by Mike Clarkson
;; but has been greatly altered.
;; 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.
-;; From mike@yetti.UUCP Fri Aug 29 12:49:28 1986
-;; Path: yetti!mike@uunet.uu.net
-;; From: mike@yetti.UUCP (Mike Clarkson )
-;; Newsgroups: net.sources
-;; Subject: Gnu Emacs EDT Emulation - Introduction - 1/3
-;; Date: 27 Aug 86 23:30:33 GMT
-;; Reply-To: mike@yetti.UUCP (Mike Clarkson )
-;; Organization: York University Computer Science
-;;
+;;; Commentary:
+
;; Here's my EDT emulation for GNU Emacs that is based on the EDT emulation
;; for Gosling's Emacs sent out on the net a couple of years ago by Lynn Olson
;; at Tektronics. This emulation was widely distributed as the file edt.ml
;; in the maclib directory of most Emacs distributions.
;;
-;; My emulation consists of two files: edt.el and edtdoc.el. The edtdoc.el
-;; file is the documentation, that you can add to the beginning of edt.el if
-;; you want. I have split them because I have been loading the edt.el file a
-;; lot during debugging.
-;;
;; I will gladly take all criticisms and complaints to heart, and will fix what
;; bugs I can find. As this is my first Emacs Lisp hack, you may have to root
;; out a few nasties hidden in the code. Please let me know if you find any
;; UUCP. If you have a UUCP or BITNET address please use it for communication
;; so that I can reach you directly. If you have both, the BITNET address
;; is preferred.
-;; --
-;; Mike Clarkson, ...!allegra \ BITNET: mike@YUYETTI or
-;; CRESS, York University, ...!decvax \ SYMALG@YUSOL
-;; 4700 Keele Street, ...!ihnp4 > !utzoo!yetti!mike
-;; North York, Ontario, ...!linus /
-;; CANADA M3J 1P3. ...!watmath / Phone: +1 (416) 737-2100 x 7767
+
+;;; Code:
(require 'keypad)
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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
(defun convert-mocklisp-buffer ()
"Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run."
;;; mlsupport.el --- run-time support for mocklisp code.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
(defmacro ml-defun (&rest defs)
(list 'ml-defun-1 (list 'quote defs)))
;;; setenv.el --- functions to manipulate environment variables.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;;; Copyright Free Software Foundation 1991
;;; 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:
+
(defun setenv (variable value)
"Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE and VALUE should both be strings.
;;; files.el --- file input and output commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 92
+
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; 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:
+
(defconst delete-auto-save-files t
"*Non-nil means delete a buffer's auto-save file when the buffer is saved.")
;; find-dired.el --- run a `find' command and dired the output
-;;; Copyright (C) 1991 Roland McGrath
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Sebastian Kremer <sk@thp.uni-koeln.de>
+;; Maintainer: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 16 Mar 1992
(defconst find-dired-version (substring "$Revision: 1.9 $" 11 -2)
"$Id: find-dired.el,v 1.9 1991/11/11 13:24:31 sk Exp $")
+;;; Copyright (C) 1991 Roland McGrath
+
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; program's author (send electronic mail to roland@ai.mit.edu) or from
;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
;;; 02139, USA.
-;;;
-;; LISPDIR ENTRY for the Elisp Archive ===============================
-;; LCD Archive Entry:
-;; find-dired|Roland McGrath, Sebastian Kremer
-;; |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de
-;; |Run a `find' command and dired the output
-;; |$Date: 1991/11/11 13:24:31 $|$Revision: 1.9 $|
+
+;;; Commentary:
;; INSTALLATION ======================================================
;;
;; in your ~/.emacs.
+;;; Code:
+
(require 'dired)
;;;###autoload
(defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"
;;; find-gc.el --- detect functions that call the garbage collector
+;; Maintainer: FSF
+;; Last-Modified: 21 Nov 1990
+
;; 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.
+;; Code:
+
;;; Produce in unsafe-list the set of all functions that may invoke GC.
;;; This expects the Emacs sources to live in emacs-source-directory.
;;; It creates a temporary working directory /tmp/esrc.
;;; float-sup.el --- detect absence of floating-point support in Emacs runtime
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; 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)
+;; 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:
+
;; Provide a meaningful error message if we are running on
;; bare (non-float) emacs.
;; Can't test for 'floatp since that may be defined by float-imitation
;; 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:
+
;; Prevent changes in major modes from altering these variables.
(put 'ftp-temp-file-name 'permanent-local t)
(put 'ftp-file 'permanent-local t)
;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
-;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
+;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
;; GNUS Mailing List:
;; There are two mailing lists for GNUS lovers in the world:
;;
;; (3) Multi-GNUS (Talking to many hosts same time).
;; (4) Asynchronous transmission of large messages.
+;;; Code:
+
(require 'nntp)
(require 'mail-utils)
;;; gnusmail.el --- mail reply commands for GNUS newsreader
-;; Copyright (C) 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
;; $Header: gnusmail.el,v 1.1 90/03/23 13:24:39 umerin Locked $
+;; Copyright (C) 1990 Free Software Foundation, Inc.
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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.
-(require 'gnus)
+;;; Commentary:
;; Provides mail reply and mail other window command using usual mail
;; interface and mh-e interface.
;; gnus-mail-other-window-method to gnus-mail-reply-using-mhe and
;; gnus-mail-other-window-using-mhe, respectively.
+;;; Code:
+
+(require 'gnus)
+
(autoload 'news-mail-reply "rnewspost")
(autoload 'news-mail-other-window "rnewspost")
;;; gnusmisc.el --- miscellaneous commands for GNUS newsreader
-;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
;; $Header: gnusmisc.el,v 1.2 90/03/23 13:25:04 umerin Locked $
+;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
(require 'gnus)
;;;
;;; gnuspost.el --- post news commands for GNUS newsreader
-;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 10 Jun 1992
+
;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $
+;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
(require 'gnus)
(defvar gnus-organization-file "/usr/lib/news/organization"
;;; gosmacs.el --- rebindings to imitate Gosmacs.
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1986 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 non-gosmacs-binding-alist nil)
;;; grow-vers.el --- increment Emacs version number
-;; Load this file to add a new level (starting at zero)
-;; to the Emacs version number recorded in version.el.
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
+;; Load this file to add a new level (starting at zero)
+;; to the Emacs version number recorded in version.el.
+
+;;; Code:
(insert-file-contents "lisp/version.el")
;;; help.el --- help commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
;; Copyright (C) 1985, 1986 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 help-map (make-sparse-keymap)
"Keymap for characters following the Help key.")
-;;; hexl-mode.el --- edit a file in a hex dump format.
+;;; hexl-mode.el --- edit a file in a hex dump format using the hexl filter.
+
+;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
+;; Last-Modified: 06 Mar 1991
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; 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.
-;;
-;; By: Keith Gabryelski (ag@wheaties.ai.mit.edu)
-;;
+;;; Commentary:
+
;; This may be useful in your .emacs:
;;
;; (autoload 'hexl-find-file "hexl"
;; ASCII region of the screen (if your emacs supports this) instead of
;; changing them to dots.
+;;; Code:
+
;;
;; vars here
;;
;;; inc-vers.el --- load this to increment the recorded Emacs version number.
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985, 1986 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:
(insert-file-contents "../lisp/version.el")
;;; indent.el --- indentation commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 09 Jul 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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 indent-line-function 'indent-to-left-margin "\
Function to indent current line.");Now in loaddefs.el
;;; info.el --- info package for Emacs.
-;;; Note that nowadays we expect info files to be made using makeinfo.
+
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
;; Copyright (C) 1985, 1986 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:
+
+;;; Note that nowadays we expect info files to be made using makeinfo.
+
+;;; Code:
+
(defvar Info-history nil
"List of info nodes user has visited.
Each element of list is a list (FILENAME NODENAME BUFFERPOS).")
;;; informat.el --- info support functions package for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 09 May 1991
+
;; Copyright (C) 1986 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:
+
(require 'info)
;;;###autoload
-;;; iso-ascii.el --- set up char tables for ISO 8859/1 character set for ASCII terminals.
+;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals.
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
;; Copyright (C) 1987 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.
+;;; Commentary:
;; Written by Howard Gayle. See display-table.el for details.
;; ASCII terminals. The display strings for the characters are
;; more-or-less based on TeX.
+;;; Code:
+
(require 'disp-table)
(standard-display-ascii 160 "{_}") ; NBSP (no-break space)
;;; iso-insert.el --- insert functions for ISO 8859/1.
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 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)
+;; 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:
;; Written by Howard Gayle. See case-table.el for details.
-;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish terminals.
+;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
;; Copyright (C) 1987 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:
;; Written by Howard Gayle. See case-table.el for details.
;;; swedish.el --- miscellaneous functions for dealing with Swedish.
+;; Author: Howard Gayle
+;; Maintainer: FSF
+
;; 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:
;; Written by Howard Gayle. See case-table.el for details.
;;; isearch.el --- incremental search commands
+;; Maintainer: FSF
+;; Last-Modified: 30 Jun 1992
+
;; Copyright (C) 1985, 1986 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 search-last-string "" "\
Last string search for by a non-regexp search command.
This does not include direct calls to the primitive search functions,
-;; Set up case-conversion and syntax tables for ISO 8859/1 character set.
+;; iso8859-1.el --- set up case-conversion and syntax tables for ISO 8859/1
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
;; 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:
;; Written by Howard Gayle. See case-table.el for details.
;; 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,
;; Please let me know if any bugs turn up.
;; Feb 1988, Jeff Norden - jeff@colgate.csnet
+;;; Code:
+
(require 'shell)
(defvar kermit-esc-char "\C-\\" "*Kermit's escape char")
;;; ledit.el --- Emacs side of ledit interface
+;; Maintainer: FSF
+;; Last-Modified: 13 May 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
;;; To do:
;;; o lisp -> emacs side of things (grind-definition and find-definition)
;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
;; This is loaded into a bare Emacs to make a dumpable one.
;; Copyright (C) 1985, 1986, 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:
+
;;; We don't want to have any undo records in the dumped Emacs.
(buffer-disable-undo "*scratch*")
;;; lpr.el --- print Emacs buffer on line printer.
+;; Maintainer: FSF
+;; Last-Modified: 19 Apr 1992
+
;; Copyright (C) 1985, 1988, 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.
+;;; Code:
;;;###autoload
(defconst lpr-switches nil "\
;;; macros.el --- non-primitive commands for keyboard macros.
+;; Maintainer: FSF
+;; Last-Modified: 05 Nov 1991
+
;; 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)
+;; 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
(defun name-last-kbd-macro (symbol)
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
+;; Author: K. Shane Hartman
;; Maintainer: FSF
;; Last-Modified: 21 Dec 1991
;; Not fully installed because it can work only on Internet hosts.
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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,
;;; mail-utils.el --- utility functions used both by rmail and rnews
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
;;; been initialized.
;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
+;; Maintainer: FSF
+;; Last-Modified: 01 Jun 1992
+
;; Copyright (C) 1985, 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)
+;; 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:
;; Called from sendmail-send-it, or similar functions,
;; only if some mail aliases are defined.
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 24 Apr 1992
+
;; Copyright (C) 1985, 1986, 1987, 1988, 1991, 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.
+;;; Code:
;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
;; New features include attribute and keyword support, message
;;; rmailedit.el --- "RMAIL edit mode" Edit the current message.
+;; Maintainer: FSF
+;; Last-Modified: 31 Jul 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
(require 'rmail)
;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985, 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:
;; Global to all RMAIL buffers. It exists primarily for the sake of
;; completion. It is better to use strings with the label functions
;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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,
;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
;; Maintainer: FSF
-;; Last-Modified: 1 Mar 1991
+;; Last-Modified: 01 Mar 1991
;; Copyright (C) 1985, 1987 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,
;;; rmailsort.el --- Rmail: sort messages.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
(require 'rmail)
(require 'sort)
;;; rmailsum.el --- "RMAIL" mail reader for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 30 Nov 1990
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
;; summary things
;;; rnews.el --- USENET news reader for gnu emacs
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; 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)
+;; 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.
+;;; Change Log:
+
;; Created Sun Mar 10,1985 at 21:35:01 ads and sundar@hernes.ai.mit.edu
;; Should do the point pdl stuff sometime
;; finito except pdl.... Sat Mar 16,1985 at 06:43:44
;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
;; tower@prep Nov 21 1986
;; added tower@prep 22 Apr 87
+
+;;; Code:
+
(require 'mail-utils)
(autoload 'rmail-output "rmailout"
;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1992
+
;; 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)
+;; 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.
+;; Change Log:
+
;; moved posting and mail code from rnews.el
;; tower@prep.ai.mit.edu Wed Oct 29 1986
;; brought posting code almost up to the revision of RFC 850 for News 2.11
;; tower@prep 28 Apr 87
;; commented out Posting-Front-End to save USENET bytes tower@prep Jul 31 87
;; commented out -n and -t args in news-inews tower@prep 15 Oct 87
-(require 'sendmail)
-(require 'rnews)
;Now in paths.el.
;(defvar news-inews-program "inews"
;;; >> Nuked by Mly to autoload those functions again, as the duplication of
;;; >> code was making maintenance too difficult.
+;;; Code:
+
+(require 'sendmail)
+(require 'rnews)
+
(defvar news-reply-mode-map () "Mode map used by news-reply.")
(or news-reply-mode-map
;;; sendmail.el --- mail sending commands for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
;; Copyright (C) 1985, 1986, 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.
+;;; Code:
;;;###autoload
(defconst mail-self-blind nil "\
;;; undigest.el --- digest-cracking support for the RMAIL mail reader
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
;; Copyright (C) 1985, 1986 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.
-;; note Interent RFP934
+;;; Commentary:
+
+;; See Internet RFC 934
+
+;;; Code:
(defun undigestify-rmail-message ()
"Break up a digest message into its constituent messages.
;;; makesum.el --- generate key binding summary for Emacs
;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1985 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,
;;; man.el --- read in and display parts of Unix manual.
+;; Maintainer: FSF
+;; Last-Modified: 21 Dec 1991
+
;; Copyright (C) 1985, 1986 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:
+
;;;###autoload
(defun manual-entry (topic &optional section)
"Display the Unix manual entry for TOPIC.
;;; map-ynp.el --- General-purpose boolean question-asker.
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 14 Mar 1992
+
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 1, or (at your option)
+;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; program's author (send electronic mail to roland@ai.mit.edu) or from
;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
;;; 02139, USA.
-;;;
+
+;;; Commentary:
+
;;; map-y-or-n-p is a general-purpose question-asking function.
;;; It asks a series of y/n questions (a la y-or-n-p), and decides to
;;; applies an action to each element of a list based on the answer.
;;; questions; ESC or q to answer n to all remaining questions; . to answer
;;; y once and then n for the remainder; and you can get help with C-h.
+;;; Code:
+
(defun map-y-or-n-p-help (object objects action)
(format "Type SPC or `y' to %s the current %s;
DEL or `n' to skip the current %s;
-;;; medit.el --- Lisp interface between GNU Emacs and MEDIT package.
+;;; medit.el --- front-end to the MEDIT package for editing MDL
+
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 05 Apr 1991
-;; Emacs under MDL.
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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 package depends on two MDL packages: MEDIT and FORKS which
;; >> can be obtained from the public (network) library at mit-ajax.
+;;; Code:
+
(require 'mim-mode)
(defconst medit-zap-file (concat "/tmp/" (user-login-name) ".medit.mud")
;;; mim-mode.el --- Mim (MDL in MDL) mode.
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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:
(autoload 'fast-syntax-check-mim "mim-syntax"
"Checks Mim syntax quickly.
;;; mim-syntax.el --- syntax checker for Mim (MDL).
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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:
(require 'mim-mode)
;;; misc.el --- basic editing commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 31 Oct 1989
+
;; Copyright (C) 1989 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:
(defun copy-from-above-command (&optional arg)
"Copy characters from previous nonblank line, starting just above point.
;;; netunam.el --- HP-UX RFA Commands
-;; Author: CPH <cph@zurich.ai.mit.edu>
+;; Author: Chris Hanson <cph@zurich.ai.mit.edu>
;; Last-Modified: 31 Oct 1989
;;; $Header: netunam.el,v 1.3 88/12/21 16:32:23 GMT cph Exp $
;; 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,
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 22 May 1991
+
;; 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)
+;; 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:
;; This function is called (by autoloading)
;; to handle any disabled command.
;;; options.el --- edit Options command for Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 10 Apr 1991
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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
(defun list-options ()
;;; paths.el --- define pathnames for use by various Emacs commands.
+;; Maintainer: FSF
+;; Last-Modified: 05 Dec 1991
+
;; Copyright (C) 1986, 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.
+;;; Commentary:
;; These are default settings for names of certain files and directories
;; that Emacs needs to refer to from time to time.
;; If these settings are not right, override them with `setq'
;; in site-init.el. Do not change this file.
+;;; Code:
+
(defvar Info-default-directory-list
(list "/usr/local/lib/info/"
(expand-file-name "../info/" data-directory))
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
+;; Keywords: games
;; Copyright (C) 1985 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,
;;; doctor.el --- psychological help for frustrated users.
+;; Maintainer: FSF
+;; Last-Modified: 24 Apr 1992
+;; Keywords: games
+
;; Copyright (C) 1985, 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)
+;; 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:
(defun doctor-cadr (x) (car (cdr x)))
(defun doctor-caddr (x) (car (cdr (cdr x))))
;;; gomoku.el --- Gomoku game between you and Emacs
+;; Author: Phillippe Schnoebelen <phs@lifia.imag.fr>
+;; Last-Modified: 16 Mar 1992
+;; Adapted-By: ESR
+;; Keywords: games
+
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
+
;;; Gomoku game between you and GNU Emacs. Last modified on 13 Sep 1988
;;;
;;; Written by Ph. Schnoebelen (phs@lifia.imag.fr), 1987, 1988
;; The algorithm is briefly described in section "THE SCORE TABLE". Some
;; parameters may be modified if you want to change the style exhibited by the
;; program.
+
+;;; Code:
\f
;;;
;;; GOMOKU MODE AND KEYMAP.
;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
+;; Author: Kyle Jones <talos!kjones@uunet.uu.net>
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1988 Free Software Foundation, Inc.
-;; Contributed by Kyle Jones, talos!kjones@uunet.uu.net
;; 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:
+
(defconst life-patterns
[("@@@" " @@" "@@@")
("@@@ @@@" "@@ @@ " "@@@ @@@")
;;; spook.el --- spook phrase utility for overloading the NSA line eater
;;; Maintainer: FSF
-;;; Last-modified: 05 Dec 1991
+;;; Last-Modified: 05 Dec 1991
;; Copyright (C) 1988 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,
;;; yow.el --- generate random zippyisms
;; Maintainer: FSF
-;; Last-modified: 14 Jun 1992
+;; Last-Modified: 14 Jun 1992
;; Copyright (C) 1985, 1987 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,
;;; c-mode.el --- C code editing commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 11 Jul 1992
+;; Keywords: c
+
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; 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 c-mode-abbrev-table nil
"Abbrev table in use in C mode.")
;;; cmacexp.el --- C macro expansion
+;; Maintainer: FSF
+;; Last-Modified: 17 Apr 1992
+;; Keywords: c
+
;; 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 c-macro-preprocessor "/lib/cpp"
"*Command to be used for C preprocessing.")
-;; Tags facility for Emacs.
+;; etags.el --- etags facility for Emacs
+
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Keywords: tools
+
;; Copyright (C) 1985, 1986, 1988, 1989, 1991, 1992
;; Free Software Foundation, Inc.
;; 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 tags-file-name nil "\
*File name of tags table.
;;;###autoload (define-key esc-map "?" 'complete-tag) ;? XXX
\f
(provide 'etags)
+
+;;; etags.el ends here
-;;; fortran.el --- Fortran mode for GNU Emacs (version 1.28.3, July 15, 1991)
+;;; fortran.el --- Fortran mode for GNU Emacs
+
+;; Author: Michael D. Prange <prange@erl.mit.edu>
+;; Maintainer: bug-fortran-mode@erl.mit.edu
+;; Version 1.28.3
+;; Last-Modified: 15 Jul 1991
;;; Copyright (c) 1991 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:
+
;;; Written by Michael D. Prange (prange@erl.mit.edu)
;;; Maintained (as of version 1.28) by Stephen A. Wood (saw@hallc1.cebaf.gov)
;;; This version is an update of version 1.21 (Oct 1, 1985).
;;; 14. When in tab mode, the fortran column ruler will not be correct if
;;; tab-width is not 8.
-;; 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.
-
;;; Author acknowledges help from Stephen Gildea <gildea@erl.mit.edu>
;;; Bugs to bug-fortran-mode@erl.mit.edu
+;;; Code:
+
;;;###autoload
(defvar fortran-tab-mode-default nil
"*Default tabbing/carriage control style for empty files in fortran mode.
;;; icon.el --- mode for editing Icon code
-;; Note: use
-;; (autoload 'icon-mode "icon" nil t)
-;; (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist))
-;; if not permanently installed in your emacs
+;; Author: Chris Smith <convex!csmith>
+;; Created: 15 Feb 89
+;; Last-Modified: 06 Mar 1991
-;; Icon code editing commands for Emacs
-;; Derived from c-mode.el 15-Feb-89 Chris Smith convex!csmith
;; Copyright (C) 1989 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:
+
+;; Note: use
+;; (autoload 'icon-mode "icon" nil t)
+;; (setq auto-mode-alist (cons '("\\.icn$" . icon-mode) auto-mode-alist))
+;; if not permanently installed in your emacs
+
+;;; Code:
(defvar icon-mode-abbrev-table nil
"Abbrev table in use in Icon-mode buffers.")
;;; prolog.el --- major mode for editing and running Prolog under Emacs
+;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Last-Modified: 08 May 1989
+
;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
-;; Author Masanobu UMEDA (umerin@flab.flab.fujitsu.junet)
;; 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 prolog-mode-syntax-table nil)
(defvar prolog-mode-abbrev-table nil)
(defvar prolog-mode-map nil)
;;; scheme.el --- Scheme mode, and its idiosyncratic commands.
+;; Author: Bill Rozas <jinz@prep.ai.mit.edu>
+;; Last-Modified: 16 Mar 1992
+
+;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
+
;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
-;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
;; 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:
+;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
;; Initially a query replace of Lisp mode, except for the indentation
;; of special forms. Probably the code should be merged at some point
;; so that there is sharing between both libraries.
-;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $
-
+;;; Code:
\f
(defvar scheme-mode-syntax-table nil "")
(if (not scheme-mode-syntax-table)
;;; rect.el --- rectangle functions for GNU Emacs.
;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1985 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,
;;; register.el --- register commands for Emacs.
;; Maintainer: FSF
-;; Last-Modified: 9 Jul 1992
+;; Last-Modified: 09 Jul 1992
;; Copyright (C) 1985 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,
;;; reposition.el --- center a Lisp function or comment on the screen
+;; Author: Michael D. Ernst <mernst@theory.lcs.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 13 May 1991
+
;; Copyright (C) 1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; 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:
+
;;; Written by Michael D. Ernst, mernst@theory.lcs.mit.edu, Jan 1991.
;;; Reposition-window makes an entire function definition or comment visible,
;;; after one of the same name in ZMACS, but the code is all-new and the
;;; behavior in some situations differs.
+;;; Code:
+
;;;###autoload
(defun reposition-window (&optional arg)
"Make the current definition and/or comment visible.
;;; rot13.el --- display a buffer in rot13.
+;; Author: Howard Gayle:
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; 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.
+;; Commentary:
;; Written by Howard Gayle. See case-table.el for details.
;; This hack is mainly to show off the char table stuff.
+;;; Code:
+
(defvar rot13-display-table
(let ((table (make-display-table))
(i 0))
;;; server.el --- Lisp code for GNU Emacs running as server process.
;; Author: William Sommerfeld <wesommer@athena.mit.edu>
-;; Last-Modified: 5 Dec 1991
+;; Last-Modified: 05 Dec 1991
;; Changes by peck@sun.com and by rms.
;; 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,
;;; 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,
;;; The variables and functions that were changed to have "cmushell-"
;;; prefixes are:
;;; shell-directory-stack (v), shell-directory-tracker (f)
-;;; This should not affect users, only elisp hackers. Hopefully
+;;; This should not affect users, only Emacs Lisp hackers. Hopefully
;;; one day shell.el will just go away, and we can drop all this
;;; "cmushell" bullshit.
;;; - Upgraded process sends to use comint-send-string instead of
;;; sort.el --- commands to sort text in an Emacs buffer.
+;; Author: Howie Kaye
+;; Maintainer: FSF
+;; Last-Modified: 28 Aug 1990
+
;; Copyright (C) 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)
+;; 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.
-;; Original version of most of this contributed by Howie Kaye
+;;; Code:
(defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
"General text sorting routine to divide buffer into records and sort them.
;;; sun-cursors.el --- cursor definitions for Sun windows
+;; Author: Jeff Peck <peck@sun.com>
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 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)
+;; 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:
+
;;;
;;; Added some more cursors and moved the hot spots
;;; Cursor defined by 16 pairs of 16-bit numbers
;;; sun-fns.el --- subroutines of Mouse handling for Sun windows
+;; Author: Jeff Peck <peck@sun.com>
+;; Last-Modified: 14 Aug 1987
+
;; Copyright (C) 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)
+;; 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:
+
;;; Submitted Mar. 1987, Jeff Peck
;;; Sun Microsystems Inc. <peck@sun.com>
;;; Conceived Nov. 1986, Stan Jefferson,
;;; GoodIdeas Feb. 1987, Steve Greenbaum
;;; & UpClicks Reasoning Systems, Inc.
;;;
-(require 'sun-mouse)
;;;
;;; Functions for manipulating via the mouse and mouse-map definitions
;;; for accessing them. Also definitons of mouse menus.
;;; bind the mouse button to an s-exp that contains the necessary parameters.
;;; See "minibuffer" bindings for examples.
;;;
+
+;;; Code:
+
+(require 'sun-mouse)
+
(defconst cursor-pause-milliseconds 300
"*Number of milliseconds to display alternate cursor (usually the mark)")
;;; sun-keys.el --- support for Sun function keys
-;;; Support (cleanly) for Sun function keys. Provides help facilities,
-;;; better diagnostics, etc.
-;;;
-;;; To use: make sure your .ttyswrc binds 'F1' to <ESC> * F1 <CR> and so on.
-;;; load this lot from your start_up
-;;;
-;;;
-;;; Copyright (C) 1986 Free Software Foundation, Inc.
+;; Author: Ian G. Batten <batten@uk.ac.bham.multics>
+;; Last-Modified: 30 May 1992
+
+;;; Copyright (C) 1986 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,
;; 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:
+
+;;; Support (cleanly) for Sun function keys. Provides help facilities,
+;;; better diagnostics, etc.
;;;
-;;; Batten@uk.ac.bham.multics (Ian G. Batten)
-;;;
+;;; To use: make sure your .ttyswrc binds 'F1' to <ESC> * F1 <CR> and so on.
+;;; load this lot from your start_up
+
+;;; Code:
(defun sun-function-keys-dispatch (arg)
"Dispatcher for function keys."
;;; tabify.el --- tab conversion commands for Emacs
;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1985 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,
;;; tar-mode.el --- simple editing of tar files from GNU emacs
;; Author: Jamie Zawinski <jwz@lucid.com>
-;; Created: 4 Apr 1990
+;; Created: 04 Apr 1990
;; Version: 1.21
;; Last-Modified: 10 Mar 1991
;;;
;;; 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,
;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
+;; Author: John Robinson <jr@bbn-unix.arpa>
+;; Stephen Gildea <gildea@bbn.com>
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+;; Keywords: hardware
+
;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
-;; Time stamp <89/03/21 14:27:08 gildea>
;; 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:
;;; Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
;;; Modularized and enhanced by gildea@bbn.com Nov 1987
+;;; Time stamp <89/03/21 14:27:08 gildea>
;;; User customization option:
(interactive "P")
(bg-get-tty-num semicolon)
(let*
- ((screen-mouse-x (min (1- (screen-width)) ;don't hit column 86!
+ ((screen-mouse-x (min (1- (frame-width)) ;don't hit column 86!
(/ (bg-get-tty-num semicolon) 9)))
- (screen-mouse-y (- (1- (screen-height)) ;assume default font size.
+ (screen-mouse-y (- (1- (frame-height)) ;assume default font size.
(/ (bg-get-tty-num semicolon) 16)))
(bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
(bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
;;; sun-mouse.el --- mouse handling for Sun windows
+;; Author: Jeff Peck
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
;; Copyright (C) 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)
+;; 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:
+
;;; Jeff Peck, Sun Microsystems, Jan 1987.
;;; Original idea by Stan Jefferson
;;; extra-click-wait, scrollbar-width
;;;
+;;; Code:
+
(defvar extra-click-wait 150
"*Number of milliseconds to wait for an extra click.
Set this to zero if you don't want chords or double clicks.")
-;;; sup-mouse.el --- GNU Emacs code for lambda/supdup mouse
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; ;;
-;; File: sup-mouse.el ;;
-;; Author: Wolfgang Rupprecht ;;
-;; Created: Fri Nov 21 19:22:22 1986 ;;
-;; Contents: supdup mouse support for lisp machines ;;
-;; ;;
-;; (from code originally written by John Robinson@bbn for the bitgraph) ;;
-;; ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; sup-mouse.el --- supdup mouse support for lisp machines
+
+;; Author: Wolfgang Rupprecht
+;; Maintainer: FSF
+;; Created: 21 Nov 1986
+;; Last-Modified: 16 Mar 1992
+
+;; (from code originally written by John Robinson@bbn for the bitgraph)
;; Copyright (C) Free Software Foundation 1985, 1986
;; 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:
+
;;; User customization option:
(defvar sup-mouse-fast-select-window nil
;;; terminal.el --- terminal emulator for GNU Emacs.
+;; Author: Richard Mlynarik <mly@eddie.mit.edu>
+;; Maintainer: FSF
+;; Last-Modified: 05 May 1992
+
;; Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
-;; Written by Richard Mlynarik, November 1986.
;; 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:
+
;;>>TODO
;;>> terminfo?
;;>> ** Nothing can be done about emacs' meta-lossage **
;;; bib-mode.el --- bib-mode, major mode for editing bib files.
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+;; Keywords: bib
+
;; Copyright (C) 1989 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:
;; Bib-Mode
;; GNU Emacs code to help maintain databases compatible with (troff)
;;; bibtex.el --- BibTeX mode for GNU Emacs
-;; Copyright (C) 1985, 1986, 1987, 1990 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,
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 92.2.11
-;;; * Fixed bibtex-field string to allow things like:
-;;; author = "{S}schr\"odinger" or
-;;; author = "{S}schr\"{o}dinger" or
-;;; author = "{S}schr{\"o}dinger" or
-;;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
-;;; NOTE: This is the last update I plan to do.
-;;; NOTE: the previous version was submitted and, according to RMS,
-;;; accepted as the release version for ver 19.
-;;; NOTE: PLEASE DO NOT SEND ME ANY MORE 'PLEASE ADD THIS' MESSAGES.
-;;; NOTE: I am no longer taking care of this package.
-;;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
-
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 91.1.24
-;;; * bibtex-make-optional-field : modified to make fields align up after
-;;; the OPT's have been removed.
-;;; * bibtex-make-optional-field : modified to check bibtex-use-OPT-prefix
-;;; * bibtex-make*field : modified to call new procedure:
-;;; * bibtex-insert-field-delimeters : which does delimeter insertion based on
-;;; * bibtex-curly-delimeters : a list of atoms
-;;; * fixed spelling of bibtex-name-alignment wherever used
-;;; * bibtex-inside-field : allows '}'s at end
-;;; * bibtex-find-text : allows '{' and '}'s at start or end
-;;; * bibtex-enclosing-regexp fixed for case where start-point was at end of
-;;; pattern.
-;;; * bibtex-clean-entry : allow bibtex-save-OPT to save some optional fields
-;;; * bibtex-move-outside-of-entry : could overwrite first line of a following
-;;; comment or other text if it did not look like a bibtex entry
-
-;;; Mike Newton (newton@gumby.cs.caltech.edu) 91.1.20
-;;; * bibtex.el/bibtex-mode : updated comments to indicate new use of
-;;; address, add minor explanations and fix small omissions.
-;;; * bibtex.el/bibtex-entry : fixed spelling of variable
-
+;;; (current keeper: shapiro@corto.inria.fr)
+
+;;; alarson@src.honeywell.com 92-Jan-31
+;;; Added support for: ispell, beginning/end of entry movement, a simple
+;;; outline like mode (hide the bodies of bibtex entries), support for
+;;; sorting bibtex entries, and maintaining them in sorted order, and
+;;; simple buffer validation.
+;;; User visible functions added:
+;;; ispell-{abstract,bibtex-entry}, {beginning,end}-of-bibtex-entry
+;;; hide-bibtex-entry-bodies, sort-bibtex-entries, validate-bibtex-
+;;; buffer, find-bibtex-duplicates
+;;; user visible variables added:
+;;; bibtex-maintain-sorted-entries
+;;; new local keybindings:
+;;; " TeX-insert-quote
+;;; C-c$ ispell-bibtex-entry
+;;; M-C-a beginning-of-bibtex-entry
+;;; M-C-e end-of-bibtex-entry
;;; Mike Newton (newton@gumby.cs.caltech.edu) 90.11.17
;;; * Handle items like
;;; title = poft # "Fifth Tri-quaterly" # random-conf,
;;; * fixed 'bibtex-find-it's doc string's location
;;; * bibtex-field-text made more general (it wouldnt handle the # construct)
;;; and it now handles a small subset of the {} cases
-;;; * put DEA thesis back in (why get rid of good code?)
-;;; * merged into release 19 version code
-;;; * if cross-ref'ing is on, put 'pages' near top of OPTs, as the other
-;;; entries are unlikely to be used.
-;;; * skip-whitespace replaced by skip-chars-forward (also done
-;;; by Marc Shairo)
;;; Bengt Martensson, March 6
;;; Adapted to Bibtex 0.99 by updating the optional fields according
;;; to the document BibTeXing, Oren Patashnik, dated January 31, 1988.
-;;; Updated documentation strings accordingly. Added .
+;;; Updated documentation strings accordingly. Added (provide 'bibtex).
;;; If bibtex-include-OPT-crossref is non-nil, every entry will have
;;; an OPTcrossref field, analogously for bibtex-include-OPTkey and
;;; bibtex-include-OPTannote. Added bibtex-preamble, bound to ^C^EP,
;;; correctly, BibTeX 0.99 broke it.)
;;; Added bibtex-clean-entry-zap-empty-opts, defvar'd to t. If it
;;; is nil, bibtex-clean-entry will leave empty optional fields alone.
-
+
;;; Marc Shapiro 1-feb-89: integrated changes by Bengt Martensson 88-05-06:
;;; Added Sun menu support. Locally bound to right mouse button in
;;; bibtex-mode. Emacs 18.49 allows local mouse bindings!!
;;; Commented out DEAthesis.
;;; Marc Shapiro 6-oct-88
+;;; * skip-whitespace replaced by skip-chars-forward
;;; * use indent-to-column instead of inserting tabs (changes to
;;; bibtex-entry, bibtex-make-entry, bibtex-make-OPT-entry, renamed to
;;; bibtex-make-optional-entry)
;;; * bibtex-clean-entry signals mandatory fields left empty.
;;; Marc Shapiro 18-jul-88
+;;; * Fixed bug in bibtex-flash-entry
;;; * Moved all the entry type keystrokes to "C-c C-e something" (instead of
;;; "C-c something" previously) to make room for more. C-c C-e is
;;; supposed to stand for "entry" [idea taken from mail-mode]. Moved
;;; run-hooks
;;; Bengt Martensson <ubrinf!mond!bengt> 87-06-28
-;;; (Bengt Martensson <bengt@mathematik.uni-Bremen.de> 87-06-28)
+;;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> 87-06-28
;;; Original version
;;; NOTE by Marc Shapiro, 14-dec-87:
;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding,
;;; so it will remain active in all windows. Yuck!
+(provide 'bibtex)
+
+;;; these guys typically don't have autoloads...[alarson:19920131.1548CST]
+(if (not (fboundp 'TeX-insert-quote))
+ (autoload 'TeX-insert-quote "tex-mode"))
+(if (not (fboundp 'sort-subr))
+ (autoload 'sort-subr "sort"))
+
+
+
(defvar bibtex-mode-syntax-table nil "")
(defvar bibtex-mode-abbrev-table nil "")
(define-abbrev-table 'bibtex-mode-abbrev-table ())
(defvar bibtex-mode-map (make-sparse-keymap) "")
+
(defvar bibtex-pop-previous-search-point nil
"Next point where bibtex-pop-previous should start looking for a similar
entry.")
+
(defvar bibtex-pop-next-search-point nil
"Next point where bibtex-pop-next should start looking for a similar
entry.")
(defvar bibtex-clean-entry-zap-empty-opts t
"*If non-nil, bibtex-clean-entry will delete all empty optional fields.")
+
(defvar bibtex-include-OPTcrossref t
"*If non-nil, all entries will have an OPTcrossref field.")
(defvar bibtex-include-OPTkey t
"*If non-nil, all entries will have an OPTkey field.")
(defvar bibtex-include-OPTannote t
"*If non-nil, all entries will have an OPTannote field.")
-(defvar bibtex-use-OPT-prefix t
- "*If non-nil, put OPT string before optionals. Usually desired!")
-(defvar bibtex-save-OPT nil
- "*List of atoms (representing strings) which are optional fields that
-should not be deleted if null.")
-(defvar bibtex-curly-delimeters nil
- "List of atoms representing strings (in any case) that should have curly
-braces used as their delimeters instead of double quotes.")
-
;; note: the user should be allowed to have their own list of always
;; available optional fields. exs: "keywords" "categories"
+
(defvar bibtex-mode-user-optional-fields nil ;no default value
"*List of optional fields that user want to have as always present
when making a bibtex entry. One possibility is for ``keywords''")
;; key = {Volume-2},
;; note = "Volume~2 is listed under Knuth \cite{book-full}"
;; i have added a few of these, but not all! -- MON
-;; 92.2.11: also must handle:
-;; author = "{S}schr\"odinger" or
-;; author = "{S}schr\"{o}dinger" or
-;; author = "{S}schr{\"o}dinger" or
-
(defconst bibtex-field-const
"[0-9A-Za-z][---A-Za-z0-9:_+]*"
"Format of a bibtex field constant.")
-(defconst bibtex-field-string ;;was:(concat "\"[^\"]*[^\\\\]\"\\|\"\"")
+(defconst bibtex-field-string
(concat
- "\"\\([^\"]*[\\\\][\"]\\)*[^\"]*[^\\\\]\""
- "\\|" ;ie: OR
- "\"\""
- "\\|" ;ie: OR
- "\"[^\"]*[^\\\\]\"")
- "Match either a \"-d string or an empty string or a plain string.")
+ "\"[^\"]*[^\\\\]\"\\|\"\"")
+ "Match either a string or an empty string.")
+
(defconst bibtex-field-string-or-const
(concat bibtex-field-const "\\|" bibtex-field-string)
"Match either bibtex-field-string or bibtex-field-const.")
-;(defconst bibtex-field-text
-; "\"[^\"]*[^\\\\]\"\\|\"\"\\|[0-9A-Za-z][---A-Za-z0-9:_+]*"
-; "Regexp defining the text part of a bibtex field: either a string, or an empty string, or a constant.")
-
(defconst bibtex-field-text
(concat
"\\(" bibtex-field-string-or-const "\\)"
"\\([ \t\n]+#[ \t\n]+\\(" bibtex-field-string-or-const "\\)\\)*\\|"
- "{[^{}]*[^\\\\]}" "\\|" "{}")
+ "{[^{}]*[^\\\\]}")
"Regexp defining the text part of a bibtex field: either a string, or
an empty string, or a constant followed by one or more # / constant pairs.
-Also matches simple {...} patterns, including the special case {}.")
+Also matches simple {...} patterns.")
+
+;(defconst bibtex-field-text
+; "\"[^\"]*[^\\\\]\"\\|\"\"\\|[0-9A-Za-z][---A-Za-z0-9:_+]*"
+; "Regexp defining the text part of a bibtex field: either a string, or an empty string, or a constant.")
(defconst bibtex-field
(bibtex-cfield bibtex-field-name bibtex-field-text)
(defconst bibtex-reference-type
"@[A-Za-z]+"
"Regexp defining the type part of a bibtex reference entry")
-
(defconst bibtex-reference-head
(concat "^[ \t]*\\("
bibtex-reference-type
"The regexp subexpression number of the key part in
bibtex-reference")
-;;; string definitions. note bibtex-string is a constant and a defun !
+;;; strings
(defconst bibtex-string
(concat "^[ \t]*@[sS][tT][rR][iI][nN][gG][ \t\n]*[({][ \t\n]*\\("
bibtex-field-name
bibtex-field-text
"\\)[ \t\n]*[})]")
"Regexp defining the format of a bibtex string entry")
-
(defconst bibtex-name-in-string 1
"The regexp subexpression of the name part in bibtex-string")
(defconst bibtex-text-in-string 2
"The regexp subexpression of the text part in bibtex-string")
-(defconst bibtex-name-alignment 2
+(defconst bibtex-name-alignement 2
"Alignment for the name part in BibTeX fields.
Chosen on aesthetic grounds only.")
Fields:
address
- Publisher's address, or for conference, location held
+ Publisher's address
annote
Long annotation used for annotated bibliographies (begins sentence)
author
Book title when the thing being referenced isn't the whole book.
For book entries, the title field should be used instead.
chapter
- Chapter number (or section or whatever).
+ Chapter number
crossref
The database key of the entry being cross referenced.
edition
- Edition of a book (e.g., \"second\")
+ Edition of a book (e.g., ""second"")
editor
Name(s) of editor(s), in BibTeX name format.
If there is also an author field, then the editor field should be
journal
Journal name (macros are provided for many)
key
- Alphabetizing, labeling and cross-refing key (needed when no
- author or editor)
+ Alphabetizing and labeling key (needed when no author or editor)
month
Month (macros are provided)
note
title
The title of the thing being referenced
type
- Type of a technical report (e.g., \"Research Note\") to be used
- instead of the default \"Technical Report\"
+ Type of a technical report (e.g., ""Research Note"") to be used
+ instead of the default ""Technical Report""
volume
Volume of a journal or multivolume work
year
(define-key bibtex-mode-map "\C-c\C-k" 'bibtex-kill-optional-field)
(define-key bibtex-mode-map "\C-c\C-d" 'bibtex-empty-field)
+ ;; [alarson:19920131.1543CST]
+ (define-key bibtex-mode-map "\"" 'TeX-insert-quote)
+ (define-key bibtex-mode-map "\C-c$" 'ispell-bibtex-entry)
+ (define-key bibtex-mode-map "\M-\C-a" 'beginning-of-bibtex-entry)
+ (define-key bibtex-mode-map "\M-\C-e" 'end-of-bibtex-entry)
+
(define-key bibtex-mode-map "\C-c\C-e\C-a" 'bibtex-Article)
(define-key bibtex-mode-map "\C-c\C-e\C-b" 'bibtex-Book)
(define-key bibtex-mode-map "\C-c\C-e\C-d" 'bibtex-DEAthesis)
(t
(backward-paragraph)
(forward-paragraph)))
- (re-search-forward "[ \t\n]*" (point-max) t)
- (insert "\n")
- (forward-char -1))
+ (re-search-forward "[ \t\n]*" (point-max) t))
+
+(defun ispell-abstract ()
+ (interactive)
+ (beginning-of-bibtex-entry)
+ (re-search-forward "^[ \t]*[OPT]*abstract[ \t]*=")
+ (ispell-region (point)
+ (save-excursion (forward-sexp) (point))))
+
+(defun beginning-of-bibtex-entry ()
+ (interactive)
+ (re-search-backward "^@" nil 'move))
+
+(defun end-of-bibtex-entry ()
+ (interactive)
+ (re-search-forward "}$" nil 'move))
+
+(defun ispell-bibtex-entry ()
+ (interactive)
+ (ispell-region (progn (beginning-of-bibtex-entry) (point))
+ (progn (end-of-bibtex-entry) (point))))
+
+(defun narrow-to-bibtex-entry ()
+ (interactive)
+ (save-excursion
+ (narrow-to-region (progn (beginning-of-bibtex-entry) (point))
+ (progn (end-of-bibtex-entry) (point)))))
+
+
+(defun beginning-of-first-bibtex-entry ()
+ (goto-char (point-min))
+ (cond
+ ((re-search-forward "^@" nil 'move)
+ (beginning-of-line))
+ ((and (bobp) (eobp))
+ nil)
+ (t
+ (message "Warning: No bibtex entries found!"))))
+
+(defun hide-bibtex-entry-bodies (&optional arg)
+ "Hide all lines between first and last bibtex entries not beginning with @.
+With argument, show all text."
+ (interactive "P")
+ (beginning-of-first-bibtex-entry)
+ ;; subst-char-in-region modifies the buffer, despite what the
+ ;; documentation says...
+ (let ((modifiedp (buffer-modified-p))
+ (buffer-read-only nil))
+ (if arg
+ (subst-char-in-region (point) (point-max) ?\r ?\n t)
+ (while (save-excursion (re-search-forward "\n[^@]" (point-max) t))
+ (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))))
+ (setq selective-display (not arg))
+ (set-buffer-modified-p modifiedp)))
+
+(defun sort-bibtex-entries ()
+ "Sort bibtex entries alphabetically by key.
+Text before the first bibtex entry, and following the last is not effected.
+Bugs:
+ 1. Text between the closing brace ending one bibtex entry, and the @ starting
+ the next, is considered part of the PRECEEDING entry. Perhaps it should be
+ part of the following entry."
+ (interactive)
+ (save-restriction
+ (beginning-of-first-bibtex-entry)
+ (narrow-to-region (point)
+ (save-excursion
+ (goto-char (point-max))
+ (beginning-of-bibtex-entry)
+ (end-of-bibtex-entry)
+ (point)))
+ (sort-subr nil ; reversep
+ ;; begining of record function
+ 'forward-line
+ ;; end of record function
+ (function (lambda () (and (re-search-forward "}[ \t]*\n[\n \t]*@" nil 'move)
+ (forward-char -2))))
+ ;; start of key function
+ (function (lambda () (re-search-forward "{[ \t]*") nil))
+ ;; end of key function
+ (function (lambda () (search-forward ",")))
+ )))
+
+(defun map-bibtex-entries (fun)
+ "Call FUN for each bibtex entry starting with the current, to the end of the file.
+FUN is called with one argument, the key of the entry, and with point inside the entry."
+ (beginning-of-bibtex-entry)
+ (while (re-search-forward "^@[^{]*{[ \t]*\\([^,]*\\)" nil t)
+ (funcall fun (buffer-substring (match-beginning 1) (match-end 1)))))
+
+(defun find-bibtex-entry-location (entry-name)
+ (interactive "sBibtex entry key: ")
+ "Searches from beginning of current buffer looking for place to put the
+bibtex entry named ENTRY-NAME. Buffer is assumed to be in sorted order,
+without duplicates (see \\[sort-bibtex-entries]), if it is not, an error will
+be signalled."
+ (let ((previous nil)
+ point)
+ (beginning-of-first-bibtex-entry)
+ (or (catch 'done
+ (map-bibtex-entries (function (lambda (current)
+ (cond
+ ((string-equal entry-name current)
+ (error "Entry duplicates existing!"))
+ ((or (null previous)
+ (string< previous current))
+ (setq previous current
+ point (point))
+ (if (string< entry-name current)
+ (progn
+ (beginning-of-bibtex-entry)
+ ;; Many schemes append strings to
+ ;; existing entries to resolve them,
+ ;; so initial substring matches may
+ ;; indicate a duplicate entry.
+ (let ((idx (string-match (regexp-quote entry-name) current)))
+ (if (and (integerp idx)
+ (zerop idx))
+ (progn
+ (message "Warning: Entry %s may be a duplicate of %s!"
+ entry-name current)
+ (ding t))))
+ (throw 'done t))))
+ ((string-equal previous current)
+ (error "Duplicate here with previous!"))
+ (t (error "Entries out of order here!")))))))
+ (end-of-bibtex-entry))))
+
+(defun validate-bibtex-buffer ()
+ "Find some typical errors in bibtex files.
+ 1. At signs (@) not as first char of a line.
+ 2. Double quotes (\") inside strings.
+ 3. Closing braces (}) not the last character of a line."
+ (interactive)
+ (let ((point (point)))
+ (while (re-search-forward ".@" nil t)
+ (let* ((foo (parse-partial-sexp (save-excursion (beginning-of-bibtex-entry)
+ (point))
+ (point)))
+ (in-a-string (nth 3 foo)))
+ (if (not in-a-string)
+ (error "At sign (@) out of place!"))))
+ (goto-char point)
+ (while (search-forward "\"" nil t)
+ (or (looking-at "[,}][ \t]*$")
+ ;; some versions put closing brace on separate line.
+ (looking-at "[ \t]*\n}")
+ (save-excursion
+ (save-restriction
+ (narrow-to-region (point)
+ (progn (beginning-of-line) (point)))
+ (looking-at "^[ \t]*[a-zA-Z]+[ \t]*=[ \t]*\"$")))
+ (error "Quote out of place, or missing \",\" or \"}\"!")))
+ (goto-char point)
+ ;; This is only approximate, should actually search for close braces,
+ ;; then see if they are inside a string, or at the end of a line.
+ ;; This just gets the typical case of whitespace after a closing brace.
+ (while (search-forward "}[ \t]+$" nil t)
+ (error "Brace not last char of line!"))
+ (goto-char point)
+ (message "Bibtex buffer appears o.k.")))
+
+(defun find-bibtex-duplicates ()
+ "Searches forward in current buffer looking for duplicate bibtex entries.
+Buffer is assumed to be sorted, see \\[sort-bibtex-entries]"
+ (interactive)
+ (let ((point (point)))
+ ;; errors if things are not right...
+ (find-bibtex-entry-location (make-string 10 255))
+ (goto-char point)
+ (message "No duplicates found!")))
+
+
+(defvar bibtex-maintain-sorted-entries nil
+ "*If true, bibtex-mode will attempt to maintain all bibtex entries in
+sorted order.")
;;
;; note: this should really take lists of strings OR of lists. in the
;;
(defun bibtex-entry (entry-type required optional)
- (bibtex-move-outside-of-entry)
- (insert "@" entry-type "{")
- (mapcar 'bibtex-make-field required)
- (if bibtex-include-OPTcrossref
- (bibtex-make-optional-field "crossref"))
- (if bibtex-include-OPTkey
- (bibtex-make-optional-field "key"))
- (mapcar 'bibtex-make-optional-field optional)
- (if bibtex-mode-user-optional-fields ;MON...
- (mapcar 'bibtex-make-optional-field
- bibtex-mode-user-optional-fields))
- (if bibtex-include-OPTannote
- (bibtex-make-optional-field "annote"))
- (insert "\n}\n\n")
- (forward-char -3)
- (up-list -1)
- (forward-char 1))
-
-(defun bibtex-insert-field-delimeters (str)
- "Insert double quotes (default) or, if STR is in the list
-bibtex-curly-delimeters, insert curly brackets."
- (if (and (boundp 'bibtex-curly-delimeters)
- bibtex-curly-delimeters
- (memq (car (read-from-string (downcase str)))
- bibtex-curly-delimeters))
- (insert "\{\}")
- (insert "\"\"")))
+ (let (key)
+ (if bibtex-maintain-sorted-entries
+ (progn
+ (setq key (read-string (format "%s key: " entry-type)))
+ (find-bibtex-entry-location key)))
+ (bibtex-move-outside-of-entry)
+ (insert "@" entry-type "{")
+ (mapcar 'bibtex-make-field required)
+ (if bibtex-include-OPTcrossref
+ (bibtex-make-optional-field "crossref"))
+ (if bibtex-include-OPTkey
+ (bibtex-make-optional-field "key"))
+ (mapcar 'bibtex-make-optional-field optional)
+ (if bibtex-mode-user-optional-fields ;MON...
+ (mapcar 'bibtex-make-optional-field
+ bibtex-mode-user-optional-fields))
+ (if bibtex-include-OPTannote
+ (bibtex-make-optional-field "annote"))
+ (insert "\n}\n\n")
+ (forward-char -3)
+ (up-list -1)
+ (forward-char 1)
+ (if key
+ (progn
+ (insert key)
+ (bibtex-next-field t)))))
+
+;; (defun bibtex-entry (entry-type required optional)
+;; (bibtex-move-outside-of-entry)
+;; (insert (concat "@" entry-type "{,\n\n}\n\n"))
+;; (previous-line 3)
+;; (insert (mapconcat 'bibtex-make-entry required ",\n"))
+;; (if required
+;; (if optional
+;; (insert ",\n")))
+;; (insert (mapconcat 'bibtex-make-OPT-entry optional ",\n"))
+;; (if bibtex-mode-user-optional-fields ;MON...
+;; (progn
+;; (if optional
+;; (insert ",\n"))
+;; (insert (mapconcat 'bibtex-make-OPT-entry
+;; bibtex-mode-user-optional-fields
+;; ",\n")))) ;MON
+;; (up-list -1)
+;; (forward-char 1))
+
(defun bibtex-make-field (str)
(interactive "sBibTeX entry type: ")
(insert ",\n")
- (indent-to-column bibtex-name-alignment)
+ (indent-to-column bibtex-name-alignement)
(insert str " = ")
(indent-to-column bibtex-text-alignment)
- (bibtex-insert-field-delimeters str)
+ (insert "\"\"")
nil)
-;; modified to make fields align up _after_ the OPT's have been removed
-
(defun bibtex-make-optional-field (str)
(interactive "sOptional BibTeX entry type: ")
(insert ",\n")
- (indent-to-column bibtex-name-alignment)
- (insert str " = ")
- (indent-to-column bibtex-text-alignment) ;align nicely, then,...
- (bibtex-insert-field-delimeters str)
- (if bibtex-use-OPT-prefix
- (progn
- (beginning-of-line)
- (move-to-column bibtex-name-alignment) ;go back to name and put in OPT
- (insert "OPT")
- (end-of-line)))
+ (indent-to-column bibtex-name-alignement)
+ (insert "OPT" str " = ")
+ (indent-to-column bibtex-text-alignment)
+ (insert "\"\"")
nil)
;; What to do about crossref? if present, journal and year are
(bibtex-entry "Article" '("author" "title" "journal" "year")
'("volume" "number" "pages" "month" "note"))))
+
(defun bibtex-Book ()
(interactive)
(bibtex-entry "Book" '("author" "title" "publisher" "year")
- '("editor" "volume" "number" "series" "address"
- "edition" "month" "note")))
+ '("editor" "volume" "number" "series" "address"
+ "edition" "month" "note")))
(defun bibtex-Booklet ()
(interactive)
'("editor" "pages" "volume" "number" "series" "address"
"edition" "month" "type" "note"))))
-;; In next 2, for crossref case, put pages near beginning of
-;; optionals as it will be used most often -- MON
(defun bibtex-InCollection ()
(interactive)
(if bibtex-include-OPTcrossref
(bibtex-entry "InCollection" '("author" "title")
- '("pages" "booktitle" "publisher" "year"
+ '("booktitle" "publisher" "year"
"editor" "volume" "number" "series" "type" "chapter"
- "address" "edition" "month" "note"))
+ "pages" "address" "edition" "month" "note"))
(bibtex-entry "InCollection" '("author" "title"
"booktitle" "publisher" "year")
'("editor" "volume" "number" "series" "type" "chapter"
"pages" "address" "edition" "month" "note"))))
+
(defun bibtex-InProceedings ()
(interactive)
(if bibtex-include-OPTcrossref
(bibtex-entry "InProceedings" '("author" "title")
- '( "pages" "editor" "volume" "number" "series"
- "booktitle" "year"
- "organization" "publisher" "address" "month" "note"))
+ '("editor" "volume" "number" "series" "pages"
+ "booktitle" "year"
+ "organization" "publisher" "address" "month" "note"))
(bibtex-entry "InProceedings" '("author" "title" "booktitle" "year")
'("editor" "volume" "number" "series" "pages"
"organization" "publisher" "address" "month" "note"))))
+
(defun bibtex-Manual ()
(interactive)
(bibtex-entry "Manual" '("title")
(bibtex-entry "TechReport" '("author" "title" "institution" "year")
'("type" "number" "address" "month" "note")))
-
(defun bibtex-Unpublished ()
(interactive)
(bibtex-entry "Unpublished" '("author" "title" "note")
(forward-char 1))))
(bibtex-find-text arg))
+;; (defun bibtex-next-field ()
+;; "Finds end of text of next field."
+;; (interactive)
+;; (condition-case ()
+;; (progn
+;; (bibtex-inside-field)
+;; (re-search-forward ",[ \t\n]*" (point-max) 1)
+;; (bibtex-enclosing-field)
+;; (bibtex-inside-field))
+;; (error nil)))
+
(defun bibtex-find-text (arg)
"Go to end of text of current field; with arg, go to beginning."
(interactive "P")
(if arg
(progn
(goto-char (match-beginning bibtex-text-in-field))
- (if (or (looking-at "\"") (looking-at "{"))
+ (if (looking-at "\"")
(forward-char 1)))
(goto-char (match-end bibtex-text-in-field))
- (if (or (= (preceding-char) ?\") (= (preceding-char) ?}))
+ (if (= (preceding-char) ?\")
(forward-char -1))))
+;; (defun bibtex-find-text ()
+;; "Go to end of text of current field."
+;; (interactive)
+;; (condition-case ()
+;; (progn
+;; (bibtex-inside-field)
+;; (bibtex-enclosing-field)
+;; (goto-char (match-end bibtex-text-in-field))
+;; (bibtex-inside-field))
+;; (error nil)))
+
(defun bibtex-remove-OPT ()
"Removes the 'OPT' starting optional arguments and goes to end of text"
(interactive)
"Try to avoid point being at end of a bibtex field."
(interactive)
(end-of-line)
- (skip-chars-backward " \t") ;delete these chars? -- MON
+ (skip-chars-backward " \t") ;MON - maybe delete these chars?
(cond ((= (preceding-char) ?,)
(forward-char -1)))
- (cond ((or (= (preceding-char) ?\") (= (preceding-char) ?\}))
- (forward-char -1)))) ;only go back if quote
-
+ (cond ((= (preceding-char) ?\")
+ (forward-char -1)))) ;MON - only go back if quote
(defun bibtex-remove-double-quotes ()
"Removes """" around string."
(re-search-forward regexp right nil 1)
(if (> (match-beginning 0) initial)
(signal 'search-failed (list regexp)))
- (while (< (match-end 0) initial) ;<= --> < -- MON
+ (while (<= (match-end 0) initial)
(re-search-forward regexp right nil 1)
(if (> (match-beginning 0) initial)
(signal 'search-failed (list regexp))))
(looking-at "OPT")
bibtex-clean-entry-zap-empty-opts)
(goto-char begin-text)
- (if (and (looking-at "\"\"") ; empty: delete whole field
- (boundp 'bibtex-save-OPT)
- bibtex-save-OPT
- (not (memq (car (read-from-string
- (buffer-substring
- (+ begin-name 3)
- end-name)))
- bibtex-save-OPT)))
+ (if (looking-at "\"\"") ; empty: delete whole field
(delete-region begin-field end-field)
- ;; otherwise: not empty, delete "OPT"
+ ; otherwise: not empty, delete "OPT"
(goto-char begin-name)
(delete-char (length "OPT"))
(goto-char begin-field) ; and loop to go through next test
(equal (buffer-substring
begin-name
(+ begin-name 3))
- "opt")
- (memq (car (read-from-string
- (buffer-substring
- begin-name
- end-name)))
- bibtex-save-OPT)))
+ "opt")))
(error "Mandatory field ``%s'' is empty"
(buffer-substring begin-name end-name))))
(t
;; since we aren't interested. See etc/SUN-SUPPORT for the reasons why
;; we consider this nothing but a distraction from our work.
-(if (fboundp 'defmenu)
- (progn
-
-(defmenu bibtex-sun-entry-menu
- ("Article In Conf. Proc."
- (lambda () (eval-in-window *menu-window* (bibtex-InProceedings))))
- ("Article In Journal"
- (lambda () (eval-in-window *menu-window* (bibtex-Article))))
- ("Book"
- (lambda () (eval-in-window *menu-window* (bibtex-Book))))
- ("Booklet"
- (lambda () (eval-in-window *menu-window* (bibtex-Booklet))))
- ("Master's Thesis"
- (lambda () (eval-in-window *menu-window* (bibtex-MastersThesis))))
- ;;("DEA Thesis" bibtex-DEAthesis)
- ("PhD. Thesis"
- (lambda () (eval-in-window *menu-window* (bibtex-PhdThesis))))
- ("Technical Report"
- (lambda () (eval-in-window *menu-window* (bibtex-TechReport))))
- ("Technical Manual"
- (lambda () (eval-in-window *menu-window* (bibtex-Manual))))
- ("Conference Proceedings"
- (lambda () (eval-in-window *menu-window* (bibtex-Proceedings))))
- ("In A Book"
- (lambda () (eval-in-window *menu-window* (bibtex-InBook))))
- ("In A Collection"
- (lambda () (eval-in-window *menu-window* (bibtex-InCollection))))
- ("Miscellaneous"
- (lambda () (eval-in-window *menu-window* (bibtex-Misc))))
- ("Unpublished"
- (lambda () (eval-in-window *menu-window* (bibtex-Unpublished)))))
-
-(defmenu bibtex-sun-menu
- ("BibTeX menu")
- ("add entry" . bibtex-sun-entry-menu)
- ("add string"
- (lambda () (eval-in-window *menu-window* (bibtex-string))))
- ;("next field" bibtex-next-position)
- ;("to end of field" bibtex-find-it)
-; ("remove OPT"
-; (lambda () (eval-in-window *menu-window* (bibtex-remove-opt))))
-; ("remove quotes"
-; (lambda () (eval-in-window *menu-window* (bibtex-remove-double-quotes))))
-; ("remove this line"
-; (lambda () (eval-in-window *menu-window* (kill-current-line))))
- ("describe BibTeX mode"
- (lambda () (eval-in-window *menu-window* (describe-mode))))
- ("Main Emacs menu" . emacs-menu))
+(defmacro eval-in-menu-window (&rest l)
+ "Evaluates its argument in the window in which the mouse button was pressed."
+ (list 'eval-in-window '*menu-window* l))
+
+;(defmenu bibtex-sun-entry-menu
+; ("Article In Conf. Proc." eval-in-menu-window bibtex-InProceedings)
+; ("Article In Journal" eval-in-menu-window bibtex-Article)
+; ("Book" eval-in-menu-window bibtex-Book)
+; ("Booklet" eval-in-menu-window bibtex-Booklet)
+; ("Master's Thesis" eval-in-menu-window bibtex-MastersThesis)
+; ("PhD. Thesis" eval-in-menu-window bibtex-PhdThesis)
+; ("Technical Report" eval-in-menu-window bibtex-TechReport)
+; ("Technical Manual" eval-in-menu-window bibtex-Manual)
+; ("Conference Proceedings" eval-in-menu-window bibtex-Proceedings)
+; ("In A Book" eval-in-menu-window bibtex-InBook)
+; ("In A Collection" eval-in-menu-window bibtex-InCollection)
+; ("Miscellaneous" eval-in-menu-window bibtex-Misc)
+; ("Unpublished" eval-in-menu-window bibtex-Unpublished)
+; ("string" eval-in-menu-window bibtex-string)
+; ("preamble" eval-in-menu-window bibtex-preamble))
+;
+;(defmenu bibtex-sun-menu
+; ("BibTeX menu")
+; ("add entry" . bibtex-sun-entry-menu)
+; ("next field" eval-in-menu-window bibtex-next-field nil)
+; ("to end of field" eval-in-menu-window bibtex-find-text nil)
+; ("snatch similar preceding field" eval-in-menu-window bibtex-pop-previous 1)
+; ("snatch similar following field" eval-in-menu-window bibtex-pop-next 1)
+; ("remove OPT" eval-in-menu-window bibtex-remove-OPT)
+; ("remove quotes" eval-in-menu-window bibtex-remove-double-quotes)
+; ("clean entry" eval-in-menu-window bibtex-clean-entry)
+; ("describe BibTeX mode" eval-in-menu-window describe-mode)
+; ("Main Emacs menu" . emacs-menu))
(defun bibtex-sun-menu-eval (window x y)
"Pop-up menu of BibTeX commands."
(sun-menu-evaluate window (1+ x) (1- y) 'bibtex-sun-menu))
(defun bibtex-sun-environment ()
- "Set up sun menus for BibTeX mode. Call it as bibtex-mode-hook, or interactively"
+ "Set up sun menus for BibTeX mode. Call it as bibtex-mode-hook, or
+interactively"
(interactive)
(local-set-mouse '(text right) 'bibtex-sun-menu-eval))
-)) ; matches (if...
-
-(provide 'bibtex)
+;;; bibtex-mode.el ends here
-;;; bibtex.el ends here
;;; fill.el --- fill commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 24 Jun 1992
+
;; Copyright (C) 1985, 1986, 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.
+;;; Code:
(defconst fill-individual-varying-indent nil
"*Controls criterion for a new paragraph in `fill-individual-paragraphs'.
;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1985, 1986 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,
;;; outline.el --- outline mode commands for Emacs
+;; Maintainer: FSF
+;; Last-Modified: 10 Apr 1991
+
;; Copyright (C) 1986 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:
+
;; Jan '86, Some new features added by Peter Desnoyers and rewritten by RMS.
(defvar outline-regexp "[*\^l]+"
;;; page-ext.el --- page handling commands
-;;; by Robert J. Chassell
-
-;;; You may use these commands to handle an address list or other
-;;; small data base.
+;; Author: Robert J. Chassell <bob@gnu.ai.mit.edu>
+;; Last-Modified: 10 Apr 1991
;;; Copyright (C) 1990 Free Software Foundation
-;;; Please send bug reports to bob@ai.mit.edu
;; 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:
+
+;;; You may use these commands to handle an address list or other
+;;; small data base.
+
+;;; Change Log:
+
;;; Change Log ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Version 0.043
;;; 28 Jan 1990 - Initial definitions.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Code:
\f
;;;; Summary
;;; page.el --- page motion commands for emacs.
+;; Maintainer: FSF
+;; Last-Modified: 01 May 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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:
(defun forward-page (&optional count)
"Move forward to page boundary. With arg, repeat, or go back if negative.
;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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:
(defun move-to-column-force (column)
"Move to column COLUMN in current line.
;;; refbib.el --- convert refer-style references to ones usable by Latex bib
+;; Maintainer: FSF
+;; Last-Modified: 16 Mar 1992
+
;; Copyright (C) 1989 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:
+
;; Use: from a buffer containing the refer-style bibliography,
;; M-x r2b-convert-buffer
;; Program will prompt for an output buffer name, and will log
;; warnings during the conversion process in the buffer *Log*.
+;;; Change Log:
+
; HISTORY
; 9/88, created
; modified 1/19/89, allow books with editor but no author;
; modified 3/1/89, fixed capitialize-title for first words all caps
; modified 3/15/89, allow use of " to delimit fields
; modified 4/18/89, properly "quote" special characters on output
+
+;;; Code:
+
;**********************************************************
; User Parameters
;;; spell.el --- spelling correction interface for Emacs.
;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
+;; Last-Modified: 09 May 1991
;; Copyright (C) 1985 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,
;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
-;; Copyright (C) 1985, 1986, 1989, 1992 Free Software Foundation, Inc.
+;; Maintainer: Edward M. Reingold <reingold@cs.uiuc.edu>
+;; Last-Modified: 04 July 1992
+
;; Contributions over the years by William F. Schelter, Dick King,
;; Stephen Gildea, Michael Prange, and Edward M. Reingold.
-;; Latest revision (1992) by Edward M. Reingold <reingold@cs.uiuc.edu>.
+;; Copyright (C) 1985, 1986, 1989, 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.
+;;; Code:
+
(require 'comint)
(defvar tex-shell-file-name nil
;;;; texinfmt.el --- convert Texinfo files to Info files.
-;;;; Version 2.00 14 Dec 1990
+;; Author: Robert J. Chassell <bob@gnu.ai.mit.edu>
+;; Version: 2.00
+;; Last-Modified: 14 Dec 1990
;; Copyright (C) 1985, 1986, 1988, 1990 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.
+;;; Commentary:
+
;; Updated May 1990 to correspond, more or less, to version 2.8 of
;; texinfo.tex. NOTE: texinfmt.el is being phased out; it is being
;; replaced by makeinfo.c, which is faster and provides better error
;; checking.
;; Robert J. Chassell, bob@ai.mit.edu
+;;; Code:
+
(defvar texinfo-format-syntax-table nil)
(defvar texinfo-vindex)
;;;; texinfo.el ---- major mode for editing Texinfo files.
-;;;; Version 2.00 14 Dec 1990
+;; Author: Bob Chassell <bob@gnu.ai.mit.edu>
+;; Version: 2.00
+;; Last-Modified: 14 Dec 1990
;; Copyright (C) 1985, 1988, 1989, 1990 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:
+
(require 'texnfo-upd)
(require 'tex-mode)
(defvar texinfo-mode-syntax-table nil)
;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1988
+
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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
(defun underline-region (start end)
;;; time.el --- display time and load in mode line of Emacs.
+;; Maintainer: FSF
+;; Last-Modified: 09 Oct 1990
+
;; 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)
+;; 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 display-time-mail-file nil
"*File name of mail inbox file, for indicating existence of new mail.
;;; timer.el --- run a function with args at some time in future
+;; Maintainer: FSF
+;; Last-Modified: 19 Jan 1990
+
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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 timer-process nil)
(defvar timer-alist ())
(defvar timer-out "")
;;; uncompress.el --- auto-decompression hook for visiting .Z files
+;; Maintainer: FSF
+;; Last-Modified: 30 May 1988
+
;; 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.
+;;; Code:
+
;; When we are about to make a backup file,
;; uncompress the file we visited
;; so that making the backup can work properly.
;;; userlock.el --- handle file access contention between multiple users
+;;; Maintainer: FSF
+;;; Last-Modified: 26 May 1987
+
;; Copyright (C) 1985, 1986 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 file is autloaded to handle certain conditions
+;; This file is autoloaded to handle certain conditions
;; detected by the file-locking code within Emacs.
;; The two entry points are `ask-user-about-lock' and
;; `ask-user-about-supersession-threat'.
+;;; Code:
(put 'file-locked 'error-conditions '(file-locked file-error error))
;;; view.el --- peruse file or buffer without editing.
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
+;; Last-Modified: 21 Aug 1988
+
;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
;; 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 view-mode-map nil)
(if view-mode-map
;;; vms-patch.el --- override parts of files.el for VMS.
+;; Maintainer: FSF
+;; Last-Modified: 06 May 1992
+
;; Copyright (C) 1986 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:
;;; Functions that need redefinition
-;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
+;;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
+
+;; Author: Mukesh Prasad
+;; Maintainer: FSF
+;; Last-Modified: 29 Sep 1986
;; Copyright (C) 1986 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.
-;; Written by Mukesh Prasad.
+;;; Code:
(defvar display-subprocess-window nil
"If non-nil, the suprocess window is displayed whenever input is received.")
;;; vmsx.el --- run asynchronous VMS subprocesses under Emacs
+;; Author: Mukesh Prasad
+;; Maintainer: FSF
+;; Last-Modified: 29 Sep 1986
+
;; Copyright (C) 1986 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.
-;; Written by Mukesh Prasad.
+;;; Code:
(defvar display-subprocess-window nil
"If non-nil, the suprocess window is displayed whenever input is received.")
;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones.
+;; Author: Howard Gayle
+;; Maintainer: FSF
+
;; 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.
-
-;; Written by Howard Gayle.
+;;; Code:
(defvar led-state (make-vector 5 nil)
"The internal state of the LEDs. Choices are nil, t, `flash.
;; Maintainer: FSF
;; Last-Modified: 21 Jan 1987
+;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $
+
;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; 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,
;;; Code:
-;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $
-
(require 'scheme)
\f
(defvar scheme-program-name "scheme"
HCoop / bpt / emacs.git / commitdiff