[Emacs-diffs] emacs/lisp ChangeLog play/doctor.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/27 04:21:18

Modified files:
        lisp           : ChangeLog 
        lisp/play      : doctor.el 

Log message:
        * play/doctor.el: Remove reference to obsolete website.
        (make-doctor-variables): Correct grammar mistake (Bug#2633).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15731&r2=1.15732
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/doctor.el?cvsroot=emacs&r1=1.48&r2=1.49

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15731
retrieving revision 1.15732
diff -u -b -r1.15731 -r1.15732
--- ChangeLog   26 Jun 2009 23:53:56 -0000      1.15731
+++ ChangeLog   27 Jun 2009 04:21:14 -0000      1.15732
@@ -1,3 +1,8 @@
+2009-06-27  Chong Yidong  <address@hidden>
+
+       * play/doctor.el: Remove reference to obsolete website.
+       (make-doctor-variables): Correct grammar mistake (Bug#2633).
+
 2009-06-26  Dan Nicolaescu  <address@hidden>
 
        Remove find-file-not-found-hook VC method.  (Bug#2757)

Index: play/doctor.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/doctor.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- play/doctor.el      5 Jan 2009 03:23:08 -0000       1.48
+++ play/doctor.el      27 Jun 2009 04:21:18 -0000      1.49
@@ -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 @@
        '((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 @@
                      ((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) \? )