Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c0274f38
Commit
c0274f38
authored
May 30, 1992
by
Eric S. Raymond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
84fc2cfa
Changes
49
Hide whitespace changes
Inline
Side-by-side
Showing
49 changed files
with
298 additions
and
58 deletions
+298
-58
lisp/abbrev.el
lisp/abbrev.el
+3
-1
lisp/abbrevlist.el
lisp/abbrevlist.el
+3
-1
lisp/ada.el
lisp/ada.el
+4
-1
lisp/apropos.el
lisp/apropos.el
+3
-1
lisp/array.el
lisp/array.el
+4
-1
lisp/autoinsert.el
lisp/autoinsert.el
+4
-1
lisp/buff-menu.el
lisp/buff-menu.el
+4
-1
lisp/calendar/appt.el
lisp/calendar/appt.el
+3
-3
lisp/case-table.el
lisp/case-table.el
+4
-1
lisp/chistory.el
lisp/chistory.el
+3
-1
lisp/cl.el
lisp/cl.el
+4
-3
lisp/cmuscheme.el
lisp/cmuscheme.el
+3
-0
lisp/comint.el
lisp/comint.el
+4
-1
lisp/compare-w.el
lisp/compare-w.el
+3
-1
lisp/completion.el
lisp/completion.el
+4
-0
lisp/dabbrev.el
lisp/dabbrev.el
+3
-1
lisp/diary-lib.el
lisp/diary-lib.el
+3
-1
lisp/diff.el
lisp/diff.el
+4
-1
lisp/disp-table.el
lisp/disp-table.el
+4
-1
lisp/ebuff-menu.el
lisp/ebuff-menu.el
+3
-3
lisp/echistory.el
lisp/echistory.el
+4
-1
lisp/edmacro.el
lisp/edmacro.el
+4
-1
lisp/ehelp.el
lisp/ehelp.el
+3
-0
lisp/electric.el
lisp/electric.el
+5
-2
lisp/emacs-lisp/autoload.el
lisp/emacs-lisp/autoload.el
+3
-1
lisp/emacs-lisp/backquote.el
lisp/emacs-lisp/backquote.el
+3
-0
lisp/emacs-lisp/cl-indent.el
lisp/emacs-lisp/cl-indent.el
+3
-1
lisp/emacs-lisp/debug.el
lisp/emacs-lisp/debug.el
+4
-1
lisp/emerge.el
lisp/emerge.el
+10
-3
lisp/emulation/edt.el
lisp/emulation/edt.el
+107
-0
lisp/files.el
lisp/files.el
+4
-1
lisp/find-dired.el
lisp/find-dired.el
+3
-1
lisp/find-gc.el
lisp/find-gc.el
+19
-1
lisp/float-sup.el
lisp/float-sup.el
+3
-1
lisp/mail/emacsbug.el
lisp/mail/emacsbug.el
+3
-1
lisp/play/blackbox.el
lisp/play/blackbox.el
+4
-1
lisp/play/dissociate.el
lisp/play/dissociate.el
+4
-1
lisp/play/doctor.el
lisp/play/doctor.el
+4
-1
lisp/progmodes/asm-mode.el
lisp/progmodes/asm-mode.el
+2
-1
lisp/progmodes/awk-mode.el
lisp/progmodes/awk-mode.el
+4
-1
lisp/progmodes/c-mode.el
lisp/progmodes/c-mode.el
+4
-1
lisp/progmodes/cmacexp.el
lisp/progmodes/cmacexp.el
+4
-1
lisp/progmodes/cplus-md.el
lisp/progmodes/cplus-md.el
+4
-1
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+3
-3
lisp/progmodes/inf-lisp.el
lisp/progmodes/inf-lisp.el
+3
-1
lisp/term/bg-mouse.el
lisp/term/bg-mouse.el
+3
-1
lisp/textmodes/bib-mode.el
lisp/textmodes/bib-mode.el
+3
-1
lisp/textmodes/bibtex.el
lisp/textmodes/bibtex.el
+4
-4
lisp/textmodes/fill.el
lisp/textmodes/fill.el
+4
-1
No files found.
lisp/abbrev.el
View file @
c0274f38
;;
A
bbrev mode commands for Emacs
;;
; abbrev.el --- a
bbrev 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.