[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/doctor.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/doctor.el |
Date: |
Tue, 02 Aug 2005 05:40:12 -0400 |
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))