Mercurial > emacs

changeset 64715:46d503c20412

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 02 Aug 2005 09:40:10 +0000
parents 3b61b638f521
children 4aac96985817
files lisp/play/doctor.el
diffstat 1 files changed, 31 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/doctor.el	Tue Aug 02 08:12:35 2005 +0000
+++ b/lisp/play/doctor.el	Tue Aug 02 09:40:10 2005 +0000
@@ -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 @@
   (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))