;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:37 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/yow.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\310\303&\207" [require cookie1 custom-declare-group yow nil "Quote random zippyisms." :prefix "yow-" :group games custom-declare-variable yow-file (expand-file-name "yow.lines" data-directory) "File containing pertinent pinhead phrases." :type file] 8)
(defconst yow-load-message "Am I CONSING yet?...")
(defconst yow-after-load-message "I have SEEN the CONSING!!")
#@74 Return or display a random Zippy quotation.  With prefix arg, insert it.
(defalias 'yow #[(&optional insert display) "\306	\n#\f\203c\202
\204\202\307\310\")\207" [yow-file yow-load-message yow-after-load-message yow insert display cookie message "%s"] 4 (#$ . 1006) "P\np"])
#@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) "\305	\n\f%\207" [prompt yow-file yow-load-message yow-after-load-message require-match read-cookie] 6 (#$ . 1302)])
(put 'read-zippyism 'byte-optimizer 'byte-compile-inline-expand)
#@77 Prompt with completion for a known Zippy quotation, and insert it at point.
(defalias 'insert-zippyism #[(&optional zippyism) "c\207" [zippyism] 1 (#$ . 1700) (list (read-zippyism "Pinhead wisdom: " t))])
#@104 Return a list of all Zippy quotes matching REGEXP.
If called interactively, display a list of matches.
(defalias 'apropos-zippy #[(regexp) "\306	\n#\210\307\310\f\"\211J\311G \312!\313 \"\314\216! W\203I\315#!H\"\203@!HB!T\211!\202$*\203V\316\317\"\320\321!\203\276\204h\322\323!\210\202\276$%&r\324\325!q\210p\326 \210&%\311\211'(\307\211)\307*+\327 \210\330\331!\210+\211,-$\203\265\332$@!\210$A\211$\203\232\332\333!\210\202\232\334 \210\335,!\210,.\207" [yow-file yow-load-message yow-after-load-message case-fold-search cookie-cache cookie-table-symbol cookie t intern nil 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match sort string-lessp called-interactively-p interactive message "No matches found." get-buffer-create "*Zippy Apropos*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "\n\n" help-print-return-message internal-temp-output-buffer-show string-table matches len i save-match-data-internal regexp l default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 1913) "sApropos Zippy (regexp): "])
#@28 Zippy goes to the analyst.
(defalias 'psychoanalyze-pinhead #[nil "\300 \210\301\302!\210\303\304!\210\305\306!\210\307 ?\205(\310 c\210\305\306!\210\311\312!\210\311\312!\210\202\207" [doctor message "" switch-to-buffer "*doctor*" sit-for 0 input-pending-p yow doctor-ret-or-read 1] 2 (#$ . 3195) nil])
(provide 'yow)