Mercurial > emacs

comparison lisp/play/yow.el @ 2374:c00b3b357392

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(psychoanalyze-pinhead) Needed a prefrontal lobotomy. I gave it one.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Fri, 26 Mar 1993 04:17:45 +0000
parents ee096523431c
children 87b070dfb087
comparison
equal deleted inserted replaced
2373:60182aa24f56 2374:c00b3b357392
1 ;;; yow.el --- generate random zippyisms 1 ;;; yow.el --- quote random zippyisms
2 2
3 ;; Copyright (C) 1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: games 6 ;; Keywords: games
61 ;;;###autoload 61 ;;;###autoload
62 (defun psychoanalyze-pinhead () 62 (defun psychoanalyze-pinhead ()
63 "Zippy goes to the analyst." 63 "Zippy goes to the analyst."
64 (interactive) 64 (interactive)
65 (doctor) ; start the psychotherapy 65 (doctor) ; start the psychotherapy
66 (if (null yow-vector)
67 (setq yow-vector (snarf-yows)))
68 (message "") 66 (message "")
69 (switch-to-buffer "*doctor*") 67 (switch-to-buffer "*doctor*")
70 (sit-for 0) 68 (sit-for 0)
71 (while (not (input-pending-p)) 69 (while (not (input-pending-p))
72 (insert-string (yow)) 70 (insert-string (yow))