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

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

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

revision 1.23 by miles, Tue Oct 3 07:06:41 2000 UTC revision 1.24 by pj, Mon Nov 26 16:15:49 2001 UTC
# Line 119  If called interactively, display a list Line 119  If called interactively, display a list
119    (switch-to-buffer "*doctor*")    (switch-to-buffer "*doctor*")
120    (sit-for 0)    (sit-for 0)
121    (while (not (input-pending-p))    (while (not (input-pending-p))
122      (insert-string (yow))      (insert (yow))
123      (sit-for 0)      (sit-for 0)
124      (doctor-ret-or-read 1)      (doctor-ret-or-read 1)
125      (doctor-ret-or-read 1)))      (doctor-ret-or-read 1)))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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