summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric S. Raymond <esr@snark.thyrsus.com>1992-05-30 23:54:21 +0000
committerEric S. Raymond <esr@snark.thyrsus.com>1992-05-30 23:54:21 +0000
commiteda3e164397ac5e524dcdd9525a1d33f0108e5e1 (patch)
tree70c8489d80fbdfadfdc059706bd8f2b95bb78ef3
parent71a3e39f3fa808f4d120bcc53ca3d3da9a69c12f (diff)
downloademacs-eda3e164397ac5e524dcdd9525a1d33f0108e5e1.tar.gz
*** empty log message ***
-rw-r--r--lisp/=ada.el5
-rw-r--r--lisp/=cl.el7
-rw-r--r--lisp/=diary-lib.el4
-rw-r--r--lisp/abbrev.el4
-rw-r--r--lisp/abbrevlist.el4
-rw-r--r--lisp/apropos.el4
-rw-r--r--lisp/array.el5
-rw-r--r--lisp/autoinsert.el5
-rw-r--r--lisp/buff-menu.el5
-rw-r--r--lisp/calendar/appt.el6
-rw-r--r--lisp/case-table.el5
-rw-r--r--lisp/chistory.el4
-rw-r--r--lisp/cmuscheme.el3
-rw-r--r--lisp/comint.el5
-rw-r--r--lisp/compare-w.el4
-rw-r--r--lisp/completion.el4
-rw-r--r--lisp/dabbrev.el4
-rw-r--r--lisp/diff.el5
-rw-r--r--lisp/disp-table.el5
-rw-r--r--lisp/ebuff-menu.el6
-rw-r--r--lisp/echistory.el5
-rw-r--r--lisp/edmacro.el5
-rw-r--r--lisp/ehelp.el3
-rw-r--r--lisp/electric.el7
-rw-r--r--lisp/emacs-lisp/autoload.el4
-rw-r--r--lisp/emacs-lisp/backquote.el3
-rw-r--r--lisp/emacs-lisp/cl-indent.el4
-rw-r--r--lisp/emacs-lisp/debug.el5
-rw-r--r--lisp/emerge.el13
-rw-r--r--lisp/emulation/edt.el107
-rw-r--r--lisp/files.el5
-rw-r--r--lisp/find-dired.el4
-rw-r--r--lisp/find-gc.el20
-rw-r--r--lisp/float-sup.el4
-rw-r--r--lisp/mail/emacsbug.el4
-rw-r--r--lisp/play/blackbox.el5
-rw-r--r--lisp/play/dissociate.el5
-rw-r--r--lisp/play/doctor.el5
-rw-r--r--lisp/progmodes/asm-mode.el3
-rw-r--r--lisp/progmodes/awk-mode.el5
-rw-r--r--lisp/progmodes/c-mode.el5
-rw-r--r--lisp/progmodes/cmacexp.el5
-rw-r--r--lisp/progmodes/cplus-md.el5
-rw-r--r--lisp/progmodes/etags.el6
-rw-r--r--lisp/progmodes/inf-lisp.el4
-rw-r--r--lisp/term/bg-mouse.el4
-rw-r--r--lisp/textmodes/bib-mode.el4
-rw-r--r--lisp/textmodes/bibtex.el8
-rw-r--r--lisp/textmodes/fill.el5
49 files changed, 298 insertions, 58 deletions
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 <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
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/=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/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/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-mode-map>\\[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/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/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