;ELC ;;; compiled by jwz@thalidomide on Thu Mar 24 13:23:48 1994 ;;; from file /th/jwz/emacs19/lisp/games/yow.el ;;; emacs version 19.10 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'cookie1) (defvar yow-file (concat data-directory "yow.lines") "\ File containing Pertinent Pinhead Phrases.") (fset 'yow #[(&optional insert) " # ct \"!! \"!ʐ !)" [cookie yow-file "Am I CONSING yet?..." "I have SEEN the CONSING!!" yow insert string-match "\n" delete-windows-on get-buffer-create "*Help*" message "%s" "Yow!" princ] 4 "\ Return or display a random Zippy quotation. With prefix arg, insert it." "P"]) (fset 'read-zippyism #[(prompt &optional require-match) " \n %" [read-cookie prompt yow-file "Am I CONSING yet?..." "I have SEEN the CONSING!!" require-match] 6 "\ Read a Zippyism from the minibuffer with completion, prompting with PROMPT. If optional second arg is non-nil, require input to match a completion."]) (fset 'insert-zippyism #[(&optional zippyism) "c" [zippyism] 1 "\ Prompt with completion for a known Zippy quotation, and insert it at point." (byte-code "\"C" [read-zippyism "Pinhead wisdom: " t] 3)]) (fset 'psychoanalyze-pinhead #[nil " !!! ? c!!!i" [doctor message nil switch-to-buffer "*doctor*" sit-for 0 input-pending-p yow doctor-ret-or-read 1] 2 "\ Zippy goes to the analyst." nil]) (provide 'yow)