Skip to content

GitLab

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

*** empty log message ***

parent 84fc2cfa
Hide whitespace changes
Inline Side-by-side
Showing with 298 additions and 58 deletions
lisp/abbrev.el
View file @ c0274f38
;; Abbrev mode commands for Emacs
;;; abbrev.el --- abbrev mode commands for Emacs
;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
......@@ -287,3 +287,5 @@ If called from a Lisp program, arguments are START END &optional NOQUERY."
pnt)))
(if (or noquery (y-or-n-p (format "Expand `%s'? " string)))
(expand-abbrev)))))))
;;; abbrev.el ends here
lisp/abbrevlist.el
View file @ c0274f38
;; List one abbrev table alphabetically ordered.
;;; abbrevlist.el --- list one abbrev table alphabetically ordered.
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
;; Suggested by a previous version by Gildea.
......@@ -44,3 +45,4 @@
(provide 'abbrevlist)
;;; abbrevlist.el ends here
lisp/ada.el
View file @ c0274f38
; Ada editing support package in GNUlisp. v1.0
;;; 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.)
......@@ -634,3 +635,5 @@ Initialize the library if a prefix arg is given."
"Bind the current program library, using the current binding options."
(interactive)
(compile (concat "adabind " ada-bind-opts " " ada-lib-dir-name)))
;;; ada.el ends here
lisp/apropos.el
View file @ c0274f38
;; Faster apropos commands.
;;; apropos.el --- faster apropos commands.
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -321,3 +322,4 @@ Will return nil instead."
nil
symbol))
;;; apropos.el ends here
lisp/array.el
View file @ c0274f38
;;; Array editing commands for Gnu Emacs
;;; 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
......@@ -955,3 +956,5 @@ array in this buffer."
(or arg
(+ (ceiling max-column columns-per-line)
(if rows-numbered 1 0)))))
;;; array.el ends here
lisp/autoinsert.el
View file @ c0274f38
;; Automatic mode-dependent insertion of text into new files.
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -90,3 +91,5 @@ Matches the visited file name against the elements of `auto-insert-alist'."
(setq find-file-not-found-hooks
(cons 'insert-auto-insert-files
find-file-not-found-hooks))
;;; autoinsert.el ends here
lisp/buff-menu.el
View file @ c0274f38
;; Buffer menu main function and support functions.
;;; buff-menu.el --- buffer menu main function and support functions.
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -282,3 +283,5 @@ You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] comma
(switch-to-buffer (other-buffer))
(pop-to-buffer buff)
(bury-buffer menu)))
;;; buff-menu.el ends here
lisp/calendar/appt.el
View file @ c0274f38
;; Appointment notification functions.
;;; appt.el --- appointment notification functions.
;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -494,7 +495,6 @@ The time should be in either 24 hour format or am/pm format."
(setq conv-time (+ (* hr 60) min))
conv-time))
(setq display-time-hook 'appt-check)
;;; appt.el ends here
lisp/case-table.el
View file @ c0274f38
;; Functions for extending the character set and dealing with case tables.
;;; case-table.el --- functions for extending the character set and dealing with case tables.
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -98,3 +99,5 @@ SYNTAX should be \" \", \"w\", \".\" or \"_\"."
(modify-syntax-entry c syntax text-mode-syntax-table))
(provide 'case-table)
;;; case-table.el ends here
lisp/chistory.el
View file @ c0274f38
;; chistory -- List command history
;;; chistory.el --- list command history
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
......@@ -166,3 +167,4 @@ The Command History listing is recomputed each time this mode is invoked."
(provide 'chistory)
;;; chistory.el ends here
lisp/cl.el
View file @ c0274f38
;; Common-Lisp extensions for GNU Emacs Lisp.
;;; cl.el --- Common-Lisp extensions for GNU Emacs Lisp.
;; Copyright (C) 1987, 1988, 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -3133,6 +3134,6 @@ No checking is even attempted. This is just for compatibility with
Common-Lisp codes."
form)
;;;; end of cl.el
(provide 'cl)
;;; cl.el ends here
lisp/cmuscheme.el
View file @ c0274f38
;;; cmuscheme.el -- Scheme process in a buffer. Adapted from tea.el.
;;; Copyright Olin Shivers (1988)
;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
;;; notice appearing here to the effect that you may use this code any
......@@ -429,3 +430,5 @@ This is a good place to put keybindings.")
;;; Tale suggested this.
(provide 'cmuscheme)
;;; cmuscheme.el ends here
lisp/comint.el
View file @ c0274f38
;;; -*-Emacs-Lisp-*- General command interpreter in a window stuff
;;; comint.el --- general command interpreter in a window stuff
;;; Copyright Olin Shivers (1988).
;;; This file is part of GNU Emacs.
......@@ -1361,3 +1362,5 @@ This is a good place to put keybindings.")
;;; liked them; I don't think anyone used them.
(provide 'comint)
;;; comint.el ends here
lisp/compare-w.el
View file @ c0274f38
;; Compare text between windows for Emacs.
;;; compare-w.el --- compare text between windows for Emacs.
;; Copyright (C) 1986, 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -128,3 +129,4 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
(provide 'compare-w)
;;; compare-w.el ends here
lisp/completion.el
View file @ c0274f38
;;; completion.el --- dynamic word-completion code
;;; This is a Completion system for GNU Emacs
;;;
;;; E-Mail:
......@@ -3111,3 +3113,5 @@ and KILLP is t if prefix arg is was specified."
(cmpl-statistics-block
(record-completion-file-loaded))
;;; completion.el ends here
lisp/dabbrev.el
View file @ c0274f38
;; Dynamic abbreviation package for GNU Emacs.
;;; dabbrev.el --- dynamic abbreviation package for GNU Emacs.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -257,3 +258,4 @@ with the next possible expansion not yet tried."
(provide 'dabbrevs)
;;; dabbrev.el ends here
lisp/diary-lib.el
View file @ c0274f38
;; Diary functions.
;;; diary.el --- diary functions.
;; Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -2126,3 +2127,4 @@ to the date indicated by point. Prefix arg will make the entry nonmarking."
(provide 'diary)
;;; diary.el ends here
lisp/diff.el
View file @ c0274f38
;; "DIFF" mode for handling output from unix diff utility.
;;; diff.el --- "DIFF" mode for handling output from unix diff utility.
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; Written fpb@ittc.wec.com 1/27/89
......@@ -269,3 +270,5 @@ Differences are delimited by `diff-search-pattern'."
(setq cnt (1+ cnt)))
(message "Counting differences...done (%d)" cnt)
cnt))))
;;; diff.el ends here
lisp/disp-table.el
View file @ c0274f38
;; Functions for dealing with char tables.
;;; disp-table.el --- functions for dealing with char tables.
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -113,3 +114,5 @@
(aset glyf-table i string)))
(provide 'disp-table)
;;; disp-table.el ends here
lisp/ebuff-menu.el
View file @ c0274f38
;;; ebuff-menu.el --- electric-buffer-list mode
; buggestions to mly@ai.mit.edu
;; who says one can't have typeout windows in gnu emacs?
......@@ -236,6 +238,4 @@ Returns to Electric Buffer Menu when done."
(message "Buffer %s does not exist!" bufnam)
(sit-for 4))))
;;; ebuff-menu.el ends here
lisp/echistory.el
View file @ c0274f38
;; Electric Command History Mode
;;; echistory.el --- Electric Command History Mode
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
......@@ -136,3 +137,5 @@ The Command History listing is recomputed each time this mode is invoked."
(if (boundp 'electric-history-in-progress)
(progn (message "")
(throw 'electric-history-quit nil))))
;;; echistory.el ends here
lisp/edmacro.el
View file @ c0274f38
;; Keyboard macro editor for GNU Emacs. Version 1.02.
;;; edmacro.el --- keyboard macro editor for GNU Emacs. Version 1.02.
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -641,3 +642,5 @@ directly back into keystrokes."
(if (boundp 'edmacro-mode-map) ()
(setq edmacro-mode-map (make-sparse-keymap))
(define-key edmacro-mode-map "\C-c\C-c" 'edmacro-finish-edit))
;;; edmacro.el ends here
lisp/ehelp.el
View file @ c0274f38
;;; ehelp.el --- bindings for electric-help mode
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -306,3 +308,4 @@ will select it.)"
(provide 'ehelp)
;;; ehelp.el ends here
lisp/electric.el
View file @ c0274f38
;; electric -- Window maker and Command loop for `electric' modes.
;;; electric.el --- window maker and Command loop for `electric' modes.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
......@@ -180,4 +181,6 @@
(goto-char (point-min))
win)))
(provide 'electric)
\ No newline at end of file
(provide 'electric)
; electric.el ends here
lisp/emacs-lisp/autoload.el
View file @ c0274f38
;;; Maintain autoloads in loaddefs.el.
;;; autoload.el --- maintain autoloads in loaddefs.el.
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;; Written by Roland McGrath.
;;;
......@@ -289,3 +290,4 @@ For example, invoke \"emacs -batch -f batch-update-autoloads *.el\""
(provide 'autoload)
;;; autoload.el ends here
lisp/emacs-lisp/backquote.el
View file @ c0274f38
;; backquote.el --- backquoting for Emacs Lisp macros
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Written by Dick King (king@kestrel).
......@@ -354,3 +356,4 @@ for making the list so far."
(provide 'backquote)
;;; backquote.el ends here
lisp/emacs-lisp/cl-indent.el
View file @ c0274f38
;; Lisp mode, and its idiosyncratic commands.
;;; cl-indent.el --- enhanced lisp-indent mode
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Written by Richard Mlynarik July 1987
......@@ -464,3 +465,4 @@ by `lisp-body-indent'.")
;; To disable this stuff, (setq lisp-indent-function 'lisp-indent-function)
;;; cl-indent.el ends here
lisp/emacs-lisp/debug.el
View file @ c0274f38
;; Debuggers and related commands for Emacs
;;; debug.el --- debuggers and related commands for Emacs
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -354,3 +355,5 @@ If argument is nil or an empty string, cancel for all functions."
(setq list (cdr list))))
(princ "Note: if you have redefined a function, then it may no longer\n")
(princ "be set to debug on entry, even if it is in the list."))))
;;; debug.el ends here
lisp/emerge.el
View file @ c0274f38
;;; emerge.el version 4
;;; emerge.el --- merge diffs inder Emacs control (version 4)
;;; 13 Dec 1991
......@@ -1140,6 +1140,7 @@ emerge-file-names.")
;;; Functions to start Emerge on files
;;;###autoload
(defun emerge-files (arg file-A file-B file-out &optional startup-hooks
quit-hooks)
"Run Emerge on two files."
......@@ -1160,6 +1161,7 @@ emerge-file-names.")
quit-hooks)
file-out))
;;;###autoload
(defun emerge-files-with-ancestor (arg file-A file-B file-ancestor file-out
&optional startup-hooks quit-hooks)
"Run Emerge on two files, giving another file as the ancestor."
......@@ -1189,6 +1191,7 @@ emerge-file-names.")
;;; Functions to start Emerge on buffers
;;;###autoload
(defun emerge-buffers (buffer-A buffer-B &optional startup-hooks quit-hooks)
"Run Emerge on two buffers."
(interactive "bBuffer A to merge: \nbBuffer B to merge: ")
......@@ -1209,6 +1212,7 @@ emerge-file-names.")
quit-hooks
nil)))
;;;###autoload
(defun emerge-buffers-with-ancestor (buffer-A buffer-B buffer-ancestor
&optional startup-hooks
quit-hooks)
......@@ -1243,6 +1247,7 @@ emerge-file-names.")
;;; Functions to start Emerge from the command line
;;;###autoload
(defun emerge-files-command ()
(let ((file-a (nth 0 command-line-args-left))
(file-b (nth 1 command-line-args-left))
......@@ -1252,6 +1257,7 @@ emerge-file-names.")
file-a file-b nil
(list (` (lambda () (emerge-command-exit (, file-out))))))))
;;;###autoload
(defun emerge-files-with-ancestor-command ()
(let (file-a file-b file-anc file-out)
;; check for a -a flag, for filemerge compatibility
......@@ -1279,6 +1285,7 @@ emerge-file-names.")
;;; Functions to start Emerge via remote request
;;;###autoload
(defun emerge-files-remote (file-a file-b file-out)
(setq emerge-file-out file-out)
(emerge-files-internal
......@@ -1287,6 +1294,7 @@ emerge-file-names.")
file-out)
(throw 'client-wait nil))
;;;###autoload
(defun emerge-files-with-ancestor-remote (file-a file-b file-anc file-out)
(setq emerge-file-out file-out)
(emerge-files-with-ancestor-internal
......@@ -2973,7 +2981,6 @@ See also auto-save-file-name-p."
(setq limit (1+ (match-end 0)))))
s)
;;;;;;;;;;;;;;;; end emerge.el ;;;;;;;;;;;;;;;;
(provide 'emerge)
;;; emerge.el ends here
lisp/emulation/edt.el
View file @ c0274f38
......@@ -20,6 +20,113 @@
;; 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
;;
;; 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 elisp hack, you may have to root out a
;; few nasties hidden in the code. Please let me know if you find any (sorry,
;; no rewards :-). I would also be interested if there are better, cleaner,
;; faster ways of doing some of the things that I have done.
;;
;; You must understand some design considerations that I had in mind.
;; The intention was not really to "emulate" EDT, but rather to take advantage
;; of the years of EDT experience that had accumulated in my right hand,
;; while at the same time taking advantage of EMACS.
;;
;; Some major differences are:
;;
;; HELP is describe-key;
;; GOLD/HELP is describe-function;
;; FIND is isearch-forward/backward;
;; GOLD/HELP is occur-menu, which finds all instances of a search string;
;; ENTER is other-window;
;; SUBS is subprocess-command. Note that you have to change this
;; to `shell' if you are running Un*x;
;; PAGE is next-paragraph, because that's more useful than page.
;; SPECINS is copy-to-killring;
;; GOLD/GOLD is mark-section-wisely, which is my command to mark the
;; section in a manner consistent with the major-mode. It
;; uses mark-defun for emacs-lisp, lisp, mark-c-function for C,
;; and mark-paragraph for other modes.
;;
;;
;; Some subtle differences are:
;;
;; APPEND is append-to-buffer. One doesn't append to the kill ring
;; much and SPECINS is now copy-to-killring;
;; REPLACE is replace-regexp;
;; FILL is fill-region-wisely, which uses indent-region for C, lisp
;; emacs-lisp, and fill-region for others. It asks if you
;; really want to fill-region in TeX-mode, because I find this
;; to be very dangerous.
;; CHNGCASE is case-flip for the character under the cursor only.
;; I felt that case-flip region is unlikely, as usually you
;; upcase-region or downcase region. Also, unlike EDT it
;; is independent of the direction you are going, as that
;; drives me nuts.
;;
;; I use Emacs definition of what a word is. This is considerably different
;; from what EDT thinks a word is. This is not good for dyed-in-the-wool EDT
;; fans, but is probably preferable for experienced Emacs users. My assumption
;; is that the former are a dying breed now that GNU Emacs has made it to VMS,
;; but let me know how you feel. Also, when you undelete a word it leave the
;; point at the end of the undeleted text, rather than the beginning. I might
;; change this as I'm not sure if I like this or not. I'm also not sure if I
;; want it to set the mark each time you delete a character or word.
;;
;; Backspace does not invoke beginning-of-line, because ^H is the help prefix,
;; and I felt it should be left as such. You can change this if you like.
;;
;; The ADVANCE and BACKUP keys do not work as terminators for forward or
;; backward searches. In Emacs, all search strings are terminated by return.
;; The searches will however go forward or backward depending on your current
;; direction. Also, when you change directions, the mode line will not be
;; updated immediately, but only when you next execute an emacs function.
;; Personally, I consider this to be a bug, not a feature.
;;
;; This should also work with VT-2xx's, though I haven't tested it extensively
;; on those terminals. It assumes that the CSI-map of vt_200.el has been
;; defined.
;;
;; There are also a whole bunch of GOLD letter, and GOLD character bindings:
;; look at edtdoc.el for them, or better still, look at the edt.el lisp code,
;; because after all, in the true Lisp tradition, the source code is *assumed*
;; to be self-documenting :-)
;;
;; 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) 736-2100 x 7767
;;
;; Note that I am not on ARPA, and must gateway any ARPA mail through BITNET or
;; 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
(require 'keypad)
(defvar edt-last-deleted-lines ""
......
lisp/files.el
View file @ c0274f38
;; File input and output commands for Emacs
;;; files.el --- file input and output commands for Emacs
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -1382,3 +1383,5 @@ With prefix arg, silently save all file-visiting buffers, then kill."
(define-key ctl-x-3-map "b" 'switch-to-buffer-other-screen)
(define-key ctl-x-3-map "f" 'find-file-other-screen)
(define-key ctl-x-3-map "r" 'find-file-read-only-other-screen)
;;; files.el ends here
lisp/find-dired.el
View file @ c0274f38
;;; find-dired.el -- Run a `find' command and dired the output
;; find-dired.el --- run a `find' command and dired the output
;;; Copyright (C) 1991 Roland McGrath
(defconst find-dired-version (substring "$Revision: 1.9 $" 11 -2)
......@@ -200,3 +201,4 @@ Wildcards and redirection are handle as usual in the shell."
(provide 'find-dired)
;;; find-dired.el ends here
lisp/find-gc.el
View file @ c0274f38
;;;; find-gc.el
;;; find-gc.el --- detect functions that call the garbage collector
;; 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)
;; 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.
;;; Produce in unsafe-list the set of all functions that may invoke GC.
;;; This expects the Emacs sources to live in emacs-source-directory.
......@@ -125,3 +142,4 @@
(setq ptr (cdr ptr))))
)
;;; find-gc.el ends here
lisp/float-sup.el
View file @ c0274f38
;; Basic editing commands for Emacs
;;; float-sup.el --- detect absence of floating-point support in Emacs runtime
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -51,3 +52,4 @@
(provide 'lisp-float-type)
;;; float-sup.el ends here
lisp/mail/emacsbug.el
View file @ c0274f38
;; Command to report Emacs bugs to appropriate mailing list.
;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list.
;; Not fully installed because it can work only on Internet hosts.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
......@@ -37,3 +38,4 @@ Prompts for bug subject. Leaves you in a mail buffer."
(insert "\nIn " (emacs-version) "\n\n")
(message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
;;; emacsbug.el ends here
lisp/play/blackbox.el
View file @ c0274f38
; Blackbox game in Emacs Lisp
;;; blackbox.el --- blackbox game in Emacs Lisp
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -418,3 +419,5 @@ a reflection."
(cond
((equal item (car list)) (cdr list))
(t (cons (car list) (bb-delete item (cdr list))))))
;;; blackbox.el ends here
lisp/play/dissociate.el
View file @ c0274f38
;; Scramble text amusingly for Emacs.
;;; dissociate.el --- scramble text amusingly for Emacs.