mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(doctor-mode): State that file has been censored.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-02-10 18:43:38 +00:00
parent 805132d6bb
commit 46cfd45bca
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/play/doctor.el
View File

@ -1,6 +1,7 @@
;;; doctor.el --- psychological help for frustrated users.
;;; (censored version--see below)
;; Copyright (C) 1985, 1987, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1987, 1994, 1996 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: games
@ -28,6 +29,16 @@
;; phrase-production techniques similar to the classic ELIZA demonstration
;; of pseudo-AI.
;; This file has been censored by the Communications Decency Act.
;; Some of its features were removed. The law was promoted as a ban
;; on pornography, but it bans far more than that. The doctor program
;; did not contain pornograpy, but part of it was prohibited
;; nonetheless.
;; For information on US government censorship of the Internet, and
;; what you can do to bring back freedom of the press, see the web
;; site http://www.vtw.org/
;;; Code:
(defun doctor-cadr (x) (car (cdr x)))
@ -68,6 +79,8 @@ reads the sentence before point, and prints the Doctor's answer."
(setq mode-name "Doctor")
(turn-on-auto-fill)
(doctor-type '(i am the psychotherapist \.
for your protection, i have been censored according to
the Communications Decency Act \.
($ please) ($ describe) your ($ problems) \.
each time you are finished talking, type \R\E\T twice \.))
(insert "\n"))
@ -603,7 +616,6 @@ reads the sentence before point, and prints the Doctor's answer."
(doctor-put-meaning ibm 'mach)
(doctor-put-meaning pc 'mach)
(doctor-put-meaning bitching 'foul)
(doctor-put-meaning shit 'foul)
(doctor-put-meaning bastard 'foul)
(doctor-put-meaning damn 'foul)
(doctor-put-meaning damned 'foul)
@ -692,8 +704,6 @@ reads the sentence before point, and prints the Doctor's answer."
(doctor-put-meaning cocks 'sexnoun)
(doctor-put-meaning dick 'sexnoun)
(doctor-put-meaning dicks 'sexnoun)
(doctor-put-meaning cunt 'sexnoun)
(doctor-put-meaning cunts 'sexnoun)
(doctor-put-meaning prostitute 'sexnoun)
(doctor-put-meaning condom 'sexnoun)
(doctor-put-meaning sex 'sexnoun)
@ -751,18 +761,14 @@ reads the sentence before point, and prints the Doctor's answer."
(doctor-put-meaning wine 'alcohol)
(doctor-put-meaning whiskey 'alcohol)
(doctor-put-meaning scotch 'alcohol)
(doctor-put-meaning fuck 'sexverb)
(doctor-put-meaning fucked 'sexverb)
(doctor-put-meaning screw 'sexverb)
(doctor-put-meaning screwing 'sexverb)
(doctor-put-meaning fucking 'sexverb)
(doctor-put-meaning rape 'sexverb)
(doctor-put-meaning raped 'sexverb)
(doctor-put-meaning kiss 'sexverb)
(doctor-put-meaning kissing 'sexverb)
(doctor-put-meaning kisses 'sexverb)
(doctor-put-meaning screws 'sexverb)
(doctor-put-meaning fucks 'sexverb)
(doctor-put-meaning because 'conj)
(doctor-put-meaning but 'conj)
(doctor-put-meaning however 'conj)