|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ i ┃
Length: 4961 (0x1361)
Names: »indent.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/indent.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 61 63 63 6f 72 64 69 6e 67 2d 74 6f 2d 6d 6f 64 65 ┆ (defun indent-according-to-mode┆ 0x0020…0040 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 6c 69 6e 65 20 69 6e 20 70 72 6f 70 65 72 20 77 61 ┆ nil "\ Indent line in proper wa┆ 0x0040…0060 79 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6d 61 6a 6f 72 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 ┆y for current major mode." (inte┆ 0x0060…0080 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 21 87 22 20 5b 69 6e ┆ractive) (byte-code " ! " [in┆ 0x0080…00a0 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 66 75 6e 63 61 6c 6c 5d 20 ┆dent-line-function nil funcall] ┆ 0x00a0…00c0 32 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 66 6f 72 2d 74 61 62 2d 63 6f 6d 6d 61 ┆2)) (defun indent-for-tab-comma┆ 0x00c0…00e0 6e 64 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 6c 69 6e 65 20 69 6e 20 70 72 6f 70 65 72 20 ┆nd nil "\ Indent line in proper ┆ 0x00e0…0100 77 61 79 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6d 61 6a 6f 72 20 6d 6f 64 65 2e 22 20 28 69 6e ┆way for current major mode." (in┆ 0x0100…0120 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 3d 83 0d 00 c3 ┆teractive) (byte-code " = ┆ 0x0120…0140 20 82 10 00 c4 08 21 87 22 20 5b 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 ┆ ! " [indent-line-function ┆ 0x0140…0160 6e 69 6c 20 69 6e 64 65 6e 74 2d 74 6f 2d 6c 65 66 74 2d 6d 61 72 67 69 6e 20 69 6e 73 65 72 74 ┆nil indent-to-left-margin insert┆ 0x0160…0180 2d 74 61 62 20 66 75 6e 63 61 6c 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 ┆-tab funcall] 3)) (defun insert┆ 0x0180…01a0 2d 74 61 62 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 06 00 c3 20 88 09 83 10 00 ┆-tab nil (byte-code " ┆ 0x01a0…01c0 c4 63 82 19 00 c5 0a c6 69 0a 5c 22 54 5c 22 6a 87 22 20 5b 61 62 62 72 65 76 2d 6d 6f 64 65 20 ┆ c i \"T\"j " [abbrev-mode ┆ 0x01c0…01e0 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 74 61 62 2d 77 69 64 74 68 20 65 78 70 61 6e ┆indent-tabs-mode tab-width expan┆ 0x01e0…0200 64 2d 61 62 62 72 65 76 20 39 20 2a 20 2f 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 ┆d-abbrev 9 * /] 6)) (defun inde┆ 0x0200…0220 6e 74 2d 72 69 67 69 64 6c 79 20 28 73 74 61 72 74 20 65 6e 64 20 61 72 67 29 20 22 5c 0a 49 6e ┆nt-rigidly (start end arg) "\ In┆ 0x0220…0240 64 65 6e 74 20 61 6c 6c 20 6c 69 6e 65 73 20 73 74 61 72 74 69 6e 67 20 69 6e 20 74 68 65 20 72 ┆dent all lines starting in the r┆ 0x0240…0260 65 67 69 6f 6e 20 73 69 64 65 77 61 79 73 20 62 79 20 41 52 47 20 63 6f 6c 75 6d 6e 73 2e 0a 43 ┆egion sideways by ARG columns. C┆ 0x0260…0280 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b 65 73 20 74 68 72 65 ┆alled from a program, takes thre┆ 0x0280…02a0 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 53 54 41 52 54 2c 20 45 4e 44 20 61 6e 64 20 41 52 47 2e ┆e arguments, START, END and ARG.┆ 0x02a0…02c0 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆" (interactive "r p") (byte-code┆ 0x02c0…02e0 20 22 c4 88 8a 08 62 88 c5 20 89 10 88 09 62 88 6e 86 15 00 c6 c7 21 88 60 08 57 85 3d 00 c8 20 ┆ " b b n ! ` W = ┆ 0x02e0…0300 1a c9 60 ca cb 21 88 60 5c 22 88 6c 86 34 00 cc cd 0a 0b 5c 5c 5d cd 5c 22 29 88 c6 c7 21 88 82 ┆ ` ! `\" l 4 \\] \") ! ┆ 0x0300…0320 16 00 88 ce 08 c4 5c 22 29 87 22 20 5b 65 6e 64 20 73 74 61 72 74 20 69 6e 64 65 6e 74 20 61 72 ┆ \") " [end start indent ar┆ 0x0320…0340 67 20 6e 69 6c 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 ┆g nil point-marker forward-line ┆ 0x0340…0360 31 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 64 65 6c 65 74 65 2d 72 65 67 ┆1 current-indentation delete-reg┆ 0x0360…0380 69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 64 65 ┆ion skip-chars-forward " " inde┆ 0x0380…03a0 6e 74 2d 74 6f 20 30 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 ┆nt-to 0 move-marker] 10)) (defu┆ 0x03a0…03c0 6e 20 69 6e 64 65 6e 74 2d 74 6f 2d 6c 65 66 74 2d 6d 61 72 67 69 6e 20 6e 69 6c 20 28 62 79 74 ┆n indent-to-left-margin nil (byt┆ 0x03c0…03e0 65 2d 63 6f 64 65 20 22 c2 20 08 55 86 27 00 c3 19 8a c4 20 88 c5 60 c6 c7 21 88 60 5c 22 88 08 ┆e-code " U ' ` ! `\" ┆ 0x03e0…0400 6a 88 60 89 11 29 88 60 09 57 85 26 00 09 62 29 87 22 20 5b 6c 65 66 74 2d 6d 61 72 67 69 6e 20 ┆j ` ) ` W & b) " [left-margin ┆ 0x0400…0420 65 70 6f 73 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 69 6c 20 62 65 67 ┆epos current-indentation nil beg┆ 0x0420…0440 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 6b 69 ┆inning-of-line delete-region ski┆ 0x0440…0460 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 5d 20 36 29 29 0a 0a 28 64 65 66 76 ┆p-chars-forward " "] 6)) (defv┆ 0x0460…0480 61 72 20 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 22 5c ┆ar indent-region-function nil "\┆ 0x0480…04a0 0a 46 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 69 73 20 73 68 6f 72 74 20 63 75 74 20 74 6f 20 ┆ Function which is short cut to ┆ 0x04a0…04c0 69 6e 64 65 6e 74 20 65 61 63 68 20 6c 69 6e 65 20 69 6e 20 72 65 67 69 6f 6e 20 77 69 74 68 20 ┆indent each line in region with ┆ 0x04c0…04e0 54 61 62 2e 0a 6e 69 6c 20 6d 65 61 6e 73 20 72 65 61 6c 6c 79 20 63 61 6c 6c 20 54 61 62 20 6f ┆Tab. nil means really call Tab o┆ 0x04e0…0500 6e 20 65 61 63 68 20 6c 69 6e 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 72 65 ┆n each line.") (defun indent-re┆ 0x0500…0520 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 20 61 72 67 29 20 22 5c 0a 49 6e 64 65 6e 74 20 65 ┆gion (start end arg) "\ Indent e┆ 0x0520…0540 61 63 68 20 6e 6f 6e 62 6c 61 6e 6b 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e ┆ach nonblank line in the region.┆ 0x0540…0560 0a 57 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 2c 20 69 6e 64 65 6e 74 20 65 61 63 68 20 6c ┆ With no argument, indent each l┆ 0x0560…0580 69 6e 65 20 77 69 74 68 20 54 61 62 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 20 43 4f 4c 55 ┆ine with Tab. With argument COLU┆ 0x0580…05a0 4d 4e 2c 20 69 6e 64 65 6e 74 20 65 61 63 68 20 6c 69 6e 65 20 74 6f 20 74 68 61 74 20 63 6f 6c ┆MN, indent each line to that col┆ 0x05a0…05c0 75 6d 6e 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b 65 ┆umn. Called from a program, take┆ 0x05c0…05e0 73 20 74 68 72 65 65 20 61 72 67 73 3a 20 53 54 41 52 54 2c 20 45 4e 44 20 61 6e 64 20 43 4f 4c ┆s three args: START, END and COL┆ 0x05e0…0600 55 4d 4e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 50 22 29 20 28 62 79 74 65 2d ┆UMN." (interactive "r P") (byte-┆ 0x0600…0620 63 6f 64 65 20 22 c5 88 08 3f 83 41 00 09 83 13 00 c6 09 0a 0b 23 82 3e 00 8a 0b 62 88 c7 20 89 ┆code " ? A # > b ┆ 0x0620…0640 13 88 0a 62 88 6e 86 26 00 c8 c9 21 88 60 0b 57 85 38 00 c6 0c 21 88 c8 c9 21 88 82 27 00 88 ca ┆ b n & ! ` W 8 ! ! ' ┆ 0x0640…0660 0b c5 5c 22 29 82 80 00 cb 08 21 89 10 88 8a 0b 62 88 c7 20 89 13 88 0a 62 88 6e 86 5a 00 c8 c9 ┆ \") ! b b n Z ┆ 0x0660…0680 21 88 60 0b 57 85 7a 00 cc 60 cd ce 21 88 60 5c 22 88 6c 86 72 00 cf 08 d0 5c 22 88 c8 c9 21 88 ┆! ` W z ` ! `\" l r \" ! ┆ 0x0680…06a0 82 5b 00 88 ca 0b c5 5c 22 29 87 22 20 5b 61 72 67 20 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 2d ┆ [ \") " [arg indent-region-┆ 0x06a0…06c0 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 ┆function start end indent-line-f┆ 0x06c0…06e0 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 66 75 6e 63 61 6c 6c 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 ┆unction nil funcall point-marker┆ 0x06e0…0700 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 70 72 65 66 ┆ forward-line 1 move-marker pref┆ 0x0700…0720 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 ┆ix-numeric-value delete-region s┆ 0x0720…0740 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 64 65 6e 74 2d 74 6f ┆kip-chars-forward " " indent-to┆ 0x0740…0760 20 30 5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 ┆ 0] 16)) (defun indent-relative┆ 0x0760…0780 2d 6d 61 79 62 65 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 61 20 6e 65 77 20 6c 69 6e 65 20 ┆-maybe nil "\ Indent a new line ┆ 0x0780…07a0 6c 69 6b 65 20 70 72 65 76 69 6f 75 73 20 6e 6f 6e 62 6c 61 6e 6b 20 6c 69 6e 65 2e 22 20 28 69 ┆like previous nonblank line." (i┆ 0x07a0…07c0 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c0 21 87 22 20 ┆nteractive) (byte-code " ! " ┆ 0x07c0…07e0 5b 74 20 6e 69 6c 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 5d 20 32 29 29 0a 0a 28 64 65 ┆[t nil indent-relative] 2)) (de┆ 0x07e0…0800 66 75 6e 20 69 6e 64 65 6e 74 2d 72 65 6c 61 74 69 76 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 ┆fun indent-relative (&optional u┆ 0x0800…0820 6e 69 6e 64 65 6e 74 65 64 2d 6f 6b 29 20 22 5c 0a 53 70 61 63 65 20 6f 75 74 20 74 6f 20 75 6e ┆nindented-ok) "\ Space out to un┆ 0x0820…0840 64 65 72 20 6e 65 78 74 20 69 6e 64 65 6e 74 20 70 6f 69 6e 74 20 69 6e 20 70 72 65 76 69 6f 75 ┆der next indent point in previou┆ 0x0840…0860 73 20 6e 6f 6e 62 6c 61 6e 6b 20 6c 69 6e 65 2e 0a 41 6e 20 69 6e 64 65 6e 74 20 70 6f 69 6e 74 ┆s nonblank line. An indent point┆ 0x0860…0880 20 69 73 20 61 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 20 66 ┆ is a non-whitespace character f┆ 0x0880…08a0 6f 6c 6c 6f 77 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 2e 0a 49 66 20 74 68 65 20 70 72 65 76 ┆ollowing whitespace. If the prev┆ 0x08a0…08c0 69 6f 75 73 20 6e 6f 6e 62 6c 61 6e 6b 20 6c 69 6e 65 20 68 61 73 20 6e 6f 20 69 6e 64 65 6e 74 ┆ious nonblank line has no indent┆ 0x08c0…08e0 20 70 6f 69 6e 74 73 20 62 65 79 6f 6e 64 0a 74 68 65 20 63 6f 6c 75 6d 6e 20 70 6f 69 6e 74 20 ┆ points beyond the column point ┆ 0x08e0…0900 73 74 61 72 74 73 20 61 74 2c 20 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 20 20 69 73 20 ┆starts at, tab-to-tab-stop is ┆ 0x0900…0920 64 6f 6e 65 20 69 6e 73 74 65 61 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 ┆done instead." (interactive "P")┆ 0x0920…0940 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08 85 08 00 c8 20 88 69 c3 1a 19 8a c9 20 88 ca cb ┆ (byte-code " i ┆ 0x0940…0960 c3 c4 23 85 4e 00 8a cc cd 21 88 60 29 1d ce 09 21 88 69 09 56 85 2e 00 cf cd 21 88 d0 d1 21 86 ┆ # N ! `) ! i V . ! ! ┆ 0x0960…0980 3e 00 0e 06 86 3e 00 d2 d3 0d 5c 22 88 d2 d4 0d 5c 22 88 60 0d 55 86 4d 00 69 89 12 29 29 88 0a ┆> > \" \" ` U M i )) ┆ 0x0980…09a0 83 7a 00 d5 20 1e 07 d6 60 d7 d4 21 88 60 5c 22 88 d8 0a d9 5c 22 88 0e 07 60 56 85 70 00 0e 07 ┆ z ` ! `\" \" `V p ┆ 0x09a0…09c0 62 88 da 0e 07 c3 5c 22 29 82 7c 00 db 20 2a 87 22 20 5b 61 62 62 72 65 76 2d 6d 6f 64 65 20 73 ┆b \") | * " [abbrev-mode s┆ 0x09c0…09e0 74 61 72 74 2d 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 20 6e 69 6c 20 74 20 65 6e 64 20 75 6e 69 ┆tart-column indent nil t end uni┆ 0x09e0…0a00 6e 64 65 6e 74 65 64 2d 6f 6b 20 6f 70 6f 69 6e 74 20 65 78 70 61 6e 64 2d 61 62 62 72 65 76 20 ┆ndented-ok opoint expand-abbrev ┆ 0x0a00…0a20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b ┆beginning-of-line re-search-back┆ 0x0a20…0a40 77 61 72 64 20 22 5e 5b 5e 0a 5d 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6d 6f 76 65 ┆ward "^[^ ]" forward-line 1 move┆ 0x0a40…0a60 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 6c 6f 6f 6b 69 6e 67 ┆-to-column backward-char looking┆ 0x0a60…0a80 2d 61 74 20 22 5b 20 09 5d 22 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 5e ┆-at "[ ]" skip-chars-forward "^┆ 0x0a80…0aa0 20 09 22 20 22 20 09 22 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 20 64 65 6c 65 74 65 2d 72 65 67 ┆ " " " point-marker delete-reg┆ 0x0aa0…0ac0 69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 69 6e 64 65 6e 74 2d 74 ┆ion skip-chars-backward indent-t┆ 0x0ac0…0ae0 6f 20 30 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 5d ┆o 0 move-marker tab-to-tab-stop]┆ 0x0ae0…0b00 20 31 36 29 29 0a 0a 28 64 65 66 76 61 72 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 28 71 75 ┆ 16)) (defvar tab-stop-list (qu┆ 0x0b00…0b20 6f 74 65 20 28 38 20 31 36 20 32 34 20 33 32 20 34 30 20 34 38 20 35 36 20 36 34 20 37 32 20 38 ┆ote (8 16 24 32 40 48 56 64 72 8┆ 0x0b20…0b40 30 20 38 38 20 39 36 20 31 30 34 20 31 31 32 20 31 32 30 29 29 20 22 5c 0a 2a 4c 69 73 74 20 6f ┆0 88 96 104 112 120)) "\ *List o┆ 0x0b40…0b60 66 20 74 61 62 20 73 74 6f 70 20 70 6f 73 69 74 69 6f 6e 73 20 75 73 65 64 20 62 79 20 74 61 62 ┆f tab stop positions used by tab┆ 0x0b60…0b80 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 65 64 69 74 2d 74 ┆-to-tab-stops.") (defvar edit-t┆ 0x0b80…0ba0 61 62 2d 73 74 6f 70 73 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64 20 ┆ab-stops-map nil "\ Keymap used ┆ 0x0ba0…0bc0 69 6e 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 2e 22 29 0a 0a 28 69 66 20 65 64 69 74 2d 74 ┆in edit-tab-stops.") (if edit-t┆ 0x0bc0…0be0 61 62 2d 73 74 6f 70 73 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 65 64 69 74 2d 74 61 62 2d ┆ab-stops-map nil (setq edit-tab-┆ 0x0be0…0c00 73 74 6f 70 73 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 ┆stops-map (make-sparse-keymap)) ┆ 0x0c00…0c20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 2d 6d 61 70 20 22 ┆(define-key edit-tab-stops-map "┆ 0x0c20…0c40 18 13 22 20 28 71 75 6f 74 65 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 2d 6e 6f 74 65 2d 63 ┆ " (quote edit-tab-stops-note-c┆ 0x0c40…0c60 68 61 6e 67 65 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 74 61 62 2d 73 74 ┆hanges)) (define-key edit-tab-st┆ 0x0c60…0c80 6f 70 73 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74 65 20 65 64 69 74 2d 74 61 62 2d 73 74 6f ┆ops-map " " (quote edit-tab-sto┆ 0x0c80…0ca0 70 73 2d 6e 6f 74 65 2d 63 68 61 6e 67 65 73 29 29 29 0a 0a 28 64 65 66 76 61 72 20 65 64 69 74 ┆ps-note-changes))) (defvar edit┆ 0x0ca0…0cc0 2d 74 61 62 2d 73 74 6f 70 73 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 42 75 66 66 65 72 20 ┆-tab-stops-buffer nil "\ Buffer ┆ 0x0cc0…0ce0 77 68 6f 73 65 20 74 61 62 20 73 74 6f 70 73 20 61 72 65 20 62 65 69 6e 67 20 65 64 69 74 65 64 ┆whose tab stops are being edited┆ 0x0ce0…0d00 2d 2d 69 6e 20 63 61 73 65 0a 74 68 65 20 76 61 72 69 61 62 6c 65 20 74 61 62 2d 73 74 6f 70 2d ┆--in case the variable tab-stop-┆ 0x0d00…0d20 6c 69 73 74 20 69 73 20 6c 6f 63 61 6c 20 69 6e 20 74 68 61 74 20 62 75 66 66 65 72 2e 22 29 0a ┆list is local in that buffer.") ┆ 0x0d20…0d40 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 20 6e 69 6c 20 22 5c 0a 45 64 ┆ (defun edit-tab-stops nil "\ Ed┆ 0x0d40…0d60 69 74 20 74 68 65 20 74 61 62 20 73 74 6f 70 73 20 75 73 65 64 20 62 79 20 74 61 62 2d 74 6f 2d ┆it the tab stops used by tab-to-┆ 0x0d60…0d80 74 61 62 2d 73 74 6f 70 2e 0a 43 72 65 61 74 65 73 20 61 20 62 75 66 66 65 72 20 2a 54 61 62 20 ┆tab-stop. Creates a buffer *Tab ┆ 0x0d80…0da0 53 74 6f 70 73 2a 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 65 78 74 20 64 65 73 63 72 69 62 69 6e ┆Stops* containing text describin┆ 0x0da0…0dc0 67 20 74 68 65 20 74 61 62 20 73 74 6f 70 73 2e 0a 41 20 63 6f 6c 6f 6e 20 69 6e 64 69 63 61 74 ┆g the tab stops. A colon indicat┆ 0x0dc0…0de0 65 73 20 61 20 63 6f 6c 75 6d 6e 20 77 68 65 72 65 20 74 68 65 72 65 20 69 73 20 61 20 74 61 62 ┆es a column where there is a tab┆ 0x0de0…0e00 20 73 74 6f 70 2e 0a 59 6f 75 20 63 61 6e 20 61 64 64 20 6f 72 20 72 65 6d 6f 76 65 20 63 6f 6c ┆ stop. You can add or remove col┆ 0x0e00…0e20 6f 6e 73 20 61 6e 64 20 74 68 65 6e 20 64 6f 20 43 2d 63 20 43 2d 63 20 74 6f 20 6d 61 6b 65 20 ┆ons and then do C-c C-c to make ┆ 0x0e20…0e40 63 68 61 6e 67 65 73 20 74 61 6b 65 20 65 66 66 65 63 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆changes take effect." (interacti┆ 0x0e40…0e60 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 70 89 10 88 c9 ca cb 21 21 88 cc 09 21 88 ┆ve) (byte-code " p !! ! ┆ 0x0e60…0e80 cd c2 21 88 c3 89 12 88 ce cf 21 88 c5 89 14 88 d0 20 88 0e 07 1e 06 0e 06 85 40 00 d1 0e 06 40 ┆ ! ! @ @┆ 0x0e80…0ea0 d2 5c 22 88 d3 63 88 0e 06 41 89 16 06 88 82 27 00 29 88 d2 1e 08 d4 63 88 0e 08 d5 57 85 62 00 ┆ \" c A ' ) c W b ┆ 0x0ea0…0ec0 0e 08 d6 5c 5c 63 88 d7 63 88 0e 08 54 89 16 08 88 82 48 00 88 d4 63 88 0e 08 d2 56 85 7a 00 d8 ┆ \\c c T H c V z ┆ 0x0ec0…0ee0 63 88 0e 08 53 89 16 08 88 82 66 00 29 88 d9 63 88 65 62 87 22 20 5b 65 64 69 74 2d 74 61 62 2d ┆c S f ) c eb " [edit-tab-┆ 0x0ee0…0f00 73 74 6f 70 73 2d 62 75 66 66 65 72 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 2d 6d 61 70 20 ┆stops-buffer edit-tab-stops-map ┆ 0x0f00…0f20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69 6c 20 74 72 75 6e 63 61 74 65 2d 6c 69 ┆indent-tabs-mode nil truncate-li┆ 0x0f20…0f40 6e 65 73 20 74 20 74 61 62 73 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 63 6f 75 6e 74 20 73 ┆nes t tabs tab-stop-list count s┆ 0x0f40…0f60 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 ┆witch-to-buffer get-buffer-creat┆ 0x0f60…0f80 65 20 22 2a 54 61 62 20 53 74 6f 70 73 2a 22 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 ┆e "*Tab Stops*" use-local-map ma┆ 0x0f80…0fa0 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 6f 76 65 72 77 72 69 74 65 2d 6d 6f 64 65 ┆ke-local-variable overwrite-mode┆ 0x0fa0…0fc0 20 31 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 64 65 6e 74 2d 74 6f 20 30 20 35 38 20 31 ┆ 1 erase-buffer indent-to 0 58 1┆ 0x0fc0…0fe0 30 20 38 20 34 38 20 22 20 20 20 20 20 20 20 20 20 22 20 22 30 31 32 33 34 35 36 37 38 39 22 20 ┆0 8 48 " " "0123456789" ┆ 0x0fe0…1000 22 0a 54 6f 20 69 6e 73 74 61 6c 6c 20 63 68 61 6e 67 65 73 2c 20 74 79 70 65 20 43 2d 63 20 43 ┆" To install changes, type C-c C┆ 0x1000…1020 2d 63 22 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 ┆-c"] 10)) (defun edit-tab-stops┆ 0x1020…1040 2d 6e 6f 74 65 2d 63 68 61 6e 67 65 73 20 6e 69 6c 20 22 5c 0a 50 75 74 20 65 64 69 74 65 64 20 ┆-note-changes nil "\ Put edited ┆ 0x1040…1060 74 61 62 20 73 74 6f 70 73 20 69 6e 74 6f 20 65 66 66 65 63 74 2e 22 20 28 69 6e 74 65 72 61 63 ┆tab stops into effect." (interac┆ 0x1060…1080 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c1 18 8a c5 62 88 c6 20 88 c7 c8 c1 ┆tive) (byte-code " b ┆ 0x1080…10a0 c2 23 85 1c 00 69 08 42 89 10 88 82 0b 00 29 88 c9 70 ca 0b 21 88 21 88 08 89 14 29 88 cb cc 21 ┆ # i B ) p ! ! ) !┆ 0x10a0…10c0 87 22 20 5b 74 61 62 73 20 6e 69 6c 20 74 20 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 2d 62 75 ┆ " [tabs nil t edit-tab-stops-bu┆ 0x10c0…10e0 66 66 65 72 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 ┆ffer tab-stop-list 1 end-of-line┆ 0x10e0…1100 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 3a 22 20 62 75 72 79 2d 62 75 66 66 65 72 ┆ search-backward ":" bury-buffer┆ 0x1100…1120 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 22 54 61 62 20 73 ┆ switch-to-buffer message "Tab s┆ 0x1120…1140 74 6f 70 73 20 69 6e 73 74 61 6c 6c 65 64 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 ┆tops installed"] 6)) (defun tab┆ 0x1140…1160 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 73 70 61 63 65 ┆-to-tab-stop nil "\ Insert space┆ 0x1160…1180 73 20 6f 72 20 74 61 62 73 20 74 6f 20 6e 65 78 74 20 64 65 66 69 6e 65 64 20 74 61 62 2d 73 74 ┆s or tabs to next defined tab-st┆ 0x1180…11a0 6f 70 20 63 6f 6c 75 6d 6e 2e 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 74 61 62 2d 73 74 6f 70 ┆op column. The variable tab-stop┆ 0x11a0…11c0 2d 6c 69 73 74 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 61 74 20 77 68 ┆-list is a list of columns at wh┆ 0x11c0…11e0 69 63 68 20 74 68 65 72 65 20 61 72 65 20 74 61 62 20 73 74 6f 70 73 2e 0a 55 73 65 20 5c 5c 5b ┆ich there are tab stops. Use \\[┆ 0x11e0…1200 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 5d 20 74 6f 20 65 64 69 74 20 74 68 65 6d 20 69 6e 74 ┆edit-tab-stops] to edit them int┆ 0x1200…1220 65 72 61 63 74 69 76 65 6c 79 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆eractively." (interactive) (byte┆ 0x1220…1240 2d 63 6f 64 65 20 22 c3 88 08 85 08 00 c4 20 88 0a 19 09 85 13 00 69 09 40 59 85 1e 00 09 41 89 ┆-code " i @Y A ┆ 0x1240…1260 11 88 82 0b 00 88 09 83 29 00 09 40 6a 82 2b 00 c5 63 29 87 22 20 5b 61 62 62 72 65 76 2d 6d 6f ┆ ) @j + c) " [abbrev-mo┆ 0x1260…1280 64 65 20 74 61 62 73 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 6e 69 6c 20 65 78 70 61 6e 64 ┆de tabs tab-stop-list nil expand┆ 0x1280…12a0 2d 61 62 62 72 65 76 20 33 32 5d 20 34 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 67 6c 6f ┆-abbrev 32] 4)) (define-key glo┆ 0x12a0…12c0 62 61 6c 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 66 6f 72 2d 74 61 ┆bal-map " " (quote indent-for-ta┆ 0x12c0…12e0 62 2d 63 6f 6d 6d 61 6e 64 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 73 63 2d 6d 61 70 ┆b-command)) (define-key esc-map┆ 0x12e0…1300 20 22 1c 22 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 29 29 0a 0a 28 64 65 ┆ " " (quote indent-region)) (de┆ 0x1300…1320 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 69 6e ┆fine-key ctl-x-map " " (quote in┆ 0x1320…1340 64 65 6e 74 2d 72 69 67 69 64 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 73 63 2d ┆dent-rigidly)) (define-key esc-┆ 0x1340…1360 6d 61 70 20 22 69 22 20 28 71 75 6f 74 65 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 29 29 ┆map "i" (quote tab-to-tab-stop))┆ 0x1360…1361 0a ┆ ┆