/[emacs]/emacs/lisp/play/doctor.el
ViewVC logotype

Diff of /emacs/lisp/play/doctor.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by ttn, Mon Aug 1 15:30:16 2005 UTC revision 1.38 by lektu, Tue Aug 2 09:40:10 2005 UTC
# Line 46  Line 46 
46    
47  ;;; Code:  ;;; Code:
48    
49    (eval-when-compile
50      (defvar **mad**)        (defvar *debug*)      (defvar *print-space*)
51      (defvar *print-upcase*) (defvar abuselst)     (defvar abusewords)
52      (defvar account)        (defvar afraidof)     (defvar arerelated)
53      (defvar areyou)         (defvar bak)          (defvar beclst)
54      (defvar bother)         (defvar bye)          (defvar canyou)
55      (defvar chatlst)        (defvar continue)     (defvar deathlst)
56      (defvar describe)       (defvar drnk)         (defvar drugs)
57      (defvar eliza-flag)     (defvar elizalst)     (defvar famlst)
58      (defvar feared)         (defvar fears)        (defvar feelings-about)
59      (defvar foullst)        (defvar found)        (defvar hello)
60      (defvar history)        (defvar howareyoulst) (defvar howdyflag)
61      (defvar huhlst)         (defvar ibelieve)     (defvar improve)
62      (defvar inter)          (defvar isee)         (defvar isrelated)
63      (defvar lincount)       (defvar longhuhlst)   (defvar lover)
64      (defvar machlst)        (defvar mathlst)      (defvar maybe)
65      (defvar moods)          (defvar neglst)       (defvar obj)
66      (defvar object)         (defvar owner)        (defvar please)
67      (defvar problems)       (defvar qlist)        (defvar random-adjective)
68      (defvar relation)       (defvar remlst)       (defvar repetitive-shortness)
69      (defvar replist)        (defvar rms-flag)     (defvar schoollst)
70      (defvar sent)           (defvar sexlst)       (defvar shortbeclst)
71      (defvar shortlst)       (defvar something)    (defvar sportslst)
72      (defvar stallmanlst)    (defvar states)       (defvar subj)
73      (defvar suicide-flag)   (defvar sure)         (defvar things)
74      (defvar thlst)          (defvar toklst)       (defvar typos)
75      (defvar verb)           (defvar want)         (defvar whatwhen)
76      (defvar whereoutp)      (defvar whysay)       (defvar whywant)
77      (defvar zippy-flag)     (defvar zippylst))
78    
79  (defun doc// (x) x)  (defun doc// (x) x)
80    
81  (defmacro doc$ (what)  (defmacro doc$ (what)
# Line 1370  Hack on previous word, setting global va Line 1400  Hack on previous word, setting global va
1400    (cond ((or (string-match "^[.,;:?! ]" word)    (cond ((or (string-match "^[.,;:?! ]" word)
1401               (not *print-space*))               (not *print-space*))
1402           (insert word))           (insert word))
1403          (t (insert ?\  word)))          (t (insert ?\s word)))
1404    (and auto-fill-function    (and auto-fill-function
1405         (> (current-column) fill-column)         (> (current-column) fill-column)
1406         (apply auto-fill-function nil))         (apply auto-fill-function nil))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26