Mercurial > emacs
changeset 662:8a533acedb77
*** empty log message ***
line wrap: on
line diff
--- a/lisp/=ada.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/=ada.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ "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
--- a/lisp/=cl.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/=cl.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ Common-Lisp codes." form) -;;;; end of cl.el +(provide 'cl) -(provide 'cl) +;;; cl.el ends here
--- a/lisp/=diary-lib.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/=diary-lib.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'diary) +;;; diary.el ends here
--- a/lisp/abbrev.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/abbrev.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ pnt))) (if (or noquery (y-or-n-p (format "Expand `%s'? " string))) (expand-abbrev))))))) + +;;; abbrev.el ends here
--- a/lisp/abbrevlist.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/abbrevlist.el Sat May 30 23:54:21 1992 +0000 @@ -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
--- a/lisp/apropos.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/apropos.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ nil symbol)) +;;; apropos.el ends here
--- a/lisp/array.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/array.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (or arg (+ (ceiling max-column columns-per-line) (if rows-numbered 1 0))))) + +;;; array.el ends here
--- a/lisp/autoinsert.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/autoinsert.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (setq find-file-not-found-hooks (cons 'insert-auto-insert-files find-file-not-found-hooks)) + +;;; autoinsert.el ends here
--- a/lisp/buff-menu.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/buff-menu.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (switch-to-buffer (other-buffer)) (pop-to-buffer buff) (bury-buffer menu))) + +;;; buff-menu.el ends here
--- a/lisp/calendar/appt.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/calendar/appt.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (setq conv-time (+ (* hr 60) min)) conv-time)) - (setq display-time-hook 'appt-check) - +;;; appt.el ends here
--- a/lisp/case-table.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/case-table.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (modify-syntax-entry c syntax text-mode-syntax-table)) (provide 'case-table) + +;;; case-table.el ends here
--- a/lisp/chistory.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/chistory.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'chistory) +;;; chistory.el ends here
--- a/lisp/cmuscheme.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/cmuscheme.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ ;;; Tale suggested this. (provide 'cmuscheme) + +;;; cmuscheme.el ends here
--- a/lisp/comint.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/comint.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ ;;; liked them; I don't think anyone used them. (provide 'comint) + +;;; comint.el ends here
--- a/lisp/compare-w.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/compare-w.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'compare-w) +;;; compare-w.el ends here
--- a/lisp/completion.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/completion.el Sat May 30 23:54:21 1992 +0000 @@ -1,3 +1,5 @@ +;;; completion.el --- dynamic word-completion code + ;;; This is a Completion system for GNU Emacs ;;; ;;; E-Mail: @@ -3111,3 +3113,5 @@ (cmpl-statistics-block (record-completion-file-loaded)) + +;;; completion.el ends here
--- a/lisp/dabbrev.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/dabbrev.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'dabbrevs) +;;; dabbrev.el ends here
--- a/lisp/diff.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/diff.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (setq cnt (1+ cnt))) (message "Counting differences...done (%d)" cnt) cnt)))) + +;;; diff.el ends here
--- a/lisp/disp-table.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/disp-table.el Sat May 30 23:54:21 1992 +0000 @@ -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
--- a/lisp/ebuff-menu.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/ebuff-menu.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (message "Buffer %s does not exist!" bufnam) (sit-for 4)))) - - - +;;; ebuff-menu.el ends here
--- a/lisp/echistory.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/echistory.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (if (boundp 'electric-history-in-progress) (progn (message "") (throw 'electric-history-quit nil)))) + +;;; echistory.el ends here
--- a/lisp/edmacro.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/edmacro.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (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
--- a/lisp/ehelp.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/ehelp.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'ehelp) +;;; ehelp.el ends here
--- a/lisp/electric.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/electric.el Sat May 30 23:54:21 1992 +0000 @@ -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
--- a/lisp/emacs-lisp/autoload.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emacs-lisp/autoload.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'autoload) +;;; autoload.el ends here
--- a/lisp/emacs-lisp/backquote.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emacs-lisp/backquote.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'backquote) +;;; backquote.el ends here
--- a/lisp/emacs-lisp/cl-indent.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emacs-lisp/cl-indent.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ ;; To disable this stuff, (setq lisp-indent-function 'lisp-indent-function) +;;; cl-indent.el ends here
--- a/lisp/emacs-lisp/debug.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emacs-lisp/debug.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (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
--- a/lisp/emerge.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emerge.el Sat May 30 23:54:21 1992 +0000 @@ -1,4 +1,4 @@ -;;; emerge.el version 4 +;;; emerge.el --- merge diffs inder Emacs control (version 4) ;;; 13 Dec 1991 @@ -1140,6 +1140,7 @@ ;;; 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 @@ 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 @@ ;;; 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 @@ quit-hooks nil))) +;;;###autoload (defun emerge-buffers-with-ancestor (buffer-A buffer-B buffer-ancestor &optional startup-hooks quit-hooks) @@ -1243,6 +1247,7 @@ ;;; 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 @@ 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 @@ ;;; 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 @@ 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 @@ (setq limit (1+ (match-end 0))))) s) -;;;;;;;;;;;;;;;; end emerge.el ;;;;;;;;;;;;;;;; - (provide 'emerge) +;;; emerge.el ends here
--- a/lisp/emulation/edt.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/emulation/edt.el Sat May 30 23:54:21 1992 +0000 @@ -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 ""
--- a/lisp/files.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/files.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (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
--- a/lisp/find-dired.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/find-dired.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'find-dired) +;;; find-dired.el ends here
--- a/lisp/find-gc.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/find-gc.el Sat May 30 23:54:21 1992 +0000 @@ -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
--- a/lisp/float-sup.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/float-sup.el Sat May 30 23:54:21 1992 +0000 @@ -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
--- a/lisp/mail/emacsbug.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/mail/emacsbug.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (insert "\nIn " (emacs-version) "\n\n") (message (substitute-command-keys "Type \\[mail-send] to send bug report."))) +;;; emacsbug.el ends here
--- a/lisp/play/blackbox.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/play/blackbox.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (cond ((equal item (car list)) (cdr list)) (t (cons (car list) (bb-delete item (cdr list)))))) + +;;; blackbox.el ends here
--- a/lisp/play/dissociate.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/play/dissociate.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (goto-char 1) (funcall search-function overlap opoint t)))))) (sit-for 0)))) + +;;; dissociate.el ends here
--- a/lisp/play/doctor.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/play/doctor.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (interactive) (insert "Mein fuhrer!!\n") (doctor-read-print)) + +;;; doctor.el ends here
--- a/lisp/progmodes/asm-mode.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/asm-mode.el Sat May 30 23:54:21 1992 +0000 @@ -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.
--- a/lisp/progmodes/awk-mode.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/awk-mode.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (make-local-variable 'comment-indent-hook) (setq comment-indent-hook 'c-comment-indent) (run-hooks 'awk-mode-hook)) + +;;; awk-mode.el ends here
--- a/lisp/progmodes/c-mode.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/c-mode.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (while vars (set (car (car vars)) (cdr (car vars))) (setq vars (cdr vars))))) + +;;; c-mode.el ends here
--- a/lisp/progmodes/cmacexp.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/cmacexp.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (while (eolp) (delete-char 1)) (delete-region (point-min) (point))) (display-buffer outbuf))) + +;;; cmacexp.el ends here
--- a/lisp/progmodes/cplus-md.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/cplus-md.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (next-line 1) (beginning-of-line 1))) (goto-char restore))) + +;;; c++-mode.el ends here
--- a/lisp/progmodes/etags.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/etags.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (terpri) (forward-line 1))))) -;; etags.el ends here - (provide 'etags) +;;; etags.el ends here
--- a/lisp/progmodes/inf-lisp.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/progmodes/inf-lisp.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'cmulisp) +;;; cmulisp.el ends here
--- a/lisp/term/bg-mouse.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/term/bg-mouse.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'bg-mouse) +;;; bg-mouse.el ends here
--- a/lisp/textmodes/bib-mode.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/textmodes/bib-mode.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (provide 'bib-mode) +;;; bib-mode.el ends here
--- a/lisp/textmodes/bibtex.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/textmodes/bibtex.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ )) ; matches (if... -;;; ------------- end bibtex-mode.el ------------------------------- +(provide 'bibtex) -(provide 'bibtex)(provide 'bibtex) - +;;; bibtex.el ends here
--- a/lisp/textmodes/fill.el Sat May 30 23:52:26 1992 +0000 +++ b/lisp/textmodes/fill.el Sat May 30 23:54:21 1992 +0000 @@ -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 @@ (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