From 46cfd45bcad5b87513cb282d50eec6bd213d7a8f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 10 Feb 1996 18:43:38 +0000 Subject: [PATCH] (doctor-mode): State that file has been censored. --- lisp/play/doctor.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index b1edcefaf88..abac1b43a5c 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -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) -- 2.39.2