annotate lisp/=term-nasty.el @ 9389:fec6bd86e836

(compilation-mode-font-lock-keywords, rmail-summary-font-lock-keywords, dired-font-lock-keywords, shell-font-lock-keywords, texi-font-lock-keywords, perl-font-lock-keywords): Deleted. (font-lock-mode): Doc fix; use add/remove-hook, not setq; removed make-local-variable of font-lock-no-comments. (font-lock-set-defaults): Do it there, and use: (font-lock-defaults-alist): Use it to set font-lock-keywords, font-lock-keywords-case-fold-search and font-lock-no-comments. (turn-on-font-lock): New function. (font-lock-fontify-buffer): Made interruptible; deleted messages. (font-lock-fontify-region): Made syntax state reliable by widening within new restriction; let cstart and cend for speed; outputs message. (font-lock-after-change-function): Remove spurious goto-char and use forward-line, not 1+ end-of-line, for end of fontification region. (font-lock-any-properties-p): Removed, use text-property-not-all. (font-lock-*-face): facename values are themselves. (font-lock-variable-name-face, font-lock-reference-face): New vars. (font-lock-doc-string-face): Removed. (font-lock-keywords): Extended value syntax. (font-lock-hack-keywords): Cope with it; outputs initial message. Merged in face-lock.el: (font-lock-display-type, font-lock-background-mode) (font-lock-face-attributes): New variables, use it. (font-lock-make-face): New function, use them.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Oct 1994 10:23:26 +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