home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / amigalibdisks / disk945 / emacsstarter / lisp / sticky.elc < prev   
Emacs Compiled Lisp  |  1993-12-21  |  827 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
100% file Emacs v18 byte-compiled Lisp data default
99% file data default
100% gt2 Kopftext: '(provide (quote sticky)) default (weak)
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 73 74 69 63 6b 79 29 | 29 0a 0a 28 6d 61 6b 65 | sticky)|)..(make|
|00000020| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|00000030| 2d 6c 6f 63 61 6c 20 28 | 71 75 6f 74 65 20 73 74 |-local (|quote st|
|00000040| 69 63 6b 79 2d 72 65 78 | 78 2d 70 6f 72 74 29 29 |icky-rex|x-port))|
|00000050| 0a 0a 28 73 65 74 2d 64 | 65 66 61 75 6c 74 20 28 |..(set-d|efault (|
|00000060| 71 75 6f 74 65 20 73 74 | 69 63 6b 79 2d 72 65 78 |quote st|icky-rex|
|00000070| 78 2d 70 6f 72 74 29 20 | 6e 69 6c 29 0a 0a 28 69 |x-port) |nil)..(i|
|00000080| 66 20 28 6e 6f 74 20 28 | 66 62 6f 75 6e 64 70 20 |f (not (|fboundp |
|00000090| 28 71 75 6f 74 65 20 6f | 6c 64 2d 6b 69 6c 6c 2d |(quote o|ld-kill-|
|000000a0| 62 75 66 66 65 72 29 29 | 29 20 28 66 73 65 74 20 |buffer))|) (fset |
|000000b0| 28 71 75 6f 74 65 20 6f | 6c 64 2d 6b 69 6c 6c 2d |(quote o|ld-kill-|
|000000c0| 62 75 66 66 65 72 29 20 | 28 73 79 6d 62 6f 6c 2d |buffer) |(symbol-|
|000000d0| 66 75 6e 63 74 69 6f 6e | 20 28 71 75 6f 74 65 20 |function| (quote |
|000000e0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 29 29 29 29 0a |kill-buf|fer)))).|
|000000f0| 0a 28 64 65 66 75 6e 20 | 6b 69 6c 6c 2d 62 75 66 |.(defun |kill-buf|
|00000100| 66 65 72 20 28 62 75 66 | 66 65 72 29 20 22 5c 0a |fer (buf|fer) "\.|
|00000110| 4f 6e 65 20 61 72 67 2c | 20 61 20 73 74 72 69 6e |One arg,| a strin|
|00000120| 67 20 6f 72 20 61 20 62 | 75 66 66 65 72 2e 20 20 |g or a b|uffer.  |
|00000130| 47 65 74 20 72 69 64 20 | 6f 66 20 74 68 65 20 73 |Get rid |of the s|
|00000140| 70 65 63 69 66 69 65 64 | 20 62 75 66 66 65 72 2e |pecified| buffer.|
|00000150| 0a 41 6e 79 20 70 72 6f | 63 65 73 73 65 73 20 74 |.Any pro|cesses t|
|00000160| 68 61 74 20 68 61 76 65 | 20 74 68 69 73 20 62 75 |hat have| this bu|
|00000170| 66 66 65 72 20 61 73 20 | 74 68 65 20 60 70 72 6f |ffer as |the `pro|
|00000180| 63 65 73 73 2d 62 75 66 | 66 65 72 27 20 61 72 65 |cess-buf|fer' are|
|00000190| 20 6b 69 6c 6c 65 64 0a | 77 69 74 68 20 60 64 65 | killed.|with `de|
|000001a0| 6c 65 74 65 2d 70 72 6f | 63 65 73 73 27 2e 0a 50 |lete-pro|cess'..P|
|000001b0| 61 74 63 68 65 64 20 74 | 6f 20 6e 6f 74 69 66 79 |atched t|o notify|
|000001c0| 20 63 6c 69 65 6e 74 2e | 22 20 28 69 6e 74 65 72 | client.|" (inter|
|000001d0| 61 63 74 69 76 65 20 22 | 62 4b 69 6c 6c 20 62 75 |active "|bKill bu|
|000001e0| 66 66 65 72 3a 20 22 29 | 20 28 62 79 74 65 2d 63 |ffer: ")| (byte-c|
|000001f0| 6f 64 65 20 22 c1 88 c5 | 08 21 89 10 c1 3d 83 10 |ode "...|.!...=..|
|00000200| 00 c1 82 43 00 8a 08 71 | 88 c6 08 21 3f 86 2c 00 |...C...q|...!?.,.|
|00000210| c7 20 3f 86 2c 00 0a 86 | 2c 00 c8 c9 ca cb 20 5c |. ?.,...|,..... \|
|00000220| 22 21 85 42 00 cc c1 21 | 88 0b 85 3e 00 cd ce 0b |"!.B...!|...>....|
|00000230| cf 51 c4 5c 22 88 d0 08 | 21 29 87 22 20 5b 62 75 |.Q.\"...|!)." [bu|
|00000240| 66 66 65 72 20 6e 69 6c | 20 6e 6f 6e 69 6e 74 65 |ffer nil| noninte|
|00000250| 72 61 63 74 69 76 65 20 | 73 74 69 63 6b 79 2d 72 |ractive |sticky-r|
|00000260| 65 78 78 2d 70 6f 72 74 | 20 74 20 67 65 74 2d 62 |exx-port| t get-b|
|00000270| 75 66 66 65 72 20 62 75 | 66 66 65 72 2d 6d 6f 64 |uffer bu|ffer-mod|
|00000280| 69 66 69 65 64 2d 70 20 | 62 75 66 66 65 72 2d 66 |ified-p |buffer-f|
|00000290| 69 6c 65 2d 6e 61 6d 65 | 20 79 65 73 2d 6f 72 2d |ile-name| yes-or-|
|000002a0| 6e 6f 2d 70 20 66 6f 72 | 6d 61 74 20 22 42 75 66 |no-p for|mat "Buf|
|000002b0| 66 65 72 20 25 73 20 6d | 6f 64 69 66 69 65 64 3b |fer %s m|odified;|
|000002c0| 20 6b 69 6c 6c 20 61 6e | 79 77 61 79 3f 20 22 20 | kill an|yway? " |
|000002d0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 73 65 74 2d |buffer-n|ame set-|
|000002e0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000002f0| 70 20 61 6d 69 67 61 2d | 61 72 65 78 78 2d 73 65 |p amiga-|arexx-se|
|00000300| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 22 41 44 44 52 |nd-comma|nd "ADDR|
|00000310| 45 53 53 20 22 20 22 20 | 54 45 52 4d 49 4e 41 54 |ESS " " |TERMINAT|
|00000320| 49 4e 47 22 20 6f 6c 64 | 2d 6b 69 6c 6c 2d 62 75 |ING" old|-kill-bu|
|00000330| 66 66 65 72 5d 20 31 31 | 29 29 0a                |ffer] 11|)).     |
+--------+-------------------------+-------------------------+--------+--------+