home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / fill-mode.jlc < prev    next >
Unknown  |  1994-10-16  |  1.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: ';;; Source file' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 66 69 |jade/3.2|/lisp/fi|
|00000030| 6c 6c 2d 6d 6f 64 65 2e | 6a 6c 0a 3b 3b 3b 20 43 |ll-mode.|jl.;;; C|
|00000040| 6f 6d 70 69 6c 65 64 20 | 62 79 20 6a 73 68 40 6f |ompiled |by jsh@o|
|00000050| 72 63 72 69 73 74 20 6f | 6e 20 53 75 6e 20 4f 63 |rcrist o|n Sun Oc|
|00000060| 74 20 31 36 20 32 30 3a | 32 31 3a 31 30 20 31 39 |t 16 20:|21:10 19|
|00000070| 39 34 0a 3b 3b 3b 20 4a | 61 64 65 20 33 2e 32 0a |94.;;; J|ade 3.2.|
|00000080| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000090| 20 66 69 6c 6c 2d 6d 6f | 64 65 29 29 0a 0a 28 64 | fill-mo|de))..(d|
|000000a0| 65 66 76 61 72 20 66 69 | 6c 6c 2d 63 6f 6c 75 6d |efvar fi|ll-colum|
|000000b0| 6e 20 37 31 20 38 37 38 | 35 32 29 0a 0a 28 64 65 |n 71 878|52)..(de|
|000000c0| 66 76 61 72 20 66 69 6c | 6c 2d 6d 6f 64 65 2d 70 |fvar fil|l-mode-p|
|000000d0| 20 6e 69 6c 29 0a 0a 28 | 6d 61 6b 65 2d 76 61 72 | nil)..(|make-var|
|000000e0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|000000f0| 61 6c 20 28 71 75 6f 74 | 65 20 66 69 6c 6c 2d 6d |al (quot|e fill-m|
|00000100| 6f 64 65 2d 70 29 29 0a | 0a 28 64 65 66 75 6e 20 |ode-p)).|.(defun |
|00000110| 66 69 6c 6c 2d 6d 6f 64 | 65 20 6e 69 6c 20 38 37 |fill-mod|e nil 87|
|00000120| 39 30 39 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |909 (int|eractive|
|00000130| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000140| 65 20 22 18 fc 00 15 49 | 46 20 48 11 12 13 0a 48 |e "....I|F H....H|
|00000150| 14 1d 16 06 0a fb 00 27 | 16 07 12 13 0a 48 4a 46 |.......'|.....HJF|
|00000160| 20 48 16 08 1d 16 06 16 | 09 0b 22 20 5b 66 69 6c | H......|.." [fil|
|00000170| 6c 2d 6d 6f 64 65 2d 70 | 20 72 65 6d 6f 76 65 2d |l-mode-p| remove-|
|00000180| 6d 69 6e 6f 72 2d 6d 6f | 64 65 20 66 69 6c 6c 2d |minor-mo|de fill-|
|00000190| 6d 6f 64 65 20 22 46 69 | 6c 6c 22 20 75 6e 62 69 |mode "Fi|ll" unbi|
|000001a0| 6e 64 2d 6b 65 79 73 20 | 6d 69 6e 6f 72 2d 6d 6f |nd-keys |minor-mo|
|000001b0| 64 65 2d 6b 65 79 6d 61 | 70 20 22 53 50 43 22 20 |de-keyma|p "SPC" |
|000001c0| 61 64 64 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 62 |add-mino|r-mode b|
|000001d0| 69 6e 64 2d 6b 65 79 73 | 20 66 69 6c 6c 2d 6d 6f |ind-keys| fill-mo|
|000001e0| 64 65 2d 73 70 63 5d 20 | 34 29 29 0a 0a 28 64 65 |de-spc] |4))..(de|
|000001f0| 66 75 6e 20 66 69 6c 6c | 2d 6d 6f 64 65 2d 6f 6e |fun fill|-mode-on|
|00000200| 20 6e 69 6c 20 28 69 6e | 74 65 72 61 63 74 69 76 | nil (in|teractiv|
|00000210| 65 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |e) (jade|-byte-co|
|00000220| 64 65 20 22 18 ff 00 06 | 11 08 48 49 22 20 5b 66 |de "....|..HI" [f|
|00000230| 69 6c 6c 2d 6d 6f 64 65 | 2d 70 20 66 69 6c 6c 2d |ill-mode|-p fill-|
|00000240| 6d 6f 64 65 5d 20 31 29 | 29 0a 0a 28 64 65 66 75 |mode] 1)|)..(defu|
|00000250| 6e 20 66 69 6c 6c 2d 6d | 6f 64 65 2d 73 70 63 20 |n fill-m|ode-spc |
|00000260| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00000270| 29 20 28 6a 61 64 65 2d | 62 79 74 65 2d 63 6f 64 |) (jade-|byte-cod|
|00000280| 65 20 22 10 11 08 09 1a | 64 fe 00 68 44 11 08 33 |e ".....|d..hD..3|
|00000290| 14 1b 1a 68 0a 48 15 1b | 09 ff 00 1f 16 06 16 07 |...h.H..|........|
|000002a0| 1b 0a 46 23 48 16 08 16 | 09 1b 0a 48 44 16 0a 16 |..F#H...|...HD...|
|000002b0| 0b 16 0c 1b 09 0a 36 0d | 16 0e 1e 0d 09 16 0f 60 |......6.|.......`|
|000002c0| fe 00 46 16 10 1e 0d 1b | 0a 45 48 1e 11 16 12 61 |..F.....|.EH....a|
|000002d0| fe 00 67 44 16 13 08 36 | 14 16 15 08 48 16 16 08 |..gD...6|....H...|
|000002e0| 48 16 17 16 18 1e 14 09 | 09 45 45 48 16 08 16 19 |H.......|.EEH....|
|000002f0| 09 22 20 5b 70 6f 73 2d | 63 6f 6c 20 63 75 72 73 |." [pos-|col curs|
|00000300| 6f 72 2d 70 6f 73 20 66 | 69 6c 6c 2d 63 6f 6c 75 |or-pos f|ill-colu|
|00000310| 6d 6e 20 70 6f 73 20 73 | 65 74 2d 70 6f 73 2d 63 |mn pos s|et-pos-c|
|00000320| 6f 6c 20 77 6f 72 64 2d | 73 74 61 72 74 20 66 6f |ol word-|start fo|
|00000330| 72 77 61 72 64 2d 77 6f | 72 64 20 2d 31 20 69 6e |rward-wo|rd -1 in|
|00000340| 73 65 72 74 20 22 0a 22 | 20 6c 65 66 74 2d 63 68 |sert "."| left-ch|
|00000350| 61 72 20 31 20 63 6f 70 | 79 2d 70 6f 73 20 65 6e |ar 1 cop|y-pos en|
|00000360| 64 20 67 65 74 2d 63 68 | 61 72 20 33 32 20 64 65 |d get-ch|ar 32 de|
|00000370| 6c 65 74 65 2d 61 72 65 | 61 20 6d 61 6a 6f 72 2d |lete-are|a major-|
|00000380| 6d 6f 64 65 20 69 6e 64 | 65 6e 74 65 64 2d 74 65 |mode ind|ented-te|
|00000390| 78 74 2d 6d 6f 64 65 20 | 6d 61 6b 65 2d 6d 61 72 |xt-mode |make-mar|
|000003a0| 6b 20 6f 6c 64 2d 70 6f | 73 20 67 6f 74 6f 2d 6c |k old-po|s goto-l|
|000003b0| 69 6e 65 2d 73 74 61 72 | 74 20 74 65 78 74 2d 6d |ine-star|t text-m|
|000003c0| 6f 64 65 2d 69 6e 64 65 | 6e 74 2d 74 61 62 20 67 |ode-inde|nt-tab g|
|000003d0| 6f 74 6f 2d 63 68 61 72 | 20 6d 61 72 6b 2d 70 6f |oto-char| mark-po|
|000003e0| 73 20 22 20 22 5d 20 34 | 29 29 0a 0a 28 64 65 66 |s " "] 4|))..(def|
|000003f0| 75 6e 20 73 65 74 2d 66 | 69 6c 6c 2d 63 6f 6c 75 |un set-f|ill-colu|
|00000400| 6d 6e 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 63 6f |mn (&opt|ional co|
|00000410| 6c 75 6d 6e 29 20 38 38 | 30 37 35 20 28 69 6e 74 |lumn) 88|075 (int|
|00000420| 65 72 61 63 74 69 76 65 | 29 20 28 6a 61 64 65 2d |eractive|) (jade-|
|00000430| 62 79 74 65 2d 63 6f 64 | 65 20 22 18 70 fc 00 09 |byte-cod|e ".p...|
|00000440| 18 fb 00 0f 11 12 13 08 | 09 09 46 24 48 15 4a 16 |........|..F$H.J.|
|00000450| 06 1c 68 0b 22 20 5b 63 | 6f 6c 75 6d 6e 20 70 6f |..h." [c|olumn po|
|00000460| 73 2d 63 6f 6c 20 63 68 | 61 72 2d 74 6f 2d 67 6c |s-col ch|ar-to-gl|
|00000470| 79 70 68 2d 70 6f 73 20 | 63 75 72 73 6f 72 2d 70 |yph-pos |cursor-p|
|00000480| 6f 73 20 66 69 6c 6c 2d | 63 6f 6c 75 6d 6e 20 66 |os fill-|column f|
|00000490| 6f 72 6d 61 74 20 22 46 | 69 6c 6c 20 63 6f 6c 75 |ormat "F|ill colu|
|000004a0| 6d 6e 20 73 65 74 20 74 | 6f 20 25 64 2e 22 5d 20 |mn set t|o %d."] |
|000004b0| 34 29 29 0a             |                         |4)).    |        |
+--------+-------------------------+-------------------------+--------+--------+