;ELC
;;; Compiled
;;; in Emacs version 27.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@315 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.
(defalias 'dissociated-press #[(&optional arg) "\203\n\306!\202\307p\310\311!\312V\203\313\202\314\312V\203(\202*[\312V\2035\315\2026\316\312$deU\203D\317\320!\210\321\n!\210\322 \210\212$b\210\323\324 \325Z!\210`dU\206rdb\210\326\327!\205r\330\331!\210\332\333!\210d$\334)\205
\335\211%&r	q\210`&\313=\203\251&\f\336\337!\\\\\211%dV\203\242\340\333\f\336\337!#%%b\210\202\261\f\336\337!\\!\210`%)`'\341	&%#\210\212'b\210\335\210i(V\203\322\342 \210,r	q\210m\203\341eb\210\202
`\f[!\210`{)\336dS!Tb\210
)\335\334#\204\n
`'\333b\210
)'\334#\210)))\343\312!\210\202K.\207" [arg inbuf outbuf move-function move-amount search-function prefix-numeric-value 2 get-buffer-create "*Dissociation*" 0 forward-char forward-word search-forward word-search-forward error "The buffer contains no text to start from" switch-to-buffer erase-buffer vertical-motion window-height 4 y-or-n-p "Continue dissociation? " message "" recenter 1 t nil random 16 + insert-buffer-substring do-auto-fill sit-for last-query-point end start opoint fill-column overlap] 6 (#$ . 409) "P"])
(provide 'dissociate)