;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Wed Apr 27 04:43:39 1994 ;;; from file /home/fsf/rms/e19/lisp/yow.el ;;; emacs version 19.22.90.11. ;;; 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 "`/home/fsf/rms/e19/lisp/yow.el' was compiled for Emacs 19")) (require (quote cookie1)) (defvar yow-file (concat data-directory "yow.lines") "\ File containing pertinent pinhead phrases.") (defalias 'yow #[(&optional insert) " # \fc5t\f5\f\"+!!\f\"5!ʐ\f!)" [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"]) (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 "\ Read a Zippyism from the minibuffer with completion, prompting with PROMPT. If optional second arg is non-nil, require input to match a completion."]) (put (quote read-zippyism) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'insert-zippyism #[(&optional zippyism) "c" [zippyism] 1 "\ Prompt with completion for a known Zippy quotation, and insert it at point." (list (read-zippyism "Pinhead wisdom: " t))]) (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 "\ Zippy goes to the analyst." nil]) (provide (quote yow))