(random t) (defun yow (&optional n interactive) "\ Return or display a Zippy quotation" (interactive (byte-code " !DD" [current-prefix-arg t nil prefix-numeric-value] 3)) (byte-code "ˆ ?  ! G\"Y! [ H?0 N \"?D!! !N!ϐ !)" [current-prefix-arg t nil yow-vector n yow interactive snarf-yows % random 0 string-match " " delete-windows-on get-buffer-create "*Help*" message "Yow!" princ] 11)) (defvar yow-vector nil "\ Pertinent pinhead statements") (defun snarf-yows (&optional file) (byte-code "!!q  \"!!!m?>`!`S\" B)! G\" !\"+)" [buf result cursor-in-echo-area t file exec-directory beg generate-new-buffer " yow" nil message "Am I CONSING yet?..." insert-file-contents expand-file-name "yow.lines" search-forward "" skip-chars-forward " " buffer-substring kill-buffer "I have SEEN the CONSING!!" apply vector nreverse] 14)) (defun psychoanalyze-pinhead nil "\ Zippy goes to the analyst." (interactive) (byte-code " ? !!! ?5 !!!!" [yow-vector nil doctor snarf-yows message "" switch-to-buffer "*doctor*" sit-for 0 input-pending-p insert-string yow doctor-ret-or-read 1] 13))