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

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

Browse Source 
(make-doctor-variables): Correct grammar mistake (Bug#2633).
This commit is contained in:
Chong Yidong 2009-06-27 04:21:14 +00:00
parent cd9b5e16ff
commit f5594f039f
2 changed files with 16 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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>
Remove find-file-not-found-hook VC method. (Bug#2757)

41
lisp/play/doctor.el
View File

@ -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) \? )