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) |
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)) |