mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Eric S. Raymond 1992-07-16 21:47:34 +00:00
parent de49a6d37e
commit e516799970
140 changed files with 1284 additions and 533 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/abbrev.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defconst only-global-abbrevs nil "\
*t means user plans to use global abbrevs only.
@ -152,7 +156,7 @@ Does not print anything."
(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
@ -160,7 +164,6 @@ The argument FILE is the file name to write."
(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

6
lisp/abbrevlist.el
View File

@ -1,5 +1,8 @@
;;; 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.
@ -7,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -19,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defun list-one-abbrev-table (abbrev-table output-buffer)
"Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."

16
lisp/ada.el
View File

@ -1,8 +1,8 @@
;;; 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.
@ -10,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -22,6 +22,14 @@
;; 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

12
lisp/apropos.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,10 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; 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
@ -43,6 +43,8 @@
;; 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

15
lisp/array.el
View File

@ -1,8 +1,8 @@
;;; 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.
@ -10,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -22,12 +22,19 @@
;; 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.
;;; Code:
;;; Internal information functions.

10
lisp/autoinsert.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,7 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; autoinsert.el
;;; Commentary:
;;; Abstract:
;;;
@ -49,6 +53,8 @@
;;;
;;; 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")

13
lisp/calendar/appt.el
View File

@ -1,12 +1,17 @@
;;; 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,
@ -18,12 +23,13 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;
;; 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
@ -99,6 +105,9 @@
;;; 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

11
lisp/case-table.el
View File

@ -1,4 +1,8 @@
;;; 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.
@ -6,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; Written by:
;; TN/ETX/TX/UMG Howard Gayle UUCP : seismo!enea!erix!howard
@ -26,6 +31,8 @@
;; 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)

10
lisp/chistory.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,12 +22,15 @@
;; 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.

14
lisp/comint.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,6 +22,8 @@
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; The changelog is at the end of this file.
;;; Please send me bug reports, bug fixes, and extensions, so that I can
@ -57,8 +63,6 @@
;;; 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")
;;; Brief Command Documentation:
;;;============================================================================
@ -101,6 +105,10 @@
;;; 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")
;;; Buffer Local Variables:
;;;============================================================================

7
lisp/compare-w.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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.

10
lisp/dabbrev.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
; DABBREVS - "Dynamic abbreviations" hack, originally written by Don Morrison
; for Twenex Emacs. Converted to mlisp by Russ Fish. Supports the table
@ -30,10 +34,12 @@
;
; 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)

