Commit f5594f03 authored by Chong Yidong's avatar Chong Yidong
Browse files

* play/doctor.el: Remove reference to obsolete website.

(make-doctor-variables): Correct grammar mistake (Bug#2633).
parent cd9b5e16
2009-06-27 Chong Yidong <cyd@stupidchicken.com>
* play/doctor.el: Remove reference to obsolete website.
(make-doctor-variables): Correct grammar mistake (Bug#2633).
2009-06-26 Dan Nicolaescu <dann@ics.uci.edu> 2009-06-26 Dan Nicolaescu <dann@ics.uci.edu>
   
Remove find-file-not-found-hook VC method. (Bug#2757) Remove find-file-not-found-hook VC method. (Bug#2757)
......
...@@ -27,21 +27,6 @@ ...@@ -27,21 +27,6 @@
;; phrase-production techniques similar to the classic ELIZA demonstration ;; phrase-production techniques similar to the classic ELIZA demonstration
;; of pseudo-AI. ;; 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: ;;; Code:
(defvar **mad**) (defvar *debug*) (defvar *print-space*) (defvar **mad**) (defvar *debug*) (defvar *print-space*)
...@@ -67,11 +52,11 @@ ...@@ -67,11 +52,11 @@
(defvar sent) (defvar sexlst) (defvar shortbeclst) (defvar sent) (defvar sexlst) (defvar shortbeclst)
(defvar shortlst) (defvar something) (defvar sportslst) (defvar shortlst) (defvar something) (defvar sportslst)
(defvar stallmanlst) (defvar states) (defvar subj) (defvar stallmanlst) (defvar states) (defvar subj)
(defvar suicide-flag) (defvar sure) (defvar things) (defvar suicide-flag) (defvar sure) (defvar thing)
(defvar thlst) (defvar toklst) (defvar typos) (defvar things) (defvar thlst) (defvar toklst)
(defvar verb) (defvar want) (defvar whatwhen) (defvar typos) (defvar verb) (defvar want)
(defvar whereoutp) (defvar whysay) (defvar whywant) (defvar whatwhen) (defvar whereoutp) (defvar whysay)
(defvar zippy-flag) (defvar zippylst) (defvar whywant) (defvar zippy-flag) (defvar zippylst)
(defun doc// (x) x) (defun doc// (x) x)
...@@ -300,24 +285,19 @@ reads the sentence before point, and prints the Doctor's answer." ...@@ -300,24 +285,19 @@ reads the sentence before point, and prints the Doctor's answer."
'((something) '((something)
(more) (more)
(how you feel))) (how you feel)))
(make-local-variable 'thing)
(setq thing
'((your life)
(your sex life)))
(make-local-variable 'things) (make-local-variable 'things)
(setq things (setq things
'(;(your interests in computers) ;; let's make this less computer oriented '((your plans)
;(the machines you use)
(your plans)
;(your use of computers)
(your life)
;(other machines you use)
(the people you hang around with) (the people you hang around with)
;(computers you like)
(problems at school) (problems at school)
(any hobbies you have) (any hobbies you have)
;(other computers you use)
(your sex life)
(hangups you have) (hangups you have)
(your inhibitions) (your inhibitions)
(some problems in your childhood) (some problems in your childhood)
;(knowledge of computers)
(some problems at home))) (some problems at home)))
(make-local-variable 'describe) (make-local-variable 'describe)
(setq describe (setq describe
...@@ -407,6 +387,7 @@ reads the sentence before point, and prints the Doctor's answer." ...@@ -407,6 +387,7 @@ reads the sentence before point, and prints the Doctor's answer."
((doc$ please) go into more detail \.))) ((doc$ please) go into more detail \.)))
(make-local-variable 'thlst) (make-local-variable 'thlst)
(setq thlst '( (setq thlst '(
((doc$ maybe)(doc$ thing)(doc$ isrelated) this \.)
((doc$ maybe)(doc$ things)(doc$ arerelated) this \.) ((doc$ maybe)(doc$ things)(doc$ arerelated) this \.)
(is it because of (doc$ things) that you are going through all this \?) (is it because of (doc$ things) that you are going through all this \?)
(how do you reconcile (doc$ things) \? ) (how do you reconcile (doc$ things) \? )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment