aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEric S. Raymond1992-07-16 07:28:05 +0000
committerEric S. Raymond1992-07-16 07:28:05 +0000
commitfc68affa4e920d6a58520949ab446c77f90c534a (patch)
tree5ef52e43dc8979fdc2d524c27ecd05ec696a406c /lisp
parent282d89c00d827cc25d77849ac23e919cbeabd045 (diff)
downloademacs-fc68affa4e920d6a58520949ab446c77f90c534a.tar.gz
emacs-fc68affa4e920d6a58520949ab446c77f90c534a.zip
*** empty log message ***
Diffstat (limited to 'lisp')
-rw-r--r--lisp/calendar/holidays.el8
-rw-r--r--lisp/comint.el2
-rw-r--r--lisp/dabbrev.el2
-rw-r--r--lisp/emulation/edt.el8
-rw-r--r--lisp/flow-ctrl.el13
-rw-r--r--lisp/frame.el5
-rw-r--r--lisp/ftp.el4
-rw-r--r--lisp/play/hanoi.el8
-rw-r--r--lisp/progmodes/hideif.el80
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.
23The window system startup file should set this to its frame creation 28The 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")