DataMuseum.dk

top - metrics - download

    Length: 3309 (0xced)
    Names: »c-fill.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/c-fill.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 76 61 72 20 63 2d 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 69 6e 67 2d 62 6c 61 6e   ┆ (defvar c-comment-starting-blan┆
0x020…040 6b 20 74 20 22 5c 0a 2a 43 6f 6e 74 72 6f 6c 73 20 77 68 65 74 68 65 72 20 67 6c 6f 62 61 6c 20   ┆k t "\ *Controls whether global ┆
0x040…060 63 6f 6d 6d 65 6e 74 73 20 68 61 76 65 20 61 6e 20 69 6e 69 74 69 61 6c 20 62 6c 61 6e 6b 20 6c   ┆comments have an initial blank l┆
0x060…080 69 6e 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74   ┆ine.")  (defvar c-comment-indent┆
0x080…0a0 69 6e 67 20 74 20 22 5c 0a 2a 49 66 20 73 65 74 20 67 6c 6f 62 61 6c 20 63 6f 6d 6d 65 6e 74 73   ┆ing t "\ *If set global comments┆
0x0a0…0c0 20 61 72 65 20 69 6e 64 65 6e 74 65 64 20 74 6f 20 74 68 65 20 6c 65 76 65 6c 20 6f 66 20 74 68   ┆ are indented to the level of th┆
0x0c0…0e0 65 20 70 72 65 76 69 6f 75 73 20 6c 69 6e 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 2d 63 6f   ┆e previous line.")  (defvar c-co┆
0x0e0…100 6d 6d 65 6e 74 2d 68 61 6e 67 69 6e 67 2d 69 6e 64 65 6e 74 20 74 20 22 5c 0a 2a 49 66 20 74 72   ┆mment-hanging-indent t "\ *If tr┆
0x100…120 75 65 2c 20 63 6f 6d 6d 65 6e 74 73 20 77 69 6c 6c 20 62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c   ┆ue, comments will be automatical┆
0x120…140 6c 79 20 69 6e 64 65 6e 74 65 64 20 74 6f 20 74 68 65 20 64 61 73 68 2e 22 29 0a 0a 28 64 65 66   ┆ly indented to the dash.")  (def┆
0x140…160 76 61 72 20 63 2d 68 61 6e 67 2d 61 6c 72 65 61 64 79 2d 64 6f 6e 65 20 74 20 22 5c 0a 49 66 20   ┆var c-hang-already-done t "\ If ┆
0x160…180 74 72 75 65 20 77 65 20 68 61 76 65 20 70 65 72 66 6f 72 6d 65 64 20 74 68 65 20 68 61 6e 69 6e   ┆true we have performed the hanin┆
0x180…1a0 67 20 69 6e 64 65 6e 74 20 61 6c 72 65 61 64 79 20 66 6f 72 20 74 68 69 73 20 63 6f 6d 6d 65 6e   ┆g indent already for this commen┆
0x1a0…1c0 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 2d 63 6f 6d 6d 65 6e 74 2d 6d 6f 64 65 2d 6d 61 70   ┆t.")  (defvar c-comment-mode-map┆
0x1c0…1e0 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 43 20 63 6f 6d 6d 65 6e 74   ┆ nil "\ Keymap used in C comment┆
0x1e0…200 20 6d 6f 64 65 2e 22 29 0a 0a 28 69 66 20 63 2d 63 6f 6d 6d 65 6e 74 2d 6d 6f 64 65 2d 6d 61 70   ┆ mode.")  (if c-comment-mode-map┆
0x200…220 20 6e 69 6c 20 28 73 65 74 71 20 63 2d 63 6f 6d 6d 65 6e 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 63   ┆ nil (setq c-comment-mode-map (c┆
0x220…240 6f 70 79 2d 6b 65 79 6d 61 70 20 63 2d 6d 6f 64 65 2d 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d   ┆opy-keymap c-mode-map)) (define-┆
0x240…260 6b 65 79 20 63 2d 63 6f 6d 6d 65 6e 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 0d 22 20 28 71 75 6f   ┆key c-comment-mode-map "  " (quo┆
0x260…280 74 65 20 6e 65 77 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 2d 63 6f 6d 6d 65   ┆te newline)) (define-key c-comme┆
0x280…2a0 6e 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 71 22 20 28 71 75 6f 74 65 20 73 65 74 2d 66 69 6c 6c   ┆nt-mode-map " q" (quote set-fill┆
0x2a0…2c0 2d 61 6e 64 2d 66 69 6c 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 2d 63 6f 6d 6d 65 6e   ┆-and-fill)) (define-key c-commen┆
0x2c0…2e0 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 73 65 74 2d 66 69 6c 6c 2d 61   ┆t-mode-map " " (quote set-fill-a┆
0x2e0…300 6e 64 2d 72 65 74 75 72 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 2d 63 6f 6d 6d 65 6e 74 20 6e   ┆nd-return)))  (defun c-comment n┆
0x300…320 69 6c 20 22 5c 0a 45 64 69 74 20 61 20 43 20 63 6f 6d 6d 65 6e 74 20 77 69 74 68 20 66 69 6c 6c   ┆il "\ Edit a C comment with fill┆
0x320…340 69 6e 67 20 61 6e 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 0a 54 68 69 73 20 70 65 72 66 6f 72   ┆ing and indentation. This perfor┆
0x340…360 6d 73 20 68 61 6e 67 69 6e 67 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2c 20 73 79 6d 6d 65 74 72 69   ┆ms hanging indentation, symmetri┆
0x360…380 63 20 70 6c 61 63 65 6d 65 6e 74 20 6f 66 20 64 65 6c 69 6d 69 74 65 72 73 2c 0a 20 61 6e 64 20   ┆c placement of delimiters,  and ┆
0x380…3a0 49 6e 64 65 6e 74 65 64 2d 54 65 78 74 20 6d 6f 64 65 20 73 74 79 6c 65 20 69 6e 64 65 6e 74 61   ┆Indented-Text mode style indenta┆
0x3a0…3c0 74 69 6f 6e 2e 20 20 54 79 70 65 20 27 4d 2d 78 20 61 70 72 6f 70 6f 73 0a 63 2d 63 6f 6d 6d 65   ┆tion.  Type 'M-x apropos c-comme┆
0x3c0…3e0 6e 74 27 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 6f 70 74 69 6f 6e 73 2e 22   ┆nt' for information on options."┆
0x3e0…400 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cc 88 09 83 0a   ┆ (interactive) (byte-code "     ┆
0x400…420 00 d0 82 0b 00 d1 c3 d2 0e 06 cc cc cc cc 1e 09 1e 08 1e 06 1e 07 1d 1c 1a 18 8a d3 d4 d5 c3 23   ┆                               #┆
0x420…440 85 31 00 d6 d7 d8 60 60 d9 5c 5c 5c 22 5c 22 29 89 16 0a 88 cc 89 16 0b 88 da 0e 0d 21 88 0e 0a   ┆ 1    `` \\\"\")            !   ┆
0x440…460 3f 83 7e 00 db 20 88 dc 63 88 dd 60 21 89 16 07 88 de 20 88 60 89 16 09 88 8a df 20 88 e0 d7 0e   ┆? ~     c  `!       `           ┆
0x460…480 09 c3 23 29 85 6e 00 69 e1 5c 5c e2 58 83 76 00 e3 63 82 78 00 e4 63 88 db 20 82 92 00 dd 60 21   ┆  #) n i \\ X v  c x  c       `!┆
0x480…4a0 89 16 07 88 de 20 88 e0 e5 e6 20 c3 23 88 e7 e8 21 88 0e 0e 85 d5 00 8a 60 89 16 09 88 e7 e9 21   ┆            #   !       `      !┆
0x4a0…4c0 88 e0 d7 0e 09 c3 23 3f 86 b3 00 e0 e5 0e 09 c3 23 3f 85 d4 00 ea d7 21 88 eb 0c 0e 09 c3 23 88   ┆      #?        #?     !      # ┆
0x4c0…4e0 dd 60 21 89 16 07 88 ec ed 21 3f 85 d4 00 ee ef 0e 07 5c 22 29 88 db 20 88 da 0e 0f 21 2e 08 87   ┆ `!      !?       \")       !.  ┆
0x4e0…500 22 20 5b 61 75 74 6f 2d 66 69 6c 6c 2d 68 6f 6f 6b 20 63 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65   ┆" [auto-fill-hook c-comment-inde┆
0x500…520 6e 74 69 6e 67 20 63 6f 6d 6d 65 6e 74 2d 6d 75 6c 74 69 2d 6c 69 6e 65 20 74 20 63 6f 6d 6d 65   ┆nting comment-multi-line t comme┆
0x520…540 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 2d 72 65   ┆nt-start-skip paragraph-start-re┆
0x540…560 66 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 70 61   ┆f paragraph-start fill-prefix pa┆
0x560…580 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20 6f 70 6f 69 6e 74 20 69 6e 2d 63 6f 6d 6d 65   ┆ragraph-separate opoint in-comme┆
0x580…5a0 6e 74 20 63 2d 68 61 6e 67 2d 61 6c 72 65 61 64 79 2d 64 6f 6e 65 20 6e 69 6c 20 63 2d 63 6f 6d   ┆nt c-hang-already-done nil c-com┆
0x5a0…5c0 6d 65 6e 74 2d 6d 6f 64 65 2d 6d 61 70 20 63 2d 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 69 6e 67   ┆ment-mode-map c-comment-starting┆
0x5c0…5e0 2d 62 6c 61 6e 6b 20 63 2d 6d 6f 64 65 2d 6d 61 70 20 64 6f 2d 69 6e 64 65 6e 74 65 64 2d 61 75   ┆-blank c-mode-map do-indented-au┆
0x5e0…600 74 6f 2d 66 69 6c 6c 20 64 6f 2d 61 75 74 6f 2d 66 69 6c 6c 20 22 2f 2a 5c 5c 2a 2b 5b 20 09 5d   ┆to-fill do-auto-fill "/*\\*+[  ]┆
0x600…620 2a 22 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 2f 5c 5c 2a 5c 5c 7c 5c 5c   ┆*" re-search-backward "/\\*\\|\\┆
0x620…640 2a 2f 22 20 30 20 73 74 72 69 6e 67 3d 20 22 2f 2a 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72   ┆*/" 0 string= "/*" buffer-substr┆
0x640…660 69 6e 67 20 32 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 63 2d 69 6e 64 65 6e 74 2d 6c 69 6e   ┆ing 2 use-local-map c-indent-lin┆
0x660…680 65 20 22 2f 2a 20 22 20 67 65 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 6c 20 72 65 63 75 72 73 69   ┆e "/* " get-current-fill recursi┆
0x680…6a0 76 65 2d 65 64 69 74 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 65 61 72 63 68   ┆ve-edit beginning-of-line search┆
0x6a0…6c0 2d 66 6f 72 77 61 72 64 20 33 20 37 39 20 22 20 2a 2f 22 20 22 0a 2a 2f 22 20 22 2a 2f 22 20 62   ┆-forward 3 79 " */" " */" "*/" b┆
0x6c0…6e0 75 66 66 65 72 2d 73 69 7a 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 2d 31 20 73 65 61   ┆uffer-size forward-line 1 -1 sea┆
0x6e0…700 72 63 68 2d 62 61 63 6b 77 61 72 64 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6c   ┆rch-backward re-search-forward l┆
0x700…720 6f 6f 6b 69 6e 67 2d 61 74 20 22 0a 22 20 69 6e 73 65 72 74 20 31 30 5d 20 32 36 29 29 0a 0a 28   ┆ooking-at " " insert 10] 26))  (┆
0x720…740 64 65 66 75 6e 20 73 65 74 2d 66 69 6c 6c 2d 61 6e 64 2d 66 69 6c 6c 20 28 61 72 67 29 20 22 5c   ┆defun set-fill-and-fill (arg) "\┆
0x740…760 0a 47 65 74 20 74 68 65 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 61 6e 64 20 66 69 6c 6c 20 74 68   ┆ Get the fill-prefix and fill th┆
0x760…780 65 20 63 75 72 72 65 6e 74 20 70 61 72 61 67 72 61 70 68 2e 22 20 28 69 6e 74 65 72 61 63 74 69   ┆e current paragraph." (interacti┆
0x780…7a0 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 60 21 89 10 88 c4 09 21 87   ┆ve "P") (byte-code "   `!     ! ┆
0x7a0…7c0 22 20 5b 66 69 6c 6c 2d 70 72 65 66 69 78 20 61 72 67 20 6e 69 6c 20 67 65 74 2d 63 75 72 72 65   ┆" [fill-prefix arg nil get-curre┆
0x7c0…7e0 6e 74 2d 66 69 6c 6c 20 66 69 6c 6c 2d 70 61 72 61 67 72 61 70 68 5d 20 33 29 29 0a 0a 28 64 65   ┆nt-fill fill-paragraph] 3))  (de┆
0x7e0…800 66 75 6e 20 73 65 74 2d 66 69 6c 6c 2d 61 6e 64 2d 72 65 74 75 72 6e 20 6e 69 6c 20 22 5c 0a 53   ┆fun set-fill-and-return nil "\ S┆
0x800…820 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 6c 20 70 72 65 66 69 78 20 61 6e 64 20 6d   ┆et the current fill prefix and m┆
0x820…840 6f 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74   ┆ove to the next line." (interact┆
0x840…860 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 85 0b 00 c3 60 21 89 11 88 c4 c5 09   ┆ive) (byte-code "       `!      ┆
0x860…880 5c 22 87 22 20 5b 63 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 69 6e 67 20 66 69 6c 6c 2d 70   ┆\" " [c-comment-indenting fill-p┆
0x880…8a0 72 65 66 69 78 20 6e 69 6c 20 67 65 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 6c 20 69 6e 73 65 72   ┆refix nil get-current-fill inser┆
0x8a0…8c0 74 20 31 30 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 6f 2d 69 6e 64 65 6e 74 65 64 2d 61 75   ┆t 10] 4))  (defun do-indented-au┆
0x8c0…8e0 74 6f 2d 66 69 6c 6c 20 6e 69 6c 20 22 5c 0a 50 65 72 66 6f 72 6d 20 61 75 74 6f 2d 66 69 6c 6c   ┆to-fill nil "\ Perform auto-fill┆
0x8e0…900 2c 20 62 75 74 20 67 65 74 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 66 69 72 73 74 2e 22 20 28 62   ┆, but get fill-prefix first." (b┆
0x900…920 79 74 65 2d 63 6f 64 65 20 22 60 18 8a c4 09 54 21 88 c5 c6 21 88 6e 85 15 00 c7 c8 08 c2 23 88   ┆yte-code "`    T!   ! n       # ┆
0x920…940 8a c5 c9 21 88 6e 3f 29 85 2b 00 ca 08 21 89 13 88 cb cc 0b 5c 22 29 29 87 22 20 5b 6f 70 6f 69   ┆   ! n?) +   !      \")) " [opoi┆
0x940…960 6e 74 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 20 66 69 6c 6c 2d 70 72 65 66 69 78 20 6d 6f 76   ┆nt fill-column t fill-prefix mov┆
0x960…980 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20   ┆e-to-column skip-chars-backward ┆
0x980…9a0 22 5e 20 09 0a 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 09 5d 22 20   ┆"^   " re-search-forward "[  ]" ┆
0x9a0…9c0 22 20 09 22 20 67 65 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 6c 20 69 6e 73 65 72 74 20 31 30 5d   ┆"  " get-current-fill insert 10]┆
0x9c0…9e0 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 6c 20 28 70   ┆ 8))  (defun get-current-fill (p┆
0x9e0…a00 6e 74 29 20 22 5c 0a 47 65 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 6c 20 70 72 65 66   ┆nt) "\ Get the current fill pref┆
0xa00…a20 69 78 2e 0a 41 20 76 61 6c 69 64 20 66 69 6c 6c 20 70 72 65 66 69 78 20 6d 75 73 74 20 62 65 20   ┆ix. A valid fill prefix must be ┆
0xa20…a40 62 65 74 77 65 65 6e 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e   ┆between the beginning of the lin┆
0xa40…a60 65 20 61 6e 64 20 70 6f 69 6e 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 cd cd 1b 1a 18   ┆e and point." (byte-code "      ┆
0xa60…a80 8a ce 20 88 cf 60 d0 0c 08 c5 23 88 60 5c 22 89 12 88 0a 0a 47 53 0a 47 4f 89 13 88 d1 d2 0b 5c   ┆     `    # `\"     GS GO      \┆
0xa80…aa0 22 3f 85 2e 00 d1 d3 0b 5c 22 3f 85 36 00 0a d2 50 89 12 88 d4 0a d5 d2 23 89 12 88 0e 06 85 47   ┆"? .    \"? 6   P       #      G┆
0xaa0…ac0 00 0e 07 3f 85 70 00 60 d6 20 88 60 1e 09 1e 08 ce 20 88 d7 d8 0e 09 c5 23 85 6f 00 0a d9 60 0e   ┆   ? p `   `            # o   ` ┆
0xac0…ae0 08 5a da 5c 22 50 89 12 88 c5 89 16 07 2a 88 0e 0b db dc 0a dd 0a 47 53 4f 21 de 52 89 16 0a 88   ┆ Z \"P       *        GSO! R    ┆
0xae0…b00 0e 0a 89 16 0c 29 88 0a 2b 87 22 20 5b 6f 70 6f 69 6e 74 20 70 6e 74 20 66 69 6c 6c 20 6c 61 73   ┆     )  + " [opoint pnt fill las┆
0xb00…b20 74 2d 63 68 61 72 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 74 20 63 2d 63 6f   ┆t-char comment-start-skip t c-co┆
0xb20…b40 6d 6d 65 6e 74 2d 68 61 6e 67 69 6e 67 2d 69 6e 64 65 6e 74 20 63 2d 68 61 6e 67 2d 61 6c 72 65   ┆mment-hanging-indent c-hang-alre┆
0xb40…b60 61 64 79 2d 64 6f 6e 65 20 63 75 72 72 20 6f 70 6e 74 20 70 61 72 61 67 72 61 70 68 2d 73 74 61   ┆ady-done curr opnt paragraph-sta┆
0xb60…b80 72 74 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 2d 72 65 66 20 70 61 72 61 67 72 61 70 68   ┆rt paragraph-start-ref paragraph┆
0xb80…ba0 2d 73 65 70 61 72 61 74 65 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20   ┆-separate nil beginning-of-line ┆
0xba0…bc0 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61   ┆buffer-substring re-search-forwa┆
0xbc0…be0 72 64 20 73 74 72 69 6e 67 3d 20 22 20 22 20 22 09 22 20 72 65 70 6c 61 63 65 2d 6c 65 74 74 65   ┆rd string= " " " " replace-lette┆
0xbe0…c00 72 20 22 2f 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64   ┆r "/" end-of-line search-forward┆
0xc00…c20 20 22 20 2d 20 22 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 33 32 20 22 5c 5c 7c 5e 22 20 72 65 67   ┆ " - " make-string 32 "\\|^" reg┆
0xc20…c40 65 78 70 2d 71 75 6f 74 65 20 30 20 22 24 22 5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 72 65   ┆exp-quote 0 "$"] 16))  (defun re┆
0xc40…c60 70 6c 61 63 65 2d 6c 65 74 74 65 72 20 28 73 74 72 20 6f 6c 64 2d 6c 65 74 74 65 72 20 6e 65 77   ┆place-letter (str old-letter new┆
0xc60…c80 2d 6c 65 74 74 65 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 c7 c8 0c 47 1b 1a 19 18 0a 0b   ┆-letter) (byte-code "    G      ┆
0xc80…ca0 57 85 31 00 0c 0a 0a 54 4f 89 11 88 08 c9 09 0d 5c 22 83 24 00 0e 06 82 25 00 09 50 89 10 88 0a   ┆W 1    TO       \" $    %  P    ┆
0xca0…cc0 54 89 12 88 82 09 00 88 08 2c 87 22 20 5b 6e 65 77 2d 73 74 72 20 63 20 73 70 20 73 69 7a 65 20   ┆T        , " [new-str c sp size ┆
0xcc0…ce0 73 74 72 20 6f 6c 64 2d 6c 65 74 74 65 72 20 6e 65 77 2d 6c 65 74 74 65 72 20 6e 69 6c 20 30 20   ┆str old-letter new-letter nil 0 ┆
0xce0…ced 73 74 72 69 6e 67 3d 5d 20 35 29 29 0a   ┆string=] 5)) ┆