| Server IP : 217.160.0.212 / Your IP : 216.73.216.71 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/obsolete/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321%\207" [require cookie1 custom-declare-group yow nil "Quote random zippyisms." :prefix "yow-" :group games custom-declare-variable yow-file funcall function #[0 "\301\302\"\207" [data-directory expand-file-name "yow.lines"] 3 ""] "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!!") #@105 Return or display a random Zippy quotation. With prefix arg, insert it. (fn &optional INSERT DISPLAY) (defalias 'yow #[512 "\303 \n#\203\f \211c\207\204 \207\304\305\"\207" [yow-file yow-load-message yow-after-load-message cookie message "%s"] 6 (#$ . 586) "P\np"]) #@186 Read a Zippyism from the minibuffer with completion, prompting with PROMPT. If optional second arg is non-nil, require input to match a completion. (fn PROMPT &optional REQUIRE-MATCH) (defalias 'read-zippyism #[513 "\303 \n%\207" [yow-file yow-load-message yow-after-load-message cookie-read] 8 (#$ . 866)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put read-zippyism speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@102 Prompt with completion for a known Zippy quotation, and insert it at point. (fn &optional ZIPPYISM) (defalias 'insert-zippyism #[256 "\211c\207" [] 2 (#$ . 1324) (byte-code "\303\304\305 \n%\266\202C\207" [yow-file yow-load-message yow-after-load-message "Pinhead wisdom: " t cookie-read] 8)]) #@117 Return a list of all Zippy quotes matching REGEXP. If called interactively, display a list of matches. (fn REGEXP) (defalias 'apropos-zippy #[257 "\301\302\303!#\207" [yow-file cookie-apropos called-interactively-p interactive] 6 (#$ . 1629) "sApropos Zippy (regexp): "]) #@28 Zippy goes to the analyst. (defalias 'psychoanalyze-pinhead #[0 "\301!\207" [yow-file cookie-doctor] 2 (#$ . 1910) nil]) (provide 'yow)