From dc39c66d3bb6b1db6af0519659ff154bf6d8a5d1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 5 Dec 2020 11:53:19 +0100 Subject: [PATCH] ; * lisp/play/doctor.el (make-doctor-variables): Fix indentation. --- lisp/play/doctor.el | 622 ++++++++++++++++++++++---------------------- 1 file changed, 311 insertions(+), 311 deletions(-) diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 1549eb7d964..8fc207da351 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -146,380 +146,380 @@ reads the sentence before point, and prints the Doctor's answer." (defun make-doctor-variables () (setq-local doctor--typos - (mapcar (lambda (x) - (put (car x) 'doctor-correction (cadr x)) - (put (cadr x) 'doctor-expansion (car (cddr x))) - (car x)) - '((theyll they\'ll (they will)) - (theyre they\'re (they are)) - (hes he\'s (he is)) - (he7s he\'s (he is)) - (im i\'m (you are)) - (i7m i\'m (you are)) - (isa is\ a (is a)) - (thier their (their)) - (dont don\'t (do not)) - (don7t don\'t (do not)) - (you7re you\'re (i am)) - (you7ve you\'ve (i have)) - (you7ll you\'ll (i will))))) + (mapcar (lambda (x) + (put (car x) 'doctor-correction (cadr x)) + (put (cadr x) 'doctor-expansion (car (cddr x))) + (car x)) + '((theyll they\'ll (they will)) + (theyre they\'re (they are)) + (hes he\'s (he is)) + (he7s he\'s (he is)) + (im i\'m (you are)) + (i7m i\'m (you are)) + (isa is\ a (is a)) + (thier their (their)) + (dont don\'t (do not)) + (don7t don\'t (do not)) + (you7re you\'re (i am)) + (you7ve you\'ve (i have)) + (you7ll you\'ll (i will))))) (setq-local doctor-sent nil) (setq-local doctor-found nil) (setq-local doctor-owner nil) (setq-local doctor--history nil) (setq-local doctor--inter '((well\,) - (hmmm \.\.\.\ so\,) - (so) - (\.\.\.and) - (then))) + (hmmm \.\.\.\ so\,) + (so) + (\.\.\.and) + (then))) (setq-local doctor--continue '((continue) - (proceed) - (go on) - (keep going))) + (proceed) + (go on) + (keep going))) (setq-local doctor--relation - '((your relationship with) - (something you remember about) - (your feelings toward) - (some experiences you have had with) - (how you feel about))) + '((your relationship with) + (something you remember about) + (your feelings toward) + (some experiences you have had with) + (how you feel about))) (setq-local doctor--fears - '(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?) - (you seem terrified by (doc// doctor--feared) \.) - (when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?))) + '(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?) + (you seem terrified by (doc// doctor--feared) \.) + (when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?))) (setq-local doctor--sure '((sure) - (positive) - (certain) - (absolutely sure))) + (positive) + (certain) + (absolutely sure))) (setq-local doctor--afraidof '((afraid of) - (frightened by) - (scared of))) + (frightened by) + (scared of))) (setq-local doctor--areyou '((are you) - (have you been) - (have you been))) + (have you been) + (have you been))) (setq-local doctor--isrelated - '((has something to do with) - (is related to) - (could be the reason for) - (is caused by) - (is because of))) + '((has something to do with) + (is related to) + (could be the reason for) + (is caused by) + (is because of))) (setq-local doctor--arerelated '((have something to do with) - (are related to) - (could have caused) - (could be the reason for) - (are caused by) - (are because of))) + (are related to) + (could have caused) + (could be the reason for) + (are caused by) + (are because of))) (setq-local doctor--moods - '(((doc$ doctor--areyou) (doc// doctor-found) often \?) - (what causes you to be (doc// doctor-found) \?) - ((doc$ doctor--whysay) you are (doc// doctor-found) \?))) + '(((doc$ doctor--areyou) (doc// doctor-found) often \?) + (what causes you to be (doc// doctor-found) \?) + ((doc$ doctor--whysay) you are (doc// doctor-found) \?))) (setq-local doctor--maybe '((maybe) - (perhaps) - (possibly))) + (perhaps) + (possibly))) (setq-local doctor--whatwhen '((what happened when) - (what would happen if))) + (what would happen if))) (setq-local doctor--hello '((how do you do \?) - (hello \.) - (howdy!) - (hello \.) - (hi \.) - (hi there \.))) + (hello \.) + (howdy!) + (hello \.) + (hi \.) + (hi there \.))) (setq-local doctor--drnk - '((do you drink a lot of (doc// doctor-found) \?) - (do you get drunk often \?) - ((doc$ doctor--describe) your drinking habits \.))) + '((do you drink a lot of (doc// doctor-found) \?) + (do you get drunk often \?) + ((doc$ doctor--describe) your drinking habits \.))) (setq-local doctor--drugs - '((do you use (doc// doctor-found) often \?) - ((doc$ doctor--areyou) addicted to (doc// doctor-found) \?) - (do you realize that drugs can be very harmful \?) - ((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.))) + '((do you use (doc// doctor-found) often \?) + ((doc$ doctor--areyou) addicted to (doc// doctor-found) \?) + (do you realize that drugs can be very harmful \?) + ((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.))) (setq-local doctor--whywant - '(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?) - (how does it feel to want \?) - (why should (doc// doctor-subj) get (doc// doctor-obj) \?) - (when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?) - ((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?) - (why should i give (doc// doctor-obj) to (doc// doctor-subj) \?) - (have you ever gotten (doc// doctor-obj) \?))) + '(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?) + (how does it feel to want \?) + (why should (doc// doctor-subj) get (doc// doctor-obj) \?) + (when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?) + ((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?) + (why should i give (doc// doctor-obj) to (doc// doctor-subj) \?) + (have you ever gotten (doc// doctor-obj) \?))) (setq-local doctor--canyou - '((of course i can \.) - (why should i \?) - (what makes you think i would even want to \?) - (i am the doctor\, i can do anything i damn please \.) - (not really\, it\'s not up to me \.) - (depends\, how important is it \?) - (i could\, but i don\'t think it would be a wise thing to do \.) - (can you \?) - (maybe i can\, maybe i can\'t \.\.\.) - (i don\'t think i should do that \.))) + '((of course i can \.) + (why should i \?) + (what makes you think i would even want to \?) + (i am the doctor\, i can do anything i damn please \.) + (not really\, it\'s not up to me \.) + (depends\, how important is it \?) + (i could\, but i don\'t think it would be a wise thing to do \.) + (can you \?) + (maybe i can\, maybe i can\'t \.\.\.) + (i don\'t think i should do that \.))) (setq-local doctor--want '((want) (desire) (wish) (want) (hope))) (setq-local doctor--shortlst - '((can you elaborate on that \?) - ((doc$ doctor--please) continue \.) - (go on\, don\'t be afraid \.) - (i need a little more detail please \.) - (you\'re being a bit brief\, (doc$ doctor--please) go into detail \.) - (can you be more explicit \?) - (and \?) - ((doc$ doctor--please) go into more detail \?) - (you aren\'t being very talkative today\!) - (is that all there is to it \?) - (why must you respond so briefly \?))) + '((can you elaborate on that \?) + ((doc$ doctor--please) continue \.) + (go on\, don\'t be afraid \.) + (i need a little more detail please \.) + (you\'re being a bit brief\, (doc$ doctor--please) go into detail \.) + (can you be more explicit \?) + (and \?) + ((doc$ doctor--please) go into more detail \?) + (you aren\'t being very talkative today\!) + (is that all there is to it \?) + (why must you respond so briefly \?))) (setq-local doctor--famlst - '((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.) - (you seem to dwell on (doc// doctor-owner) family \.) - ((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?))) + '((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.) + (you seem to dwell on (doc// doctor-owner) family \.) + ((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?))) (setq-local doctor--huhlst - '(((doc$ doctor--whysay) (doc// doctor-sent) \?) - (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?))) + '(((doc$ doctor--whysay) (doc// doctor-sent) \?) + (is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?))) (setq-local doctor--longhuhlst - '(((doc$ doctor--whysay) that \?) - (i don\'t understand \.) - ((doc$ doctor--thlst)) - ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?))) + '(((doc$ doctor--whysay) that \?) + (i don\'t understand \.) + ((doc$ doctor--thlst)) + ((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?))) (setq-local doctor--feelings-about '((feelings about) - (apprehensions toward) - (thoughts on) - (emotions toward))) + (apprehensions toward) + (thoughts on) + (emotions toward))) (setq-local doctor--random-adjective - '((vivid) - (emotionally stimulating) - (exciting) - (boring) - (interesting) - (recent) - (random) ; how can we omit this? - (unusual) - (shocking) - (embarrassing))) + '((vivid) + (emotionally stimulating) + (exciting) + (boring) + (interesting) + (recent) + (random) ; how can we omit this? + (unusual) + (shocking) + (embarrassing))) (setq-local doctor--whysay '((why do you say) - (what makes you believe) - (are you sure that) - (do you really think) - (what makes you think))) + (what makes you believe) + (are you sure that) + (do you really think) + (what makes you think))) (setq-local doctor--isee '((i see \.\.\.) - (yes\,) - (i understand \.) - (oh \.) )) + (yes\,) + (i understand \.) + (oh \.) )) (setq-local doctor--please '((please\,) - (i would appreciate it if you would) - (perhaps you could) - (please\,) - (would you please) - (why don\'t you) - (could you))) + (i would appreciate it if you would) + (perhaps you could) + (please\,) + (would you please) + (why don\'t you) + (could you))) (setq-local doctor--bye - '((my secretary will send you a bill \.) - (bye bye \.) - (see ya \.) - (ok\, talk to you some other time \.) - (talk to you later \.) - (ok\, have fun \.) - (ciao \.))) + '((my secretary will send you a bill \.) + (bye bye \.) + (see ya \.) + (ok\, talk to you some other time \.) + (talk to you later \.) + (ok\, have fun \.) + (ciao \.))) (setq-local doctor--something '((something) - (more) - (how you feel))) + (more) + (how you feel))) (setq-local doctor--thing '((your life) - (your sex life))) + (your sex life))) (setq-local doctor--things '((your plans) - (the people you hang around with) - (problems at school) - (any hobbies you have) - (hangups you have) - (your inhibitions) - (some problems in your childhood) - (some problems at home))) + (the people you hang around with) + (problems at school) + (any hobbies you have) + (hangups you have) + (your inhibitions) + (some problems in your childhood) + (some problems at home))) (setq-local doctor--describe '((describe) - (tell me about) - (talk about) - (discuss) - (tell me more about) - (elaborate on))) + (tell me about) + (talk about) + (discuss) + (tell me more about) + (elaborate on))) (setq-local doctor--ibelieve - '((i believe) (i think) (i have a feeling) (it seems to me that) - (it looks like))) + '((i believe) (i think) (i have a feeling) (it seems to me that) + (it looks like))) (setq-local doctor--problems '((problems) - (inhibitions) - (hangups) - (difficulties) - (anxieties) - (frustrations))) + (inhibitions) + (hangups) + (difficulties) + (anxieties) + (frustrations))) (setq-local doctor--bother '((does it bother you that) - (are you annoyed that) - (did you ever regret) - (are you sorry) - (are you satisfied with the fact that))) + (are you annoyed that) + (did you ever regret) + (are you sorry) + (are you satisfied with the fact that))) (setq-local doctor--machlst - '((you have your mind on (doc// doctor-found) \, it seems \.) - (you think too much about (doc// doctor-found) \.) - (you should try taking your mind off of (doc// doctor-found)\.) - (are you a computer hacker \?))) + '((you have your mind on (doc// doctor-found) \, it seems \.) + (you think too much about (doc// doctor-found) \.) + (you should try taking your mind off of (doc// doctor-found)\.) + (are you a computer hacker \?))) (setq-local doctor--qlist - '((what do you think \?) - (i\'ll ask the questions\, if you don\'t mind!) - (i could ask the same thing myself \.) - ((doc$ doctor--please) allow me to do the questioning \.) - (i have asked myself that question many times \.) - ((doc$ doctor--please) try to answer that question yourself \.))) + '((what do you think \?) + (i\'ll ask the questions\, if you don\'t mind!) + (i could ask the same thing myself \.) + ((doc$ doctor--please) allow me to do the questioning \.) + (i have asked myself that question many times \.) + ((doc$ doctor--please) try to answer that question yourself \.))) (setq-local doctor--foullst - '(((doc$ doctor--please) watch your tongue!) - ((doc$ doctor--please) avoid such unwholesome thoughts \.) - ((doc$ doctor--please) get your mind out of the gutter \.) - (such lewdness is not appreciated \.))) + '(((doc$ doctor--please) watch your tongue!) + ((doc$ doctor--please) avoid such unwholesome thoughts \.) + ((doc$ doctor--please) get your mind out of the gutter \.) + (such lewdness is not appreciated \.))) (setq-local doctor--deathlst - '((this is not a healthy way of thinking \.) - ((doc$ doctor--bother) you\, too\, may die someday \?) - (i am worried by your obsession with this topic!) - (did you watch a lot of crime and violence on television as a child \?))) + '((this is not a healthy way of thinking \.) + ((doc$ doctor--bother) you\, too\, may die someday \?) + (i am worried by your obsession with this topic!) + (did you watch a lot of crime and violence on television as a child \?))) (setq-local doctor--sexlst - '(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?) - ((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.) - ((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.) - ((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.) - ((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.) - ((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?))) + '(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?) + ((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.) + ((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.) + ((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.) + ((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.) + ((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?))) (setq-local doctor--neglst '((why not \?) - ((doc$ doctor--bother) i ask that \?) - (why not \?) - (why not \?) - (how come \?) - ((doc$ doctor--bother) i ask that \?))) + ((doc$ doctor--bother) i ask that \?) + (why not \?) + (why not \?) + (how come \?) + ((doc$ doctor--bother) i ask that \?))) (setq-local doctor--beclst - '((is it because (doc// doctor-sent) that you came to me \?) - ((doc$ doctor--bother) (doc// doctor-sent) \?) - (when did you first know that (doc// doctor-sent) \?) - (is the fact that (doc// doctor-sent) the real reason \?) - (does the fact that (doc// doctor-sent) explain anything else \?) - ((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? ))) + '((is it because (doc// doctor-sent) that you came to me \?) + ((doc$ doctor--bother) (doc// doctor-sent) \?) + (when did you first know that (doc// doctor-sent) \?) + (is the fact that (doc// doctor-sent) the real reason \?) + (does the fact that (doc// doctor-sent) explain anything else \?) + ((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? ))) (setq-local doctor--shortbeclst - '(((doc$ doctor--bother) i ask you that \?) - (that\'s not much of an answer!) - ((doc$ doctor--inter) why won\'t you talk about it \?) - (speak up!) - ((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?) - (don\'t be (doc$ doctor--afraidof) elaborating \.) - ((doc$ doctor--please) go into more detail \.))) + '(((doc$ doctor--bother) i ask you that \?) + (that\'s not much of an answer!) + ((doc$ doctor--inter) why won\'t you talk about it \?) + (speak up!) + ((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?) + (don\'t be (doc$ doctor--afraidof) elaborating \.) + ((doc$ doctor--please) go into more detail \.))) (setq-local doctor--thlst - '(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.) - ((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.) - (is it because of (doc$ doctor--things) that you are going through all this \?) - (how do you reconcile (doc$ doctor--things) \? ) - ((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?))) + '(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.) + ((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.) + (is it because of (doc$ doctor--things) that you are going through all this \?) + (how do you reconcile (doc$ doctor--things) \? ) + ((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?))) (setq-local doctor--remlst - '((earlier you said (doc$ doctor--history) \?) - (you mentioned that (doc$ doctor--history) \?) - ((doc$ doctor--whysay) (doc$ doctor--history) \? ))) + '((earlier you said (doc$ doctor--history) \?) + (you mentioned that (doc$ doctor--history) \?) + ((doc$ doctor--whysay) (doc$ doctor--history) \? ))) (setq-local doctor--toklst - '((is this how you relax \?) - (how long have you been smoking grass \?) - ((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?))) + '((is this how you relax \?) + (how long have you been smoking grass \?) + ((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?))) (setq-local doctor--states - '((do you get (doc// doctor-found) often \?) - (do you enjoy being (doc// doctor-found) \?) - (what makes you (doc// doctor-found) \?) - (how often (doc$ doctor--areyou) (doc// doctor-found) \?) - (when were you last (doc// doctor-found) \?))) + '((do you get (doc// doctor-found) often \?) + (do you enjoy being (doc// doctor-found) \?) + (what makes you (doc// doctor-found) \?) + (how often (doc$ doctor--areyou) (doc// doctor-found) \?) + (when were you last (doc// doctor-found) \?))) (setq-local doctor--replist '((i . (you)) - (my . (your)) - (me . (you)) - (you . (me)) - (your . (my)) - (mine . (yours)) - (yours . (mine)) - (our . (your)) - (ours . (yours)) - (we . (you)) - (dunno . (do not know)) - ;; (yes . ()) - (no\, . ()) - (yes\, . ()) - (ya . (i)) - (aint . (am not)) - (wanna . (want to)) - (gimme . (give me)) - (gotta . (have to)) - (gonna . (going to)) - (never . (not ever)) - (doesn\'t . (does not)) - (don\'t . (do not)) - (aren\'t . (are not)) - (isn\'t . (is not)) - (won\'t . (will not)) - (can\'t . (cannot)) - (haven\'t . (have not)) - (i\'m . (you are)) - (ourselves . (yourselves)) - (myself . (yourself)) - (yourself . (myself)) - (you\'re . (i am)) - (you\'ve . (i have)) - (i\'ve . (you have)) - (i\'ll . (you will)) - (you\'ll . (i shall)) - (i\'d . (you would)) - (you\'d . (i would)) - (here . (there)) - (please . ()) - (eh\, . ()) - (eh . ()) - (oh\, . ()) - (oh . ()) - (shouldn\'t . (should not)) - (wouldn\'t . (would not)) - (won\'t . (will not)) - (hasn\'t . (has not)))) + (my . (your)) + (me . (you)) + (you . (me)) + (your . (my)) + (mine . (yours)) + (yours . (mine)) + (our . (your)) + (ours . (yours)) + (we . (you)) + (dunno . (do not know)) + ;; (yes . ()) + (no\, . ()) + (yes\, . ()) + (ya . (i)) + (aint . (am not)) + (wanna . (want to)) + (gimme . (give me)) + (gotta . (have to)) + (gonna . (going to)) + (never . (not ever)) + (doesn\'t . (does not)) + (don\'t . (do not)) + (aren\'t . (are not)) + (isn\'t . (is not)) + (won\'t . (will not)) + (can\'t . (cannot)) + (haven\'t . (have not)) + (i\'m . (you are)) + (ourselves . (yourselves)) + (myself . (yourself)) + (yourself . (myself)) + (you\'re . (i am)) + (you\'ve . (i have)) + (i\'ve . (you have)) + (i\'ll . (you will)) + (you\'ll . (i shall)) + (i\'d . (you would)) + (you\'d . (i would)) + (here . (there)) + (please . ()) + (eh\, . ()) + (eh . ()) + (oh\, . ()) + (oh . ()) + (shouldn\'t . (should not)) + (wouldn\'t . (would not)) + (won\'t . (will not)) + (hasn\'t . (has not)))) (setq-local doctor--stallmanlst - '(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.) - ((doc$ doctor--areyou) a friend of Stallman \?) - ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?) - ((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.))) + '(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.) + ((doc$ doctor--areyou) a friend of Stallman \?) + ((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?) + ((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.))) (setq-local doctor--schoollst - '(((doc$ doctor--describe) your (doc// doctor-found) \.) - ((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?) - ((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?) - ((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.) - ((doc$ doctor--areyou) absent often \?) - ((doc$ doctor--maybe) you should study (doc$ doctor--something) \.))) + '(((doc$ doctor--describe) your (doc// doctor-found) \.) + ((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?) + ((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?) + ((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.) + ((doc$ doctor--areyou) absent often \?) + ((doc$ doctor--maybe) you should study (doc$ doctor--something) \.))) (setq-local doctor--improve - '((improve) (be better) (be improved) (be higher))) + '((improve) (be better) (be improved) (be higher))) (setq-local doctor--elizalst - '(((doc$ doctor--areyou) (doc$ doctor--sure) \?) - ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.) - ((doc$ doctor--whysay) (doc// doctor-sent) \?))) + '(((doc$ doctor--areyou) (doc$ doctor--sure) \?) + ((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.) + ((doc$ doctor--whysay) (doc// doctor-sent) \?))) (setq-local doctor--sportslst - '((tell me (doc$ doctor--something) about (doc// doctor-found) \.) - ((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.) - (do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?))) + '((tell me (doc$ doctor--something) about (doc// doctor-found) \.) + ((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.) + (do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?))) (setq-local doctor--mathlst - '(((doc$ doctor--describe) (doc$ doctor--something) about math \.) - ((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.) - (i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue) - anyway \.))) + '(((doc$ doctor--describe) (doc$ doctor--something) about math \.) + ((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.) + (i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue) + anyway \.))) (setq-local doctor--zippylst - '(((doc$ doctor--areyou) Zippy \?) - ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.) - ((doc$ doctor--bother) you are a pinhead \?))) + '(((doc$ doctor--areyou) Zippy \?) + ((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.) + ((doc$ doctor--bother) you are a pinhead \?))) (setq-local doctor--chatlst - '(((doc$ doctor--maybe) we could chat \.) - ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.) - ((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?))) + '(((doc$ doctor--maybe) we could chat \.) + ((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.) + ((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?))) (setq-local doctor--abuselst - '(((doc$ doctor--please) try to be less abusive \.) - ((doc$ doctor--describe) why you call me (doc// doctor-found) \.) - (i\'ve had enough of you!))) + '(((doc$ doctor--please) try to be less abusive \.) + ((doc$ doctor--describe) why you call me (doc// doctor-found) \.) + (i\'ve had enough of you!))) (setq-local doctor--abusewords - '(boring bozo clown clumsy cretin dumb dummy - fool foolish gnerd gnurd idiot jerk - lose loser louse lousy luse luser - moron nerd nurd oaf oafish reek - stink stupid tool toolish twit)) + '(boring bozo clown clumsy cretin dumb dummy + fool foolish gnerd gnurd idiot jerk + lose loser louse lousy luse luser + moron nerd nurd oaf oafish reek + stink stupid tool toolish twit)) (setq-local doctor--howareyoulst - '((how are you) (hows it going) (hows it going eh) - (how\'s it going) (how\'s it going eh) (how goes it) - (whats up) (whats new) (what\'s up) (what\'s new) - (howre you) (how\'re you) (how\'s everything) - (how is everything) (how do you do) - (how\'s it hanging) (que pasa) - (how are you doing) (what do you say))) + '((how are you) (hows it going) (hows it going eh) + (how\'s it going) (how\'s it going eh) (how goes it) + (whats up) (whats new) (what\'s up) (what\'s new) + (howre you) (how\'re you) (how\'s everything) + (how is everything) (how do you do) + (how\'s it hanging) (que pasa) + (how are you doing) (what do you say))) (setq-local doctor--whereoutp '(huh remem rthing)) (setq-local doctor-subj nil) (setq-local doctor-verb nil) -- 2.39.5