;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:21:59 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/dissociate.el ;;; emacs version 19.28.90.69. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/dissociate.el' was compiled for Emacs 19")) #@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) "ƒ\nÁ!‚ ÂpÄÅ!ÇVƒÈ‚É\nÇVƒ*‚,[ ÇVƒ8Ì‚9ÍÇdeUƒHÐÑ!ˆÒ!ˆÓ ˆŠbˆÔÕ ÖZ!ˆ`dU†wdbˆ×Ø!…wÙÚ!ˆÛÜ!ˆdÝ)…!Þ‰ Š qˆ` \nÈ=ƒ±  áâ!\\\\‰dVƒª áâ!Ü\\\\bˆ‚»\n áâ!\\!ˆ`)`#ä  #ˆŠ#bˆÞˆi%VƒÜæ ˆ,Š qˆmƒëebˆ‚`\n [!ˆ`{'ádS!Tbˆ'ÞÝ#„`#Übˆ'#Ý#ˆ)))èÇ!ˆ‚P.‡" [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 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 end start random 16 opoint insert-buffer-substring fill-column do-auto-fill overlap sit-for] 5 (#$ . 490) "P"])