;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Aug 2 00:37:28 1993 ;;; from file /home/fsf/rms/e19/lisp/dissociate.el ;;; emacs version 19.17.5. ;;; bytecomp version FSF 2.10 ;;; 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")) (defalias 'dissociated-press #[(&optional arg) "ƒ\nÁ!‚ ÂpÄÅ!ÇVƒÈ‚É\nÇVƒ*‚,[ ÇVƒ8Ì‚9ÍÇÐ!ˆÑ ˆŠbˆÒÓ ÔZ!ˆ`dU†mdbˆÕÖ!…m×Ø!ˆÙÚ!ˆdÛ)…܉Š qˆ`\nÈ=ƒ§ ßà!\\\\‰dVƒ  ßà!Ú\\\\bˆ‚±\n ßà!\\!ˆ`)`!â #ˆŠ!bˆÜˆi#VƒÒä ˆ,Š qˆmƒáebˆ‚`\n [!ˆ`{%ßdS!Tbˆ%ÜÛ#„`!Úbˆ%!Û#ˆ)))æÇ!ˆ‚F.‡" [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"])