home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / tabify.elc < prev    next >
Emacs Compiled Lisp  |  1991-01-10  |  786 b 

view JSON data     |     view as text     |     open on a Mac     |     open on a PC

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: '(defun untabify (start end) ' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 75 6e 74 61 62 69 66 79 |.(defun |untabify|
|00000010| 20 28 73 74 61 72 74 20 | 65 6e 64 29 20 22 5c 0a | (start |end) "\.|
|00000020| 43 6f 6e 76 65 72 74 20 | 61 6c 6c 20 74 61 62 73 |Convert |all tabs|
|00000030| 20 69 6e 20 72 65 67 69 | 6f 6e 20 74 6f 20 6d 75 | in regi|on to mu|
|00000040| 6c 74 69 70 6c 65 20 73 | 70 61 63 65 73 2c 20 70 |ltiple s|paces, p|
|00000050| 72 65 73 65 72 76 69 6e | 67 20 63 6f 6c 75 6d 6e |reservin|g column|
|00000060| 73 2e 0a 54 68 65 20 76 | 61 72 69 61 62 6c 65 20 |s..The v|ariable |
|00000070| 74 61 62 2d 77 69 64 74 | 68 20 63 6f 6e 74 72 6f |tab-widt|h contro|
|00000080| 6c 73 20 74 68 65 20 61 | 63 74 69 6f 6e 2e 22 20 |ls the a|ction." |
|00000090| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 72 22 |(interac|tive "r"|
|000000a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 88 |) (byte-|code "..|
|000000b0| 8a 8c c6 08 09 5c 22 88 | 08 62 88 c7 c8 c2 c3 23 |.....\".|.b.....#|
|000000c0| 85 2a 00 60 69 c2 1d 1c | 18 c9 c8 21 88 ca 08 60 |.*.`i...|...!...`|
|000000d0| 5c 22 88 0c 6a 2b 88 82 | 0c 00 29 29 87 22 20 5b |\"..j+..|..))." [|
|000000e0| 73 74 61 72 74 20 65 6e | 64 20 6e 69 6c 20 74 20 |start en|d nil t |
|000000f0| 63 6f 6c 75 6d 6e 20 69 | 6e 64 65 6e 74 2d 74 61 |column i|ndent-ta|
|00000100| 62 73 2d 6d 6f 64 65 20 | 6e 61 72 72 6f 77 2d 74 |bs-mode |narrow-t|
|00000110| 6f 2d 72 65 67 69 6f 6e | 20 73 65 61 72 63 68 2d |o-region| search-|
|00000120| 66 6f 72 77 61 72 64 20 | 22 09 22 20 73 6b 69 70 |forward |"." skip|
|00000130| 2d 63 68 61 72 73 2d 62 | 61 63 6b 77 61 72 64 20 |-chars-b|ackward |
|00000140| 64 65 6c 65 74 65 2d 72 | 65 67 69 6f 6e 5d 20 37 |delete-r|egion] 7|
|00000150| 29 29 0a 0a 28 64 65 66 | 75 6e 20 74 61 62 69 66 |))..(def|un tabif|
|00000160| 79 20 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 5c |y (start| end) "\|
|00000170| 0a 43 6f 6e 76 65 72 74 | 20 6d 75 6c 74 69 70 6c |.Convert| multipl|
|00000180| 65 20 73 70 61 63 65 73 | 20 69 6e 20 72 65 67 69 |e spaces| in regi|
|00000190| 6f 6e 20 74 6f 20 74 61 | 62 73 20 77 68 65 6e 20 |on to ta|bs when |
|000001a0| 70 6f 73 73 69 62 6c 65 | 2e 0a 41 20 67 72 6f 75 |possible|..A grou|
|000001b0| 70 20 6f 66 20 73 70 61 | 63 65 73 20 69 73 20 70 |p of spa|ces is p|
|000001c0| 61 72 74 69 61 6c 6c 79 | 20 72 65 70 6c 61 63 65 |artially| replace|
|000001d0| 64 20 62 79 20 74 61 62 | 73 0a 77 68 65 6e 20 74 |d by tab|s.when t|
|000001e0| 68 69 73 20 63 61 6e 20 | 62 65 20 64 6f 6e 65 20 |his can |be done |
|000001f0| 77 69 74 68 6f 75 74 20 | 63 68 61 6e 67 69 6e 67 |without |changing|
|00000200| 20 74 68 65 20 63 6f 6c | 75 6d 6e 20 74 68 65 79 | the col|umn they|
|00000210| 20 65 6e 64 20 61 74 2e | 0a 54 68 65 20 76 61 72 | end at.|.The var|
|00000220| 69 61 62 6c 65 20 74 61 | 62 2d 77 69 64 74 68 20 |iable ta|b-width |
|00000230| 63 6f 6e 74 72 6f 6c 73 | 20 74 68 65 20 61 63 74 |controls| the act|
|00000240| 69 6f 6e 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ion." (i|nteracti|
|00000250| 76 65 20 22 72 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "r") |(byte-co|
|00000260| 64 65 20 22 c2 88 8a 8c | c6 08 09 5c 22 88 08 62 |de "....|...\"..b|
|00000270| 88 c7 c8 c2 c3 23 85 26 | 00 69 c3 1d 1c c9 ca cb |.....#.&|.i......|
|00000280| 21 60 5c 22 88 0c 6a 2a | 88 82 0c 00 29 29 87 22 |!`\"..j*|....))."|
|00000290| 20 5b 73 74 61 72 74 20 | 65 6e 64 20 6e 69 6c 20 | [start |end nil |
|000002a0| 74 20 63 6f 6c 75 6d 6e | 20 69 6e 64 65 6e 74 2d |t column| indent-|
|000002b0| 74 61 62 73 2d 6d 6f 64 | 65 20 6e 61 72 72 6f 77 |tabs-mod|e narrow|
|000002c0| 2d 74 6f 2d 72 65 67 69 | 6f 6e 20 72 65 2d 73 65 |-to-regi|on re-se|
|000002d0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5b 20 |arch-for|ward "[ |
|000002e0| 09 5d 5b 20 09 5d 5b 20 | 09 5d 2a 22 20 64 65 6c |.][ .][ |.]*" del|
|000002f0| 65 74 65 2d 72 65 67 69 | 6f 6e 20 6d 61 74 63 68 |ete-regi|on match|
|00000300| 2d 62 65 67 69 6e 6e 69 | 6e 67 20 30 5d 20 37 29 |-beginni|ng 0] 7)|
|00000310| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+