;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:32:47 1993
;;; from file /era/era-0.80/editor/lisp/games/dissociate.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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 "This file was compiled for Emacs 19."))

(fset 'dissociated-press #[(&optional arg) "«…Á!ªÂpÄÅ!ÇV«ƒÈªÉ\nÇV«ƒª‚[ÇV«ƒÌªÍÇÐ!ˆÑ ˆŠbˆÒÓ ÔZ!ˆ`dU®”dbˆÕÖ!­Œ×Ø!ˆÙÚ!ˆdÛ)…Ü‰Šqˆ`\nÈ=« ßà!\\\\‰dV«Šßà!Ú\\\\bˆªŠ\nßà!\\!ˆ`)`!â#ˆŠ!bˆÜˆi#V«ƒä ˆ,Šqˆm«…ebˆª­`\n[!ˆ`{%ßdS!Tbˆ%ÜÛ#¬`!Úbˆ%!Û#ˆ)))æÇ!ˆ‚> .‡" [arg prefix-numeric-value 2 inbuf get-buffer-create "*Dissociation*" outbuf 0 forward-char forward-word move-function move-amount search-forward word-search-forward search-function last-query-point switch-to-buffer erase-buffer vertical-motion window-height 4 y-or-n-p "Continue dissociation? " message "" recenter 1 t nil end start random 16 opoint insert-buffer-substring fill-column do-auto-fill overlap sit-for] 5 "\
Dissociate the text of the current buffer.
Output goes in buffer named *Dissociation*,
which is redisplayed each time text is added to it.
Every so often the user must say whether to continue.
If ARG is positive, require ARG chars of continuity.
If ARG is negative, require -ARG words of continuity.
Default is 2." "P"])