(doctor-type-symbol): "?\ " -> "?\s".

(**mad**, *debug*, *print-space*, *print-upcase*, abuselst, abusewords, account,
afraidof, arerelated, areyou, bak, beclst, bother, bye, canyou, chatlst,
continue, deathlst, describe, drnk, drugs, eliza-flag, elizalst, famlst, feared,
fears, feelings-about, foullst, found, hello, history, howareyoulst, howdyflag,
huhlst, ibelieve, improve, inter, isee, isrelated, lincount, longhuhlst, lover,
machlst, mathlst, maybe, moods, neglst, obj, object, owner, please, problems,
qlist, random-adjective, relation, remlst, repetitive-shortness, replist,
rms-flag, schoollst, sent, sexlst, shortbeclst, shortlst, something, sportslst,
stallmanlst, states, subj, suicide-flag, sure, things, thlst, toklst, typos,
verb, want, whatwhen, whereoutp, whysay, whywant, zippy-flag, zippylst):
Defvar at compile time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bff30685708a5be1bc3ef785dcd8e815161b51d6..b58f94669673efa937ea9abffe62037e2ae017fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2005-08-02  Juanma Barranquero  <lekktu@gmail.com>
+
+       * play/doctor.el (doctor-type-symbol): "?\ " -> "?\s".
+       (**mad**, *debug*, *print-space*, *print-upcase*, abuselst)
+       (abusewords, account, afraidof, arerelated, areyou, bak, beclst)
+       (bother, bye, canyou, chatlst, continue, deathlst, describe)
+       (drnk, drugs, eliza-flag, elizalst, famlst, feared, fears)
+       (feelings-about, foullst, found, hello, history, howareyoulst)
+       (howdyflag, huhlst, ibelieve, improve, inter, isee, isrelated)
+       (lincount, longhuhlst, lover, machlst, mathlst, maybe, moods)
+       (neglst, obj, object, owner, please, problems, qlist)
+       (random-adjective, relation, remlst, repetitive-shortness)
+       (replist, rms-flag, schoollst, sent, sexlst, shortbeclst)
+       (shortlst, something, sportslst, stallmanlst, states, subj)
+       (suicide-flag, sure, things, thlst, toklst, typos, verb, want)
+       (whatwhen, whereoutp, whysay, whywant, zippy-flag, zippylst):
+       Defvar at compile time.
+
 2005-08-02  Kim F. Storm  <storm@cua.dk>
 
        * emulation/cua-rect.el (cua--highlight-rectangle): Only show

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index a8523fe1baad45f6a119f8ed72c4f64ae208d80a..ea502646e617e5fe8a89f01a5c0574312f5f1f8d 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -46,6 +46,36 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (defvar **mad**)        (defvar *debug*)      (defvar *print-space*)
+  (defvar *print-upcase*) (defvar abuselst)     (defvar abusewords)
+  (defvar account)        (defvar afraidof)     (defvar arerelated)
+  (defvar areyou)         (defvar bak)          (defvar beclst)
+  (defvar bother)         (defvar bye)          (defvar canyou)
+  (defvar chatlst)        (defvar continue)     (defvar deathlst)
+  (defvar describe)       (defvar drnk)         (defvar drugs)
+  (defvar eliza-flag)     (defvar elizalst)     (defvar famlst)
+  (defvar feared)         (defvar fears)        (defvar feelings-about)
+  (defvar foullst)        (defvar found)        (defvar hello)
+  (defvar history)        (defvar howareyoulst) (defvar howdyflag)
+  (defvar huhlst)         (defvar ibelieve)     (defvar improve)
+  (defvar inter)          (defvar isee)         (defvar isrelated)
+  (defvar lincount)       (defvar longhuhlst)   (defvar lover)
+  (defvar machlst)        (defvar mathlst)      (defvar maybe)
+  (defvar moods)          (defvar neglst)       (defvar obj)
+  (defvar object)         (defvar owner)        (defvar please)
+  (defvar problems)       (defvar qlist)        (defvar random-adjective)
+  (defvar relation)       (defvar remlst)       (defvar repetitive-shortness)
+  (defvar replist)        (defvar rms-flag)     (defvar schoollst)
+  (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))
+
 (defun doc// (x) x)
 
 (defmacro doc$ (what)
@@ -1370,7 +1400,7 @@ Hack on previous word, setting global variable OWNER to correct result."
   (cond ((or (string-match "^[.,;:?! ]" word)
             (not *print-space*))
         (insert word))
-       (t (insert ?\  word)))
+       (t (insert ?\s word)))
   (and auto-fill-function
        (> (current-column) fill-column)
        (apply auto-fill-function nil))