From c0274f385fe5f39459cac5ea9ff9f92bacd3a8ef Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sat, 30 May 1992 23:54:21 +0000 Subject: [PATCH] *** empty log message *** --- lisp/abbrev.el | 4 +- lisp/abbrevlist.el | 4 +- lisp/ada.el | 5 +- lisp/apropos.el | 4 +- lisp/array.el | 5 +- lisp/autoinsert.el | 5 +- lisp/buff-menu.el | 5 +- lisp/calendar/appt.el | 6 +-- lisp/case-table.el | 5 +- lisp/chistory.el | 4 +- lisp/cl.el | 7 +-- lisp/cmuscheme.el | 3 ++ lisp/comint.el | 5 +- lisp/compare-w.el | 4 +- lisp/completion.el | 4 ++ lisp/dabbrev.el | 4 +- lisp/diary-lib.el | 4 +- lisp/diff.el | 5 +- lisp/disp-table.el | 5 +- lisp/ebuff-menu.el | 6 +-- lisp/echistory.el | 5 +- lisp/edmacro.el | 5 +- lisp/ehelp.el | 3 ++ lisp/electric.el | 7 ++- lisp/emacs-lisp/autoload.el | 4 +- lisp/emacs-lisp/backquote.el | 3 ++ lisp/emacs-lisp/cl-indent.el | 4 +- lisp/emacs-lisp/debug.el | 5 +- lisp/emerge.el | 13 ++++-- lisp/emulation/edt.el | 107 +++++++++++++++++++++++++++++++++++++++++++ lisp/files.el | 5 +- lisp/find-dired.el | 4 +- lisp/find-gc.el | 20 +++++++- lisp/float-sup.el | 4 +- lisp/mail/emacsbug.el | 4 +- lisp/play/blackbox.el | 5 +- lisp/play/dissociate.el | 5 +- lisp/play/doctor.el | 5 +- lisp/progmodes/asm-mode.el | 3 +- lisp/progmodes/awk-mode.el | 5 +- lisp/progmodes/c-mode.el | 5 +- lisp/progmodes/cmacexp.el | 5 +- lisp/progmodes/cplus-md.el | 5 +- lisp/progmodes/etags.el | 6 +-- lisp/progmodes/inf-lisp.el | 4 +- lisp/term/bg-mouse.el | 4 +- lisp/textmodes/bib-mode.el | 4 +- lisp/textmodes/bibtex.el | 8 ++-- lisp/textmodes/fill.el | 5 +- 49 files changed, 298 insertions(+), 58 deletions(-) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 9bd311290fb..ba159233bc4 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -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 diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el index a7942248dde..ee77462907e 100644 --- a/lisp/abbrevlist.el +++ b/lisp/abbrevlist.el @@ -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 diff --git a/lisp/ada.el b/lisp/ada.el index 22c80707b42..4588d72780e 100644 --- a/lisp/ada.el +++ b/lisp/ada.el @@ -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 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 diff --git a/lisp/apropos.el b/lisp/apropos.el index 66b3c4947bb..5f0eab734f1 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -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 diff --git a/lisp/array.el b/lisp/array.el index d58d558188e..b7abdee6dd2 100644 --- a/lisp/array.el +++ b/lisp/array.el @@ -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 diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 61736c9f68b..d8eba1bb0dc 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -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 diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 77923774da7..371bb586d80 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -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-mark] comma (switch-to-buffer (other-buffer)) (pop-to-buffer buff) (bury-buffer menu))) + +;;; buff-menu.el ends here diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 5d11695cdaf..2376d76a867 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -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 diff --git a/lisp/case-table.el b/lisp/case-table.el index 2de955de2cd..bb35c1e8913 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -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 diff --git a/lisp/chistory.el b/lisp/chistory.el index 2dd78a1f558..620288fc77a 100644 --- a/lisp/chistory.el +++ b/lisp/chistory.el @@ -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 diff --git a/lisp/cl.el b/lisp/cl.el index 723238aec2f..1ff7024c133 100644 --- a/lisp/cl.el +++ b/lisp/cl.el @@ -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 diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index b817b42e662..fe20f7e1959 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -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 diff --git a/lisp/comint.el b/lisp/comint.el index 91d480e56fd..93bed741388 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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 diff --git a/lisp/compare-w.el b/lisp/compare-w.el index b3dbf0e47c3..b4f4e6f383f 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -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 diff --git a/lisp/completion.el b/lisp/completion.el index 9d478e78630..6ae62aa8a64 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -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 diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index e488e385b06..d6d306b7391 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -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 diff --git a/lisp/diary-lib.el b/lisp/diary-lib.el index b196707f09f..83e22d52aa4 100644 --- a/lisp/diary-lib.el +++ b/lisp/diary-lib.el @@ -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 diff --git a/lisp/diff.el b/lisp/diff.el index 7b92c6a4314..138f674ea08 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -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 diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 524bc80cd3f..d0f0ec03899 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -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 diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index f3fab00a19e..88e50a9799e 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -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 diff --git a/lisp/echistory.el b/lisp/echistory.el index 1354650f171..59e51cddf6a 100644 --- a/lisp/echistory.el +++ b/lisp/echistory.el @@ -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 diff --git a/lisp/edmacro.el b/lisp/edmacro.el index 90d8ebed47c..05ee0912a2c 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -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 diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 69f2fd4e8af..94eadfadbd3 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -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 diff --git a/lisp/electric.el b/lisp/electric.el index eab8cd135ed..50e2a015389 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -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) \ No newline at end of file +(provide 'electric) + +; electric.el ends here diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 5e78798c05e..b399a29bfa0 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -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 diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 0b5283ca819..9a4d7d5ffd7 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -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 diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 4e4543725c8..92f20f7cc4f 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -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 diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index ff31feb68ce..9faf131dd26 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -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 diff --git a/lisp/emerge.el b/lisp/emerge.el index 659d50afcef..bcb15da3aee 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -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 diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 8d60eeeb347..58874fd94aa 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -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 "" diff --git a/lisp/files.el b/lisp/files.el index 1827bf9e7a1..bc7f7981a8f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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 diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 2afb4b435d4..ab5e3c43ef3 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -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 diff --git a/lisp/find-gc.el b/lisp/find-gc.el index 3504d2949d8..1e02e65c1d0 100644 --- a/lisp/find-gc.el +++ b/lisp/find-gc.el @@ -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 diff --git a/lisp/float-sup.el b/lisp/float-sup.el index f784ef2bf3c..f52832fb3a1 100644 --- a/lisp/float-sup.el +++ b/lisp/float-sup.el @@ -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 diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index f65e665d051..36b409d7fac 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -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 diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el index 35be83f2db5..59a21a25708 100644 --- a/lisp/play/blackbox.el +++ b/lisp/play/blackbox.el @@ -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 diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el index f33682db749..cfc29d902a0 100644 --- a/lisp/play/dissociate.el +++ b/lisp/play/dissociate.el @@ -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 diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 74d6efc4c2d..0cb5dc9327b 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -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 diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el index 6ef6e5ff83a..55202cd63aa 100644 --- a/lisp/progmodes/asm-mode.el +++ b/lisp/progmodes/asm-mode.el @@ -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. diff --git a/lisp/progmodes/awk-mode.el b/lisp/progmodes/awk-mode.el index 7b70f82b748..61cd531e9d2 100644 --- a/lisp/progmodes/awk-mode.el +++ b/lisp/progmodes/awk-mode.el @@ -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 diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el index ef3319c9e00..c5ed38bf5e8 100644 --- a/lisp/progmodes/c-mode.el +++ b/lisp/progmodes/c-mode.el @@ -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 diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el index f60c2254f5a..431fa13cf1f 100644 --- a/lisp/progmodes/cmacexp.el +++ b/lisp/progmodes/cmacexp.el @@ -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 diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el index f5082895e1e..1de2e826c39 100644 --- a/lisp/progmodes/cplus-md.el +++ b/lisp/progmodes/cplus-md.el @@ -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 diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 3b74be87cc6..c7daec726ee 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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 diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index f3e3ce606d1..98299190f49 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el @@ -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 diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el index 8e3a546709a..c08ed9ed28d 100644 --- a/lisp/term/bg-mouse.el +++ b/lisp/term/bg-mouse.el @@ -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 diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el index 14ef2045a7b..8c7c38c4c31 100644 --- a/lisp/textmodes/bib-mode.el +++ b/lisp/textmodes/bib-mode.el @@ -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 diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index d008fe99b3c..4579760d9bb 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -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 diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 7ea751f9a37..9940d59ea9d 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -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 \ No newline at end of file -- 2.11.4.GIT