annotate lisp/=term-nasty.el @ 5865:8dc616f310e8

(xmenu_show ) [USE_X_TOOLKIT]: Implement a Motif behavior for the menubar. Now, if you move the pointer on another menubar item while displaying the contents of a selected menubar item, the current pulldown menu is closed and the new one corresponding to the new pointed item is displayed. Clean up code. Handle the MotionNotify events in the XEvent loop.
author Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
date Wed, 09 Feb 1994 13:51:25 +0000
parents ca3af688a85d
children 3938a0350eea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 83
diff changeset
1 ;;; term-nasty.el --- Damned Things from terminfo.el
897
ca3af688a85d entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 840
diff changeset
2 ;;; This file is in the public domain, and was written by Stallman and Mlynarik
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 83
diff changeset
3
775
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
4 ;;; Commentary:
83
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
775
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
6 ;; Some people used to be bothered by the following comments that were
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
7 ;; found in terminal.el. We decided they were distracting, and that it
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
8 ;; was better not to have them there. On the other hand, we didn't want
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
9 ;; to appear to be giving in to the pressure to censor obscenity that
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
10 ;; currently threatens freedom of speech and of the press in the US.
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
11 ;; So we decided to put the comments here.
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
12
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 657
diff changeset
13 ;;; Code:
83
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 These comments were removed from te-losing-unix.
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;(what lossage)
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;(message "fucking-unix: %d" char)
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 This was before te-process-output.
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; fucking unix has -such- braindamaged lack of tty control...
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 And about the need to handle output characters such as C-m, C-g, C-h
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 and C-i even though the termcap doesn't say they may be used:
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 ;fuck me harder
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 ;again and again!
aafe1b6c4ab7 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 ;wa12id!!
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 83
diff changeset
27 ;(spiked)
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 83
diff changeset
28
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 83
diff changeset
29 ;;; term-nasty.el ends here