From fc68affa4e920d6a58520949ab446c77f90c534a Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 16 Jul 1992 07:28:05 +0000 Subject: [PATCH] *** empty log message *** --- lisp/calendar/holidays.el | 8 +++++ lisp/comint.el | 2 +- lisp/dabbrev.el | 2 +- lisp/emulation/edt.el | 8 ++--- lisp/flow-ctrl.el | 13 ++++++-- lisp/frame.el | 5 +++ lisp/ftp.el | 4 ++- lisp/play/hanoi.el | 8 +++++ lisp/progmodes/hideif.el | 80 ++++++++++++++++++++++++++--------------------- 9 files changed, 84 insertions(+), 46 deletions(-) diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index 56da6c9c586..7e58d4c8401 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -1,4 +1,8 @@ ;;; holidays.el --- holiday functions for the calendar package + +;; Author: Edward M. Reingold +;; Last-Modified: 14 Jul 1992 + ;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,6 +22,8 @@ ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. +;;; Commentary: + ;; This collection of functions implements the holiday features as described ;; in calendar.el. @@ -32,6 +38,8 @@ ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), ;; pages 899-928. +;;; Code: + (require 'calendar) ;;;###autoload diff --git a/lisp/comint.el b/lisp/comint.el index 14737769d80..24ba4459246 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -351,7 +351,7 @@ buffer. The hook comint-exec-hook is run after each exec." ;; This is just (append new old-env) that compresses out shadowed entries. -;; It's also pretty ugly, mostly due to elisp's horrible iteration structures. +;; It's also pretty ugly, mostly due to lisp's horrible iteration structures. (defun comint-update-env (old-env new) (let ((ans (reverse new)) (vars (mapcar (function (lambda (vv) diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index d6d306b7391..218e7c02460 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -25,7 +25,7 @@ ; size limit variable. Bugs fixed from the Twenex version are flagged by ; comments starting with ;;; . ; -; converted to elisp by Spencer Thomas. +; converted to Emacs Lisp by Spencer Thomas. ; Thoroughly cleaned up by Richard Stallman. ; ; If anyone feels like hacking at it, Bob Keller (Keller@Utah-20) first diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 58874fd94aa..589f7418bf6 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -40,10 +40,10 @@ ;; 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. +;; bugs I can find. As this is my first Emacs Lisp 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 diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el index 853fac2f6ef..637db1dca80 100644 --- a/lisp/flow-ctrl.el +++ b/lisp/flow-ctrl.el @@ -1,8 +1,12 @@ -;;; flow-ctrl.el --- help for lusers on cu(1) or terminals with wired-in ^S/^Q flow control +;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control + +;; Author Kevin Gallagher +;; Maintainer: FSF +;; Last-Modified: 03 Jun 1992 +;; Adapted-By: ESR ;;; Copyright (C) 1990 Free Software Foundation, Inc. ;;; Copyright (C) 1991 Kevin Gallagher -;;; Adapted for Emacs 19 by Eric S. Raymond ;;; ;;; GNU Emacs is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY. No author or distributor accepts @@ -18,7 +22,8 @@ ;;; your rights and responsibilities. It should be in a file named ;;; COPYING. Among other things, the Copyright notice and this notice ;;; must be preserved on all copies. -;;; + +;;; Commentary: ;;;; Terminals that use XON/XOFF flow control can cause problems with ;;;; GNU Emacs users. This file contains Emacs Lisp code that makes it @@ -36,6 +41,8 @@ ;;; Portability note: This uses (getenv "TERM"), and therefore probably ;;; won't work outside of UNIX-like environments. +;;; Code: + (defun evade-flow-control () "Enable use of flow control; let user type C-s as C-\ and C-q as C-^." (interactive) diff --git a/lisp/frame.el b/lisp/frame.el index e88bbc64b0c..9722f32c435 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,5 +1,8 @@ ;;; frame.el --- multi-frame management independent of window systems. +;; Maintainer: FSF +;; Last-Modified: 09 Jul 92 + ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc. ;;; This file is part of GNU Emacs. @@ -18,6 +21,8 @@ ;;; along with GNU Emacs; see the file COPYING. If not, write to ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Code: + (defvar frame-creation-function nil "Window-system dependent function to call to create a new frame. The window system startup file should set this to its frame creation diff --git a/lisp/ftp.el b/lisp/ftp.el index 45e15941245..fec6a493484 100644 --- a/lisp/ftp.el +++ b/lisp/ftp.el @@ -1,7 +1,9 @@ ;;; ftp.el --- file input and output over Internet using FTP +;; Author: Richard Mlynarik +;; Last-Modified: 05 May 1992 + ;; Copyright (C) 1987 Free Software Foundation, Inc. -;; Author mly@prep.ai.mit.edu. ;; This file is part of GNU Emacs. diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el index 5410b6ce3c6..edb8c0dca35 100644 --- a/lisp/play/hanoi.el +++ b/lisp/play/hanoi.el @@ -1,9 +1,16 @@ ;;; hanoi.el --- towers of hanoi in GNUmacs +;; Author: Damon Anton Permezel +;; Maintainer: FSF +;; Last-Modified: 09 May 1991 +;; Keywords: games + ; Author (a) 1985, Damon Anton Permezel ; This is in the public domain ; since he distributed it without copyright notice in 1985. +;;; Code: + ;;; ;;; hanoi-topos - direct cursor addressing ;;; @@ -191,3 +198,4 @@ (backward-char (/ (+ len 1) 2)) (delete-char 1) (insert ?\|)))))) +;;; hanoi.el \ No newline at end of file diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index a43b91ce091..482f9527d92 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -1,6 +1,14 @@ -;;; hide-ifdef-mode.el --- ides selected code within ifdef. +;;; hide-ifdef-mode.el --- hides selected code within ifdef. + +;;; Author: Dan LaLiberte +;;; Last-Modified: 06 Mar 1991 + +;;; $Header: hide-ifdef-mode.el,v 1.7 88/02/16 03:12:58 liberte Exp $ ;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte + +;;; Commentary: + ;;; Written by Brian Marick, at Gould, Computer Systems Division, Urbana IL. ;;; Extensively modified by Daniel LaLiberte (while at Gould). ;;; @@ -8,41 +16,8 @@ ;;; of modifications and send comments to: ;;; liberte@a.cs.uiuc.edu or ihnp4!uiucdcs!liberte ;;; I will continue to upgrade hide-ifdef-mode -;;; with your contributions and will eventually offer it to FSF. -;;; -;;; $Header: hide-ifdef-mode.el,v 1.7 88/02/16 03:12:58 liberte Exp $ -;;; -;;; $Log: hide-ifdef-mode.el,v $ -;;; Revision 1.7 88/02/16 03:12:58 liberte -;;; Fixed comments and doc strings. -;;; Added optional prefix arg for ifdef motion commands. -;;; -;;; Revision 1.6 88/02/05 00:36:18 liberte -;;; Bug fixes. -;;; 1. A multi-line comment that starts on an #ifdef line -;;; now ends on that line. -;;; 2. Fix bad function name: hide-hif-ifdef-toggle-read-only -;;; 3. Make ifdef-block hiding work outside of ifdefs. -;;; -;;; Revision 1.5 88/01/31 23:19:31 liberte -;;; Major clean up. -;;; Prefix internal names with "hif-". -;;; -;;; Revision 1.4 88/01/30 14:09:38 liberte -;;; Add hide-ifdef-hiding and hide-ifdef-mode to minor-mode-alist. -;;; -;;; Revision 1.3 88/01/29 00:38:19 liberte -;;; Fix three bugs. -;;; 1. Function "defined" is just like lookup. -;;; 2. Skip to newline or cr in case text is hidden. -;;; 3. Use car of token list if just one symbol. -;;; -;;; Revision 1.2 88/01/28 23:32:46 liberte -;;; Use hide-ifdef-mode-prefix-key. -;;; Copy current-local-map so other buffers do not get -;;; hide-ifdef-mode bindings. -;;; -;;;-------------------------------------------------------------- +;;; with your contributions. + ;;; To initialize, toggle the hide-ifdef minor mode with ;;; ;;; M-x hide-ifdef-mode @@ -117,7 +92,40 @@ ;;; may appear. "Ifdef" will appear when hide-ifdef-mode is active. "Hiding" ;;; will appear when text may be hidden ("hide-ifdef-hiding" is non-nil). +;;; Change Log: +;;; +;;; $Log: hide-ifdef-mode.el,v $ +;;; Revision 1.7 88/02/16 03:12:58 liberte +;;; Fixed comments and doc strings. +;;; Added optional prefix arg for ifdef motion commands. +;;; +;;; Revision 1.6 88/02/05 00:36:18 liberte +;;; Bug fixes. +;;; 1. A multi-line comment that starts on an #ifdef line +;;; now ends on that line. +;;; 2. Fix bad function name: hide-hif-ifdef-toggle-read-only +;;; 3. Make ifdef-block hiding work outside of ifdefs. +;;; +;;; Revision 1.5 88/01/31 23:19:31 liberte +;;; Major clean up. +;;; Prefix internal names with "hif-". +;;; +;;; Revision 1.4 88/01/30 14:09:38 liberte +;;; Add hide-ifdef-hiding and hide-ifdef-mode to minor-mode-alist. +;;; +;;; Revision 1.3 88/01/29 00:38:19 liberte +;;; Fix three bugs. +;;; 1. Function "defined" is just like lookup. +;;; 2. Skip to newline or cr in case text is hidden. +;;; 3. Use car of token list if just one symbol. +;;; +;;; Revision 1.2 88/01/28 23:32:46 liberte +;;; Use hide-ifdef-mode-prefix-key. +;;; Copy current-local-map so other buffers do not get +;;; hide-ifdef-mode bindings. +;;; +;;; Code: (defvar hide-ifdef-mode-map nil "Keymap used with Hide-Ifdef mode") -- 2.11.4.GIT