13
lisp/diff.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,6 +23,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; todo: diff-switches flexibility:
;; (defconst diff-switches-function
;; '(lambda (file)
@ -36,7 +42,8 @@
;; 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.")

7
lisp/dired-aux.el
View File

@ -1,15 +1,16 @@
;; 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,
@ -1779,4 +1780,4 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
;;;###end dired-ins.el
;;; dired-aux.el ends here
;;; dired-aux.el ends here

9
lisp/disp-table.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,8 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; Written by Howard Gayle.
;;; Code:
(defun rope-to-vector (rope)
(let* ((len (/ (length rope) 2))

14
lisp/ebuff-menu.el
View File

@ -1,9 +1,7 @@
;;; 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.
@ -11,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -23,6 +21,12 @@
;; 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)

8
lisp/echistory.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(require 'electric) ; command loop
(require 'chistory) ; history lister

13
lisp/edmacro.el
View File

@ -1,4 +1,9 @@
;;; 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.
@ -6,7 +11,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -18,13 +23,15 @@
;; 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:
;;; The user-level commands for editing macros.

7
lisp/ehelp.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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'.")

7
lisp/electric.el
View File

@ -1,13 +1,16 @@
;;; 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,

8
lisp/emacs-lisp/autoload.el
View File

@ -1,11 +1,13 @@
;;; 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,
@ -19,6 +21,8 @@
;;; 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."

10
lisp/emacs-lisp/backquote.el
View File

@ -1,13 +1,15 @@
;; 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,
@ -19,8 +21,9 @@
;; 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
@ -58,6 +61,7 @@
;;; 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.

9
lisp/emacs-lisp/cl-indent.el
View File

@ -1,5 +1,9 @@
;;; 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
@ -7,7 +11,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -19,6 +23,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;>> TODO
;; :foo
;; bar
@ -33,6 +39,7 @@
;; baz)
;; Need something better than &rest for such cases
;;; Code:
;;; Hairy lisp indentation.

13
lisp/emacs-lisp/cust-print.el
View File

@ -1,9 +1,9 @@
;; 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.
@ -11,7 +11,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -23,6 +23,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; This 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,
@ -88,6 +90,7 @@
;; custom-message
;; custom-error
;;; Code:
(provide 'custom-print)
;; Abbreviated package name: "CP"

6
lisp/emacs-lisp/debug.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar debug-function-list nil
"List of functions currently set for debug on entry.")

11
lisp/emacs-lisp/float.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,6 +22,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; 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.
@ -46,6 +51,8 @@
;; June 20, 1986
;;
;;; Code:
;; fundamental implementation constants
(defconst exp-base 2
"Base of exponent in this floating point representation.")

8
lisp/emacs-lisp/helper.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
; hey, here's a helping hand.

5
lisp/emacs-lisp/lisp-mode.el
View File

@ -1,12 +1,15 @@
;;; 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,

6
lisp/emacs-lisp/lisp.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar defun-prompt-regexp nil
"Non-nil => regexp to ignore, before the `(' that starts a defun.")

6
lisp/emacs-lisp/profile.el
View File

@ -1,8 +1,8 @@
;;; 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
@ -12,7 +12,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

31
lisp/emulation/edt.el
View File

@ -1,5 +1,10 @@
;;; 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.
@ -8,7 +13,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -20,25 +25,13 @@
;; 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
@ -120,12 +113,8 @@
;; 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)

7
lisp/emulation/mlconvert.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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."

6
lisp/emulation/mlsupport.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defmacro ml-defun (&rest defs)
(list 'ml-defun-1 (list 'quote defs)))

7
lisp/env.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;;; 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.

7
lisp/files.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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.")

20
lisp/find-dired.el
View File

@ -1,13 +1,18 @@
;; 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,
@ -19,13 +24,8 @@
;;; 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 ======================================================
@ -46,6 +46,8 @@
;;
;; in your ~/.emacs.
;;; Code:
(require 'dired)
;;;###autoload
(defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"

7
lisp/find-gc.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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.

7
lisp/float-sup.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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

4
lisp/ftp.el
View File

@ -9,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -21,6 +21,8 @@
;; 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)

12
lisp/gnus.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,6 +23,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; GNUS Mailing List:
;; There are two mailing lists for GNUS lovers in the world:
;;
@ -47,6 +53,8 @@
;; (3) Multi-GNUS (Talking to many hosts same time).
;; (4) Asynchronous transmission of large messages.
;;; Code:
(require 'nntp)
(require 'mail-utils)

14
lisp/gnusmail.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,7 +23,7 @@
;; 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.
@ -32,6 +36,10 @@
;; 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")

10
lisp/gnusmisc.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,6 +23,8 @@
;; 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)
;;;

10
lisp/gnuspost.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,6 +23,8 @@
;; 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"

6
lisp/gosmacs.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar non-gosmacs-binding-alist nil)

13
lisp/grow-vers.el
View File

@ -1,14 +1,15 @@
;;; 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,
@ -20,6 +21,12 @@
;; 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")

7
lisp/help.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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.")

14
lisp/hexl.el
View File

@ -1,4 +1,7 @@
;;; 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.
@ -6,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -18,9 +21,8 @@
;; 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"
@ -37,6 +39,8 @@
;; ASCII region of the screen (if your emacs supports this) instead of
;; changing them to dots.
;;; Code:
;;
;; vars here
;;

6
lisp/inc-vers.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(insert-file-contents "../lisp/version.el")

6
lisp/indent.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar indent-line-function 'indent-to-left-margin "\
Function to indent current line.");Now in loaddefs.el

13
lisp/info.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,12 @@
;; 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).")

