From f5594f039ff931d6f3071848f03513c6afd5733b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 27 Jun 2009 04:21:14 +0000 Subject: [PATCH] * play/doctor.el: Remove reference to obsolete website. (make-doctor-variables): Correct grammar mistake (Bug#2633). --- lisp/ChangeLog | 5 +++++ lisp/play/doctor.el | 41 +++++++++++------------------------------ 2 files changed, 16 insertions(+), 30 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b9871323aa..3e761d07530 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-27 Chong Yidong + + * play/doctor.el: Remove reference to obsolete website. + (make-doctor-variables): Correct grammar mistake (Bug#2633). + 2009-06-26 Dan Nicolaescu Remove find-file-not-found-hook VC method. (Bug#2757) diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 50911fc9098..2d4ebd75ede 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -27,21 +27,6 @@ ;; phrase-production techniques similar to the classic ELIZA demonstration ;; of pseudo-AI. -;; This file was for a while 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 pornography, but part of it was prohibited -;; nonetheless. - -;; The Supreme Court overturned the Communications Decency Act, but -;; Congress is sure to look for some other way to try to end free speech. -;; For information on US government censorship of the Internet, and -;; what you can do to protect freedom of the press, see the web -;; site http://www.vtw.org/ -;; See also the file etc/CENSORSHIP in the Emacs distribution -;; for a discussion of why and how this file was censored, and the -;; political implications of the issue. - ;;; Code: (defvar **mad**) (defvar *debug*) (defvar *print-space*) @@ -67,11 +52,11 @@ (defvar sent) (defvar sexlst) (defvar shortbeclst) (defvar shortlst) (defvar something) (defvar sportslst) (defvar stallmanlst) (defvar states) (defvar subj) -(defvar suicide-flag) (defvar sure) (defvar things) -(defvar thlst) (defvar toklst) (defvar typos) -(defvar verb) (defvar want) (defvar whatwhen) -(defvar whereoutp) (defvar whysay) (defvar whywant) -(defvar zippy-flag) (defvar zippylst) +(defvar suicide-flag) (defvar sure) (defvar thing) +(defvar things) (defvar thlst) (defvar toklst) +(defvar typos) (defvar verb) (defvar want) +(defvar whatwhen) (defvar whereoutp) (defvar whysay) +(defvar whywant) (defvar zippy-flag) (defvar zippylst) (defun doc// (x) x) @@ -300,24 +285,19 @@ reads the sentence before point, and prints the Doctor's answer." '((something) (more) (how you feel))) + (make-local-variable 'thing) + (setq thing + '((your life) + (your sex life))) (make-local-variable 'things) (setq things - '(;(your interests in computers) ;; let's make this less computer oriented - ;(the machines you use) - (your plans) - ;(your use of computers) - (your life) - ;(other machines you use) + '((your plans) (the people you hang around with) - ;(computers you like) (problems at school) (any hobbies you have) - ;(other computers you use) - (your sex life) (hangups you have) (your inhibitions) (some problems in your childhood) - ;(knowledge of computers) (some problems at home))) (make-local-variable 'describe) (setq describe @@ -407,6 +387,7 @@ reads the sentence before point, and prints the Doctor's answer." ((doc$ please) go into more detail \.))) (make-local-variable 'thlst) (setq thlst '( + ((doc$ maybe)(doc$ thing)(doc$ isrelated) this \.) ((doc$ maybe)(doc$ things)(doc$ arerelated) this \.) (is it because of (doc$ things) that you are going through all this \?) (how do you reconcile (doc$ things) \? ) -- 2.39.2