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

[Juanma Barranquero]

Index: emacs/lisp/play/doctor.el
diff -c emacs/lisp/play/doctor.el:1.37 emacs/lisp/play/doctor.el:1.38
*** emacs/lisp/play/doctor.el:1.37      Mon Aug  1 15:30:16 2005
--- emacs/lisp/play/doctor.el   Tue Aug  2 09:40:10 2005
***************
*** 46,51 ****
--- 46,81 ----
  
  ;;; 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,1376 ****
    (cond ((or (string-match "^[.,;:?! ]" word)
             (not *print-space*))
         (insert word))
!       (t (insert ?\  word)))
    (and auto-fill-function
         (> (current-column) fill-column)
         (apply auto-fill-function nil))
--- 1400,1406 ----
    (cond ((or (string-match "^[.,;:?! ]" word)
             (not *print-space*))
         (insert word))
!       (t (insert ?\s word)))
    (and auto-fill-function
         (> (current-column) fill-column)
         (apply auto-fill-function nil))