Skip to content

GitLab

Commit e5167999 authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files
Options

*** empty log message ***

parent de49a6d3
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1288 additions and 537 deletions
lisp/abbrev.el
View file @ e5167999
;;; 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
......
lisp/abbrevlist.el
View file @ e5167999
;;; 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."
......
lisp/ada.el
View file @ e5167999
;;; 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
......
lisp/apropos.el
View file @ e5167999
;;; 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
......
lisp/array.el
View file @ e5167999
;;; 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.
......
lisp/autoinsert.el
View file @ e5167999
;;; 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")
......
lisp/calendar/appt.el
View file @ e5167999
;;; 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
......
lisp/case-table.el
View file @ e5167999
;;; 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)
......
lisp/chistory.el
View file @ e5167999
;;; 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.
......
lisp/comint.el
View file @ e5167999
;;; 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:
;;;============================================================================
......
lisp/compare-w.el
View file @ e5167999
;;; 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.
......
lisp/dabbrev.el
View file @ e5167999
;;; 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)
......
lisp/diff.el
View file @ e5167999
;;; 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.")
......
lisp/dired-aux.el
View file @ e5167999
;; 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
\ No newline at end of file
;;; dired-aux.el ends here
lisp/disp-table.el
View file @ e5167999
;;; 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))
......
lisp/ebuff-menu.el
View file @ e5167999
;;; 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)
......
lisp/echistory.el
View file @ e5167999
;;; 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
......
lisp/edmacro.el
View file @ e5167999
;;; 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.