;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:57:40 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/yow.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/yow.el' was compiled for Emacs 19")) (require (quote cookie1)) #@44 File containing pertinent pinhead phrases. (defvar yow-file (concat data-directory "yow.lines") (#$ . 501)) #@74 Return or display a random Zippy quotation. With prefix arg, insert it. (defalias 'yow #[(&optional insert) " # \fc>t\f>\f\"+!!\f\">!ʐ\f!q ))" [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 standard-output help-mode] 4 (#$ . 615) "P"]) #@149 Read a Zippyism from the minibuffer with completion, prompting with PROMPT. If optional second arg is non-nil, require input to match a completion. (defalias 'read-zippyism #[(prompt &optional require-match) " \n %" [read-cookie prompt yow-file "Am I CONSING yet?..." "I have SEEN the CONSING!!" require-match] 6 (#$ . 1019)]) (put (quote read-zippyism) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@77 Prompt with completion for a known Zippy quotation, and insert it at point. (defalias 'insert-zippyism #[(&optional zippyism) "c" [zippyism] 1 (#$ . 1442) (list (read-zippyism "Pinhead wisdom: " t))]) #@28 Zippy goes to the analyst. (defalias 'psychoanalyze-pinhead #[nil " !!! ?) !!!!" [doctor message "" switch-to-buffer "*doctor*" sit-for 0 input-pending-p insert-string yow doctor-ret-or-read 1] 2 (#$ . 1651) nil]) (provide (quote yow))