7
lisp/informat.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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

11
lisp/international/iso-ascii.el
View File

@ -1,4 +1,8 @@
;;; 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.
@ -6,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; Written by Howard Gayle. See display-table.el for details.
@ -25,6 +30,8 @@
;; 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)

7
lisp/international/iso-insert.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Written by Howard Gayle. See case-table.el for details.

9
lisp/international/iso-swed.el
View File

@ -1,4 +1,8 @@
;;; 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.
@ -6,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Written by Howard Gayle. See case-table.el for details.

6
lisp/international/swedish.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Written by Howard Gayle. See case-table.el for details.

7
lisp/isearch-old.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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,

10
lisp/iso8859-1.el
View File

@ -1,11 +1,16 @@
;; 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,
@ -17,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Written by Howard Gayle. See case-table.el for details.

4
lisp/kermit.el
View File

@ -10,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -73,6 +73,8 @@
;; 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")

6
lisp/ledit.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;; To do:
;;; o lisp -> emacs side of things (grind-definition and find-definition)

7
lisp/loadup.el
View File

@ -1,5 +1,8 @@
;;; 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.
@ -7,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@ -19,6 +22,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;; We don't want to have any undo records in the dumped Emacs.
(buffer-disable-undo "*scratch*")

6
lisp/lpr.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;;###autoload
(defconst lpr-switches nil "\

6
lisp/macros.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;;###autoload
(defun name-last-kbd-macro (symbol)

4
lisp/mail/emacsbug.el
View File

@ -1,17 +1,17 @@
;;; 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,

6
lisp/mail/mail-utils.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
;;; been initialized.

6
lisp/mail/mailalias.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Called from sendmail-send-it, or similar functions,
;; only if some mail aliases are defined.

6
lisp/mail/rmail.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
;; New features include attribute and keyword support, message

6
lisp/mail/rmailedit.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(require 'rmail)

6
lisp/mail/rmailkwd.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; Global to all RMAIL buffers. It exists primarily for the sake of
;; completion. It is better to use strings with the label functions

5
lisp/mail/rmailmsc.el
View File

@ -1,12 +1,15 @@
;;; 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,

4
lisp/mail/rmailout.el
View File

@ -1,7 +1,7 @@
;;; 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.
@ -9,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

6
lisp/mail/rmailsort.el
View File

@ -1,11 +1,14 @@
;;; 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,
@ -17,6 +20,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(require 'rmail)
(require 'sort)

6
lisp/mail/rmailsum.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;; summary things

10
lisp/mail/rnews.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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
@ -44,6 +49,9 @@
;; 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"

14
lisp/mail/rnewspost.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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
@ -32,8 +37,6 @@
;; 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"
@ -48,6 +51,11 @@
;;; >> 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

6
lisp/mail/sendmail.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;;###autoload
(defconst mail-self-blind nil "\

11
lisp/mail/undigest.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,7 +21,11 @@
;; 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.

4
lisp/makesum.el
View File

@ -1,7 +1,7 @@
;;; 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.
@ -9,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

7
lisp/man.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,8 @@
;; 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.

12
lisp/map-ynp.el
View File

@ -1,11 +1,13 @@
;;; 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,
@ -17,7 +19,9 @@
;;; 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.
@ -26,6 +30,8 @@
;;; 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;

13
lisp/medit.el
View File

@ -1,14 +1,16 @@
;;; 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,
@ -20,10 +22,13 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; >> 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")

8
lisp/mim-mode.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(autoload 'fast-syntax-check-mim "mim-syntax"
"Checks Mim syntax quickly.

8
lisp/mim-syntax.el
View File

@ -1,13 +1,16 @@
;;; 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,
@ -19,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(require 'mim-mode)

6
lisp/misc.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defun copy-from-above-command (&optional arg)
"Copy characters from previous nonblank line, starting just above point.

4
lisp/netunam.el
View File

@ -1,6 +1,6 @@
;;; 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 $
@ -11,7 +11,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

6
lisp/novice.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; Code:
;; This function is called (by autoloading)
;; to handle any disabled command.

6
lisp/options.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;;###autoload
(defun list-options ()

8
lisp/paths.el
View File

@ -1,12 +1,15 @@
;;; 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,
@ -18,6 +21,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; These are default settings for names of certain files and directories
;; that Emacs needs to refer to from time to time.
@ -25,6 +29,8 @@
;; 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))

3
lisp/play/dissociate.el
View File

@ -2,6 +2,7 @@
;; Maintainer: FSF
;; Last-Modified: 09 May 1991
;; Keywords: games
;; Copyright (C) 1985 Free Software Foundation, Inc.
@ -9,7 +10,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

7
lisp/play/doctor.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defun doctor-cadr (x) (car (cdr x)))
(defun doctor-caddr (x) (car (cdr (cdr x))))

11
lisp/play/gomoku.el
View File

@ -1,12 +1,17 @@
;;; 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,
@ -18,6 +23,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; Gomoku game between you and GNU Emacs. Last modified on 13 Sep 1988
;;;
;;; Written by Ph. Schnoebelen (phs@lifia.imag.fr), 1987, 1988
@ -74,6 +81,8 @@
;; 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:
;;;
;;; GOMOKU MODE AND KEYMAP.

8
lisp/play/life.el
View File

@ -1,13 +1,15 @@
;;; 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,
@ -19,6 +21,8 @@
;; 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
[("@@@" " @@" "@@@")
("@@@ @@@" "@@ @@ " "@@@ @@@")

4
lisp/play/spook.el
View File

@ -1,7 +1,7 @@
;;; 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.
@ -9,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

4
lisp/play/yow.el
View File

@ -1,7 +1,7 @@
;;; 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.
@ -9,7 +9,7 @@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,

7
lisp/progmodes/c-mode.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar c-mode-abbrev-table nil
"Abbrev table in use in C mode.")

7
lisp/progmodes/cmacexp.el
View File

@ -1,12 +1,16 @@
;;; 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,
@ -18,6 +22,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
(defvar c-macro-preprocessor "/lib/cpp"
"*Command to be used for C preprocessing.")

10
lisp/progmodes/etags.el
View File

@ -1,4 +1,8 @@
;; 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.
@ -18,6 +22,8 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Code:
;;;###autoload
(defvar tags-file-name nil "\
*File name of tags table.
@ -1079,3 +1085,5 @@ for \\[find-tag] (which see). See also `visit-tags-table-buffer'."
;;;###autoload (define-key esc-map "?" 'complete-tag) ;? XXX
(provide 'etags)
;;; etags.el ends here

44
lisp/progmodes/fortran.el
View File

@ -1,6 +1,30 @@
;;; 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).
@ -70,26 +94,12 @@
;;; 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.

19
lisp/progmodes/icon.el
View File

@ -1,19 +1,16 @@
;;; 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,
@ -25,6 +22,14 @@
;; 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.")

8
lisp/progmodes/prolog.el
View File

@ -1,13 +1,15 @@
;;; 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,
@ -19,6 +21,8 @@
;; 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)

13
lisp/progmodes/scheme.el
View File

@ -1,13 +1,17 @@
;;; 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,
@ -19,13 +23,14 @@
;; 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:
(defvar scheme-mode-syntax-table nil "")
(if (not scheme-mode-syntax-table)

Some files were not shown because too many files have changed in this diff Show More