diff options
| author | Eric S. Raymond | 1992-07-16 07:28:05 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1992-07-16 07:28:05 +0000 |
| commit | fc68affa4e920d6a58520949ab446c77f90c534a (patch) | |
| tree | 5ef52e43dc8979fdc2d524c27ecd05ec696a406c | |
| parent | 282d89c00d827cc25d77849ac23e919cbeabd045 (diff) | |
| download | emacs-fc68affa4e920d6a58520949ab446c77f90c534a.tar.gz emacs-fc68affa4e920d6a58520949ab446c77f90c534a.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/calendar/holidays.el | 8 | ||||
| -rw-r--r-- | lisp/comint.el | 2 | ||||
| -rw-r--r-- | lisp/dabbrev.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 8 | ||||
| -rw-r--r-- | lisp/flow-ctrl.el | 13 | ||||
| -rw-r--r-- | lisp/frame.el | 5 | ||||
| -rw-r--r-- | lisp/ftp.el | 4 | ||||
| -rw-r--r-- | lisp/play/hanoi.el | 8 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | ;;; holidays.el --- holiday functions for the calendar package | 1 | ;;; holidays.el --- holiday functions for the calendar package |
| 2 | |||
| 3 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | ||
| 4 | ;; Last-Modified: 14 Jul 1992 | ||
| 5 | |||
| 2 | ;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc. | 6 | ;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc. |
| 3 | 7 | ||
| 4 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| @@ -18,6 +22,8 @@ | |||
| 18 | ;; file named COPYING. Among other things, the copyright notice | 22 | ;; file named COPYING. Among other things, the copyright notice |
| 19 | ;; and this notice must be preserved on all copies. | 23 | ;; and this notice must be preserved on all copies. |
| 20 | 24 | ||
| 25 | ;;; Commentary: | ||
| 26 | |||
| 21 | ;; This collection of functions implements the holiday features as described | 27 | ;; This collection of functions implements the holiday features as described |
| 22 | ;; in calendar.el. | 28 | ;; in calendar.el. |
| 23 | 29 | ||
| @@ -32,6 +38,8 @@ | |||
| 32 | ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), | 38 | ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), |
| 33 | ;; pages 899-928. | 39 | ;; pages 899-928. |
| 34 | 40 | ||
| 41 | ;;; Code: | ||
| 42 | |||
| 35 | (require 'calendar) | 43 | (require 'calendar) |
| 36 | 44 | ||
| 37 | ;;;###autoload | 45 | ;;;###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." | |||
| 351 | 351 | ||
| 352 | 352 | ||
| 353 | ;; This is just (append new old-env) that compresses out shadowed entries. | 353 | ;; This is just (append new old-env) that compresses out shadowed entries. |
| 354 | ;; It's also pretty ugly, mostly due to elisp's horrible iteration structures. | 354 | ;; It's also pretty ugly, mostly due to lisp's horrible iteration structures. |
| 355 | (defun comint-update-env (old-env new) | 355 | (defun comint-update-env (old-env new) |
| 356 | (let ((ans (reverse new)) | 356 | (let ((ans (reverse new)) |
| 357 | (vars (mapcar (function (lambda (vv) | 357 | (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 @@ | |||
| 25 | ; size limit variable. Bugs fixed from the Twenex version are flagged by | 25 | ; size limit variable. Bugs fixed from the Twenex version are flagged by |
| 26 | ; comments starting with ;;; . | 26 | ; comments starting with ;;; . |
| 27 | ; | 27 | ; |
| 28 | ; converted to elisp by Spencer Thomas. | 28 | ; converted to Emacs Lisp by Spencer Thomas. |
| 29 | ; Thoroughly cleaned up by Richard Stallman. | 29 | ; Thoroughly cleaned up by Richard Stallman. |
| 30 | ; | 30 | ; |
| 31 | ; If anyone feels like hacking at it, Bob Keller (Keller@Utah-20) first | 31 | ; 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 @@ | |||
| 40 | ;; lot during debugging. | 40 | ;; lot during debugging. |
| 41 | ;; | 41 | ;; |
| 42 | ;; I will gladly take all criticisms and complaints to heart, and will fix what | 42 | ;; I will gladly take all criticisms and complaints to heart, and will fix what |
| 43 | ;; bugs I can find. As this is my first elisp hack, you may have to root out a | 43 | ;; bugs I can find. As this is my first Emacs Lisp hack, you may have to root |
| 44 | ;; few nasties hidden in the code. Please let me know if you find any (sorry, | 44 | ;; out a few nasties hidden in the code. Please let me know if you find any |
| 45 | ;; no rewards :-). I would also be interested if there are better, cleaner, | 45 | ;; (sorry, no rewards :-). I would also be interested if there are better, |
| 46 | ;; faster ways of doing some of the things that I have done. | 46 | ;; cleaner, faster ways of doing some of the things that I have done. |
| 47 | ;; | 47 | ;; |
| 48 | ;; You must understand some design considerations that I had in mind. | 48 | ;; You must understand some design considerations that I had in mind. |
| 49 | ;; The intention was not really to "emulate" EDT, but rather to take advantage | 49 | ;; 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 @@ | |||
| 1 | ;;; flow-ctrl.el --- help for lusers on cu(1) or terminals with wired-in ^S/^Q flow control | 1 | ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control |
| 2 | |||
| 3 | ;; Author Kevin Gallagher | ||
| 4 | ;; Maintainer: FSF | ||
| 5 | ;; Last-Modified: 03 Jun 1992 | ||
| 6 | ;; Adapted-By: ESR | ||
| 2 | 7 | ||
| 3 | ;;; Copyright (C) 1990 Free Software Foundation, Inc. | 8 | ;;; Copyright (C) 1990 Free Software Foundation, Inc. |
| 4 | ;;; Copyright (C) 1991 Kevin Gallagher | 9 | ;;; Copyright (C) 1991 Kevin Gallagher |
| 5 | ;;; Adapted for Emacs 19 by Eric S. Raymond <eric@snark.thyrsus.com> | ||
| 6 | ;;; | 10 | ;;; |
| 7 | ;;; GNU Emacs is distributed in the hope that it will be useful, but | 11 | ;;; GNU Emacs is distributed in the hope that it will be useful, but |
| 8 | ;;; WITHOUT ANY WARRANTY. No author or distributor accepts | 12 | ;;; WITHOUT ANY WARRANTY. No author or distributor accepts |
| @@ -18,7 +22,8 @@ | |||
| 18 | ;;; your rights and responsibilities. It should be in a file named | 22 | ;;; your rights and responsibilities. It should be in a file named |
| 19 | ;;; COPYING. Among other things, the Copyright notice and this notice | 23 | ;;; COPYING. Among other things, the Copyright notice and this notice |
| 20 | ;;; must be preserved on all copies. | 24 | ;;; must be preserved on all copies. |
| 21 | ;;; | 25 | |
| 26 | ;;; Commentary: | ||
| 22 | 27 | ||
| 23 | ;;;; Terminals that use XON/XOFF flow control can cause problems with | 28 | ;;;; Terminals that use XON/XOFF flow control can cause problems with |
| 24 | ;;;; GNU Emacs users. This file contains Emacs Lisp code that makes it | 29 | ;;;; GNU Emacs users. This file contains Emacs Lisp code that makes it |
| @@ -36,6 +41,8 @@ | |||
| 36 | ;;; Portability note: This uses (getenv "TERM"), and therefore probably | 41 | ;;; Portability note: This uses (getenv "TERM"), and therefore probably |
| 37 | ;;; won't work outside of UNIX-like environments. | 42 | ;;; won't work outside of UNIX-like environments. |
| 38 | 43 | ||
| 44 | ;;; Code: | ||
| 45 | |||
| 39 | (defun evade-flow-control () | 46 | (defun evade-flow-control () |
| 40 | "Enable use of flow control; let user type C-s as C-\ and C-q as C-^." | 47 | "Enable use of flow control; let user type C-s as C-\ and C-q as C-^." |
| 41 | (interactive) | 48 | (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 @@ | |||
| 1 | ;;; frame.el --- multi-frame management independent of window systems. | 1 | ;;; frame.el --- multi-frame management independent of window systems. |
| 2 | 2 | ||
| 3 | ;; Maintainer: FSF | ||
| 4 | ;; Last-Modified: 09 Jul 92 | ||
| 5 | |||
| 3 | ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc. | 6 | ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc. |
| 4 | 7 | ||
| 5 | ;;; This file is part of GNU Emacs. | 8 | ;;; This file is part of GNU Emacs. |
| @@ -18,6 +21,8 @@ | |||
| 18 | ;;; along with GNU Emacs; see the file COPYING. If not, write to | 21 | ;;; along with GNU Emacs; see the file COPYING. If not, write to |
| 19 | ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 22 | ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 20 | 23 | ||
| 24 | ;;; Code: | ||
| 25 | |||
| 21 | (defvar frame-creation-function nil | 26 | (defvar frame-creation-function nil |
| 22 | "Window-system dependent function to call to create a new frame. | 27 | "Window-system dependent function to call to create a new frame. |
| 23 | The window system startup file should set this to its frame creation | 28 | 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 @@ | |||
| 1 | ;;; ftp.el --- file input and output over Internet using FTP | 1 | ;;; ftp.el --- file input and output over Internet using FTP |
| 2 | 2 | ||
| 3 | ;; Author: Richard Mlynarik <mly@prep.ai.mit.edu> | ||
| 4 | ;; Last-Modified: 05 May 1992 | ||
| 5 | |||
| 3 | ;; Copyright (C) 1987 Free Software Foundation, Inc. | 6 | ;; Copyright (C) 1987 Free Software Foundation, Inc. |
| 4 | ;; Author mly@prep.ai.mit.edu. | ||
| 5 | 7 | ||
| 6 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| 7 | 9 | ||
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 @@ | |||
| 1 | ;;; hanoi.el --- towers of hanoi in GNUmacs | 1 | ;;; hanoi.el --- towers of hanoi in GNUmacs |
| 2 | 2 | ||
| 3 | ;; Author: Damon Anton Permezel | ||
| 4 | ;; Maintainer: FSF | ||
| 5 | ;; Last-Modified: 09 May 1991 | ||
| 6 | ;; Keywords: games | ||
| 7 | |||
| 3 | ; Author (a) 1985, Damon Anton Permezel | 8 | ; Author (a) 1985, Damon Anton Permezel |
| 4 | ; This is in the public domain | 9 | ; This is in the public domain |
| 5 | ; since he distributed it without copyright notice in 1985. | 10 | ; since he distributed it without copyright notice in 1985. |
| 6 | 11 | ||
| 12 | ;;; Code: | ||
| 13 | |||
| 7 | ;;; | 14 | ;;; |
| 8 | ;;; hanoi-topos - direct cursor addressing | 15 | ;;; hanoi-topos - direct cursor addressing |
| 9 | ;;; | 16 | ;;; |
| @@ -191,3 +198,4 @@ | |||
| 191 | (backward-char (/ (+ len 1) 2)) | 198 | (backward-char (/ (+ len 1) 2)) |
| 192 | (delete-char 1) (insert ?\|)))))) | 199 | (delete-char 1) (insert ?\|)))))) |
| 193 | 200 | ||
| 201 | ;;; 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 @@ | |||
| 1 | ;;; hide-ifdef-mode.el --- ides selected code within ifdef. | 1 | ;;; hide-ifdef-mode.el --- hides selected code within ifdef. |
| 2 | |||
| 3 | ;;; Author: Dan LaLiberte <liberte@a.cs.uiuc.edu> | ||
| 4 | ;;; Last-Modified: 06 Mar 1991 | ||
| 5 | |||
| 6 | ;;; $Header: hide-ifdef-mode.el,v 1.7 88/02/16 03:12:58 liberte Exp $ | ||
| 2 | 7 | ||
| 3 | ;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte | 8 | ;;; Copyright (C) 1988 Brian Marick and Daniel LaLiberte |
| 9 | |||
| 10 | ;;; Commentary: | ||
| 11 | |||
| 4 | ;;; Written by Brian Marick, at Gould, Computer Systems Division, Urbana IL. | 12 | ;;; Written by Brian Marick, at Gould, Computer Systems Division, Urbana IL. |
| 5 | ;;; Extensively modified by Daniel LaLiberte (while at Gould). | 13 | ;;; Extensively modified by Daniel LaLiberte (while at Gould). |
| 6 | ;;; | 14 | ;;; |
| @@ -8,41 +16,8 @@ | |||
| 8 | ;;; of modifications and send comments to: | 16 | ;;; of modifications and send comments to: |
| 9 | ;;; liberte@a.cs.uiuc.edu or ihnp4!uiucdcs!liberte | 17 | ;;; liberte@a.cs.uiuc.edu or ihnp4!uiucdcs!liberte |
| 10 | ;;; I will continue to upgrade hide-ifdef-mode | 18 | ;;; I will continue to upgrade hide-ifdef-mode |
| 11 | ;;; with your contributions and will eventually offer it to FSF. | 19 | ;;; with your contributions. |
| 12 | ;;; | 20 | |
| 13 | ;;; $Header: hide-ifdef-mode.el,v 1.7 88/02/16 03:12:58 liberte Exp $ | ||
| 14 | ;;; | ||
| 15 | ;;; $Log: hide-ifdef-mode.el,v $ | ||
| 16 | ;;; Revision 1.7 88/02/16 03:12:58 liberte | ||
| 17 | ;;; Fixed comments and doc strings. | ||
| 18 | ;;; Added optional prefix arg for ifdef motion commands. | ||
| 19 | ;;; | ||
| 20 | ;;; Revision 1.6 88/02/05 00:36:18 liberte | ||
| 21 | ;;; Bug fixes. | ||
| 22 | ;;; 1. A multi-line comment that starts on an #ifdef line | ||
| 23 | ;;; now ends on that line. | ||
| 24 | ;;; 2. Fix bad function name: hide-hif-ifdef-toggle-read-only | ||
| 25 | ;;; 3. Make ifdef-block hiding work outside of ifdefs. | ||
| 26 | ;;; | ||
| 27 | ;;; Revision 1.5 88/01/31 23:19:31 liberte | ||
| 28 | ;;; Major clean up. | ||
| 29 | ;;; Prefix internal names with "hif-". | ||
| 30 | ;;; | ||
| 31 | ;;; Revision 1.4 88/01/30 14:09:38 liberte | ||
| 32 | ;;; Add hide-ifdef-hiding and hide-ifdef-mode to minor-mode-alist. | ||
| 33 | ;;; | ||
| 34 | ;;; Revision 1.3 88/01/29 00:38:19 liberte | ||
| 35 | ;;; Fix three bugs. | ||
| 36 | ;;; 1. Function "defined" is just like lookup. | ||
| 37 | ;;; 2. Skip to newline or cr in case text is hidden. | ||
| 38 | ;;; 3. Use car of token list if just one symbol. | ||
| 39 | ;;; | ||
| 40 | ;;; Revision 1.2 88/01/28 23:32:46 liberte | ||
| 41 | ;;; Use hide-ifdef-mode-prefix-key. | ||
| 42 | ;;; Copy current-local-map so other buffers do not get | ||
| 43 | ;;; hide-ifdef-mode bindings. | ||
| 44 | ;;; | ||
| 45 | ;;;-------------------------------------------------------------- | ||
| 46 | ;;; To initialize, toggle the hide-ifdef minor mode with | 21 | ;;; To initialize, toggle the hide-ifdef minor mode with |
| 47 | ;;; | 22 | ;;; |
| 48 | ;;; M-x hide-ifdef-mode | 23 | ;;; M-x hide-ifdef-mode |
| @@ -117,7 +92,40 @@ | |||
| 117 | ;;; may appear. "Ifdef" will appear when hide-ifdef-mode is active. "Hiding" | 92 | ;;; may appear. "Ifdef" will appear when hide-ifdef-mode is active. "Hiding" |
| 118 | ;;; will appear when text may be hidden ("hide-ifdef-hiding" is non-nil). | 93 | ;;; will appear when text may be hidden ("hide-ifdef-hiding" is non-nil). |
| 119 | 94 | ||
| 95 | ;;; Change Log: | ||
| 96 | ;;; | ||
| 97 | ;;; $Log: hide-ifdef-mode.el,v $ | ||
| 98 | ;;; Revision 1.7 88/02/16 03:12:58 liberte | ||
| 99 | ;;; Fixed comments and doc strings. | ||
| 100 | ;;; Added optional prefix arg for ifdef motion commands. | ||
| 101 | ;;; | ||
| 102 | ;;; Revision 1.6 88/02/05 00:36:18 liberte | ||
| 103 | ;;; Bug fixes. | ||
| 104 | ;;; 1. A multi-line comment that starts on an #ifdef line | ||
| 105 | ;;; now ends on that line. | ||
| 106 | ;;; 2. Fix bad function name: hide-hif-ifdef-toggle-read-only | ||
| 107 | ;;; 3. Make ifdef-block hiding work outside of ifdefs. | ||
| 108 | ;;; | ||
| 109 | ;;; Revision 1.5 88/01/31 23:19:31 liberte | ||
| 110 | ;;; Major clean up. | ||
| 111 | ;;; Prefix internal names with "hif-". | ||
| 112 | ;;; | ||
| 113 | ;;; Revision 1.4 88/01/30 14:09:38 liberte | ||
| 114 | ;;; Add hide-ifdef-hiding and hide-ifdef-mode to minor-mode-alist. | ||
| 115 | ;;; | ||
| 116 | ;;; Revision 1.3 88/01/29 00:38:19 liberte | ||
| 117 | ;;; Fix three bugs. | ||
| 118 | ;;; 1. Function "defined" is just like lookup. | ||
| 119 | ;;; 2. Skip to newline or cr in case text is hidden. | ||
| 120 | ;;; 3. Use car of token list if just one symbol. | ||
| 121 | ;;; | ||
| 122 | ;;; Revision 1.2 88/01/28 23:32:46 liberte | ||
| 123 | ;;; Use hide-ifdef-mode-prefix-key. | ||
| 124 | ;;; Copy current-local-map so other buffers do not get | ||
| 125 | ;;; hide-ifdef-mode bindings. | ||
| 126 | ;;; | ||
| 120 | 127 | ||
| 128 | ;;; Code: | ||
| 121 | 129 | ||
| 122 | (defvar hide-ifdef-mode-map nil | 130 | (defvar hide-ifdef-mode-map nil |
| 123 | "Keymap used with Hide-Ifdef mode") | 131 | "Keymap used with Hide-Ifdef mode") |