mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-08 15:35:02 +00:00
*** empty log message ***
This commit is contained in:
parent
84fc2cfa7d
commit
c0274f385f
lisp
abbrev.elabbrevlist.elada.elapropos.elarray.elautoinsert.elbuff-menu.el
calendar
case-table.elchistory.elcl.elcmuscheme.elcomint.elcompare-w.elcompletion.eldabbrev.eldiary-lib.eldiff.eldisp-table.elebuff-menu.elechistory.eledmacro.elehelp.elelectric.elemacs-lisp
emerge.elemulation
files.elfind-dired.elfind-gc.elfloat-sup.elmail
play
progmodes
term
textmodes
@ -1,4 +1,4 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; -*-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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,3 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; "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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,3 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,3 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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)
|
||||
(provide 'electric)
|
||||
|
||||
; electric.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,3 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,4 @@
|
||||
;;; 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
|
||||
|
@ -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 ""
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; 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
|
||||
|
@ -1,5 +1,22 @@
|
||||
;;;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
; 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
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; Scramble text amusingly for Emacs.
|
||||
;;; dissociate.el --- scramble text amusingly for Emacs.
|
||||
|
||||
;; Copyright (C) 1985 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -86,3 +87,5 @@ Default is 2."
|
||||
(goto-char 1)
|
||||
(funcall search-function overlap opoint t))))))
|
||||
(sit-for 0))))
|
||||
|
||||
;;; dissociate.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; Psychological help for frustrated users.
|
||||
;;; doctor.el --- psychological help for frustrated users.
|
||||
|
||||
;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -1608,3 +1609,5 @@ Hack on previous word, setting global variable OWNER to correct result."
|
||||
(interactive)
|
||||
(insert "Mein fuhrer!!\n")
|
||||
(doctor-read-print))
|
||||
|
||||
;;; doctor.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; Mode for editing assembler code
|
||||
;;; asm-mode.el --- Mode for editing assembler code
|
||||
|
||||
;; Copyright (C) 1991 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; C code editing commands for Emacs
|
||||
;;; awk-mode.el --- AWK code editing commands for Emacs
|
||||
|
||||
;; Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -81,3 +82,5 @@ with no args, if that value is non-nil."
|
||||
(make-local-variable 'comment-indent-hook)
|
||||
(setq comment-indent-hook 'c-comment-indent)
|
||||
(run-hooks 'awk-mode-hook))
|
||||
|
||||
;;; awk-mode.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; C code editing commands for Emacs
|
||||
;;; c-mode.el --- C code editing commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -1062,3 +1063,5 @@ Available styles are GNU, K&R, BSD and Whitesmith."
|
||||
(while vars
|
||||
(set (car (car vars)) (cdr (car vars)))
|
||||
(setq vars (cdr vars)))))
|
||||
|
||||
;;; c-mode.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; C macro expansion
|
||||
;;; cmacexp.el --- C macro expansion
|
||||
|
||||
;; Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -82,3 +83,5 @@ and macros to predefine."
|
||||
(while (eolp) (delete-char 1))
|
||||
(delete-region (point-min) (point)))
|
||||
(display-buffer outbuf)))
|
||||
|
||||
;;; cmacexp.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; C++ code editing commands for Emacs
|
||||
;;; c++-mode.el --- C++ code editing commands for Emacs
|
||||
|
||||
;; 1987 Dave Detlefs (dld@cs.cmu.edu)
|
||||
;; and Stewart Clamen (clamen@cs.cmu.edu).
|
||||
;; Done by fairly faithful modification of:
|
||||
@ -964,3 +965,5 @@ If non-nil, use `c++-defun-header-strong'.")
|
||||
(next-line 1)
|
||||
(beginning-of-line 1)))
|
||||
(goto-char restore)))
|
||||
|
||||
;;; c++-mode.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; Tags facility for Emacs.
|
||||
;;; etags.el --- tags facility for Emacs.
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -351,7 +352,6 @@ unless it has one in the tag table."
|
||||
(terpri)
|
||||
(forward-line 1)))))
|
||||
|
||||
;; etags.el ends here
|
||||
|
||||
(provide 'etags)
|
||||
|
||||
;;; etags.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; -*-Emacs-Lisp-*- cmulisp.el
|
||||
;;; cmulisp.el --- improved version of standard inferior-lisp mode
|
||||
|
||||
;;; 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
|
||||
@ -600,3 +601,4 @@ This is a good place to put keybindings.")
|
||||
|
||||
(provide 'cmulisp)
|
||||
|
||||
;;; cmulisp.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; GNU Emacs code for BBN Bitgraph mouse.
|
||||
;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
|
||||
|
||||
;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
|
||||
;; Time stamp <89/03/21 14:27:08 gildea>
|
||||
|
||||
@ -302,3 +303,4 @@ X and Y are 0-based character positions on the screen."
|
||||
|
||||
(provide 'bg-mouse)
|
||||
|
||||
;;; bg-mouse.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; bib-mode, major mode for editing bib files.
|
||||
;;; bib-mode.el --- bib-mode, major mode for editing bib files.
|
||||
|
||||
;; Copyright (C) 1989 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -232,3 +233,4 @@ in the title).")
|
||||
|
||||
(provide 'bib-mode)
|
||||
|
||||
;;; bib-mode.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;;; BibTeX mode for GNU Emacs
|
||||
;;; bibtex.el --- BibTeX mode for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1987, 1990 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -1098,7 +1099,6 @@ an undefined location.
|
||||
|
||||
)) ; matches (if...
|
||||
|
||||
;;; ------------- end bibtex-mode.el -------------------------------
|
||||
|
||||
(provide 'bibtex)(provide 'bibtex)
|
||||
(provide 'bibtex)
|
||||
|
||||
;;; bibtex.el ends here
|
||||
|
@ -1,4 +1,5 @@
|
||||
;; Fill commands for Emacs
|
||||
;;; fill.el --- fill commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -285,3 +286,5 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
|
||||
(let ((had-newline (bolp)))
|
||||
(fill-region-as-paragraph start (point) justifyp)
|
||||
(or had-newline (delete-char -1))))))))
|
||||
|
||||
;;; fill.el ends here
|
Loading…
Reference in New Issue
Block a user