|
Server IP : 111.118.215.189 / Your IP : 3.128.31.200 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/play/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:35 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/dissociate.el
;;; in Emacs version 24.3.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\206r db\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\341 eb\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 (#$ . 559) "P"])
(provide 'dissociate)