Current File : //usr/local/share/emacs/27.2/lisp/obsolete/yow.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\203 c\202
\204 \202 \307\310 \")\207" [yow-file yow-load-message yow-after-load-message yow insert display cookie message "%s"] 4 (#$ . 863) "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 cookie-read] 6 (#$ . 1158)])
(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 (#$ . 1556) (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) "\302 \303\304!#\207" [regexp yow-file cookie-apropos called-interactively-p interactive] 5 (#$ . 1769) "sApropos Zippy (regexp): "])
#@28 Zippy goes to the analyst.
(defalias 'psychoanalyze-pinhead #[nil "\301!\207" [yow-file cookie-doctor] 2 (#$ . 2049) nil])
(provide 'yow)
Mini Shell