DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦42b7dabdd⟧

    Length: 2005 (0x7d5)
    Names: »spell.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/spell.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 73 70 65 6c 6c 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 43 68 65 63   ┆ (defun spell-buffer nil "\ Chec┆
0x020…040 6b 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20 65 76 65 72 79 20 77 6f 72 64 20 69 6e 20 74 68 65 20   ┆k spelling of every word in the ┆
0x040…060 62 75 66 66 65 72 2e 0a 46 6f 72 20 65 61 63 68 20 69 6e 63 6f 72 72 65 63 74 20 77 6f 72 64 2c   ┆buffer. For each incorrect word,┆
0x060…080 20 79 6f 75 20 61 72 65 20 61 73 6b 65 64 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 63 74 20 73   ┆ you are asked for the correct s┆
0x080…0a0 70 65 6c 6c 69 6e 67 0a 61 6e 64 20 74 68 65 6e 20 70 75 74 20 69 6e 74 6f 20 61 20 71 75 65 72   ┆pelling and then put into a quer┆
0x0a0…0c0 79 2d 72 65 70 6c 61 63 65 20 74 6f 20 66 69 78 20 73 6f 6d 65 20 6f 72 20 61 6c 6c 20 6f 63 63   ┆y-replace to fix some or all occ┆
0x0c0…0e0 75 72 72 65 6e 63 65 73 2e 0a 49 66 20 79 6f 75 20 64 6f 20 6e 6f 74 20 77 61 6e 74 20 74 6f 20   ┆urrences. If you do not want to ┆
0x0e0…100 63 68 61 6e 67 65 20 61 20 77 6f 72 64 2c 20 6a 75 73 74 20 67 69 76 65 20 74 68 65 20 73 61 6d   ┆change a word, just give the sam┆
0x100…120 65 20 77 6f 72 64 0a 61 73 20 69 74 73 20 5c 22 63 6f 72 72 65 63 74 5c 22 20 73 70 65 6c 6c 69   ┆e word as its \"correct\" spelli┆
0x120…140 6e 67 3b 20 74 68 65 6e 20 74 68 65 20 71 75 65 72 79 20 72 65 70 6c 61 63 65 20 69 73 20 73 6b   ┆ng; then the query replace is sk┆
0x140…160 69 70 70 65 64 2e 22 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   ┆ipped." (interactive) (byte-code┆
0x160…180 20 22 c0 88 c1 65 64 c2 23 87 22 20 5b 6e 69 6c 20 73 70 65 6c 6c 2d 72 65 67 69 6f 6e 20 22 62   ┆ "   ed # " [nil spell-region "b┆
0x180…1a0 75 66 66 65 72 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 70 65 6c 6c 2d 77 6f 72 64 20 6e   ┆uffer"] 4))  (defun spell-word n┆
0x1a0…1c0 69 6c 20 22 5c 0a 43 68 65 63 6b 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20 77 6f 72 64 20 61 74 20   ┆il "\ Check spelling of word at ┆
0x1c0…1e0 6f 72 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 49 66 20 69 74 20 69 73 20 6e 6f 74 20 63 6f   ┆or before point. If it is not co┆
0x1e0…200 72 72 65 63 74 2c 20 61 73 6b 20 75 73 65 72 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 63 74 20   ┆rrect, ask user for the correct ┆
0x200…220 73 70 65 6c 6c 69 6e 67 0a 61 6e 64 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 74 68 65 20 65   ┆spelling and query-replace the e┆
0x220…240 6e 74 69 72 65 20 62 75 66 66 65 72 20 74 6f 20 73 75 62 73 74 69 74 75 74 65 20 69 74 2e 22 20   ┆ntire buffer to substitute it." ┆
0x240…260 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 c2 88 c2 c2 19 18   ┆(interactive) (byte-code "      ┆
0x260…280 8a c3 c4 21 3f 83 14 00 c5 c6 21 82 15 00 c2 88 60 89 10 88 c5 c7 21 88 60 89 11 29 88 c8 08 09   ┆   !?     !     `     ! `  )    ┆
0x280…2a0 c9 08 09 5c 22 23 2a 87 22 20 5b 62 65 67 20 65 6e 64 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61   ┆   \"#* " [beg end nil looking-a┆
0x2a0…2c0 74 20 22 5c 5c 3c 22 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 2d 31 20 31 20 73 70 65 6c 6c 2d   ┆t "\\<" forward-word -1 1 spell-┆
0x2c0…2e0 72 65 67 69 6f 6e 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 5d 20 39 29 29 0a 0a 28 64   ┆region buffer-substring] 9))  (d┆
0x2e0…300 65 66 75 6e 20 73 70 65 6c 6c 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70   ┆efun spell-region (start end &op┆
0x300…320 74 69 6f 6e 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 29 20 22 5c 0a 4c 69 6b 65 20 73 70 65 6c   ┆tional description) "\ Like spel┆
0x320…340 6c 2d 62 75 66 66 65 72 20 62 75 74 20 61 70 70 6c 69 65 73 20 6f 6e 6c 79 20 74 6f 20 72 65 67   ┆l-buffer but applies only to reg┆
0x340…360 69 6f 6e 2e 0a 46 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 61 70 70 6c 69 65 73 20 66 72 6f 6d 20   ┆ion. From program, applies from ┆
0x360…380 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29   ┆START to END." (interactive "r")┆
0x380…3a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 cb cc 21 18 8a 08 71 88 cd 20 88 ce 20 29 88 cf d0   ┆ (byte-code "    !   q      )   ┆
0x3a0…3c0 09 86 18 00 d1 5c 22 88 d2 0a 53 66 55 83 2c 00 d3 0b 0a d4 c4 08 25 82 44 00 70 1d 8a 08 71 88   ┆     \"   SfU ,       % D p   q ┆
0x3c0…3e0 d5 0d 0b 0a 23 88 d2 63 88 d3 65 64 d4 c6 08 25 29 29 88 cf d6 09 86 4c 00 d1 8a 08 71 88 d7 20   ┆    #  c  ed   %))     L    q   ┆
0x3e0…400 d8 56 29 83 5c 5c 00 d9 82 5d 00 da 23 88 c4 c4 c6 c6 1e 0a 1e 09 1e 08 1e 07 8a 08 71 88 d7 20   ┆ V) \\   ]  #               q   ┆
0x400…420 d8 56 29 85 ca 00 8a 08 71 88 65 62 88 db 60 dc 20 88 60 5c 22 89 16 07 88 dd de 21 88 df 65 60   ┆ V)     q eb  `   `\"      !  e`┆
0x420…440 5c 22 88 e0 e1 0e 07 e2 51 0e 07 5c 22 89 16 08 88 e3 e4 e5 0e 07 21 e6 51 21 29 88 e7 0e 07 0e   ┆\"      Q  \"         ! Q!)     ┆
0x440…460 08 5c 22 3f 83 c5 00 65 62 88 e8 e9 e5 0e 07 21 e9 51 0e 08 5c 22 82 c6 00 c4 88 82 6b 00 2c 29   ┆ \"?   eb      ! Q  \"      k ,)┆
0x460…480 87 22 20 5b 62 75 66 20 64 65 73 63 72 69 70 74 69 6f 6e 20 65 6e 64 20 73 74 61 72 74 20 6e 69   ┆ " [buf description end start ni┆
0x480…4a0 6c 20 6f 6c 64 62 75 66 20 74 20 77 6f 72 64 20 6e 65 77 77 6f 72 64 20 63 61 73 65 2d 66 6f 6c   ┆l oldbuf t word newword case-fol┆
0x4a0…4c0 64 2d 73 65 61 72 63 68 20 63 61 73 65 2d 72 65 70 6c 61 63 65 20 67 65 74 2d 62 75 66 66 65 72   ┆d-search case-replace get-buffer┆
0x4c0…4e0 2d 63 72 65 61 74 65 20 22 20 2a 74 65 6d 70 2a 22 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75   ┆-create " *temp*" widen erase-bu┆
0x4e0…500 66 66 65 72 20 6d 65 73 73 61 67 65 20 22 43 68 65 63 6b 69 6e 67 20 73 70 65 6c 6c 69 6e 67 20   ┆ffer message "Checking spelling ┆
0x500…520 6f 66 20 25 73 2e 2e 2e 22 20 22 72 65 67 69 6f 6e 22 20 31 30 20 63 61 6c 6c 2d 70 72 6f 63 65   ┆of %s..." "region" 10 call-proce┆
0x520…540 73 73 2d 72 65 67 69 6f 6e 20 22 73 70 65 6c 6c 22 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d   ┆ss-region "spell" insert-buffer-┆
0x540…560 73 75 62 73 74 72 69 6e 67 20 22 43 68 65 63 6b 69 6e 67 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20   ┆substring "Checking spelling of ┆
0x560…580 25 73 2e 2e 2e 25 73 22 20 62 75 66 66 65 72 2d 73 69 7a 65 20 30 20 22 6e 6f 74 20 63 6f 72 72   ┆%s...%s" buffer-size 0 "not corr┆
0x580…5a0 65 63 74 22 20 22 63 6f 72 72 65 63 74 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20   ┆ect" "correct" buffer-substring ┆
0x5a0…5c0 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 64 65 6c 65 74   ┆end-of-line forward-char 1 delet┆
0x5c0…5e0 65 2d 72 65 67 69 6f 6e 20 72 65 61 64 2d 69 6e 70 75 74 20 22 52 65 70 6c 61 63 65 6d 65 6e 74   ┆e-region read-input "Replacement┆
0x5e0…600 20 66 6f 72 20 22 20 22 3a 20 22 20 66 6c 75 73 68 2d 6c 69 6e 65 73 20 22 5e 22 20 72 65 67 65   ┆ for " ": " flush-lines "^" rege┆
0x600…620 78 70 2d 71 75 6f 74 65 20 22 24 22 20 65 71 75 61 6c 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65   ┆xp-quote "$" equal query-replace┆
0x620…640 2d 72 65 67 65 78 70 20 22 5c 5c 62 22 5d 20 32 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 70 65 6c   ┆-regexp "\\b"] 24))  (defun spel┆
0x640…660 6c 2d 73 74 72 69 6e 67 20 28 73 74 72 69 6e 67 29 20 22 5c 0a 43 68 65 63 6b 20 73 70 65 6c 6c   ┆l-string (string) "\ Check spell┆
0x660…680 69 6e 67 20 6f 66 20 73 74 72 69 6e 67 20 73 75 70 70 6c 69 65 64 20 61 73 20 61 72 67 75 6d 65   ┆ing of string supplied as argume┆
0x680…6a0 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 53 70 65 6c 6c 20 73 74 72 69 6e 67   ┆nt." (interactive "sSpell string┆
0x6a0…6c0 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 21 18 8a 08 71 88 c6 20 88 c7 20   ┆: ") (byte-code "    !   q      ┆
0x6c0…6e0 88 c8 09 c9 5c 22 88 ca 65 64 cb c2 c2 25 88 cc cd 20 55 83 2b 00 ce cf 09 5c 22 82 45 00 65 62   ┆    \"  ed   %    U +    \" E eb┆
0x6e0…700 88 d0 c9 c3 c2 23 85 3d 00 d1 d2 21 88 82 2e 00 88 ce d3 d4 d5 64 5c 22 5c 22 29 29 87 22 20 5b   ┆     # =   !  .      d\"\")) " [┆
0x700…720 62 75 66 20 73 74 72 69 6e 67 20 74 20 6e 69 6c 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61   ┆buf string t nil get-buffer-crea┆
0x720…740 74 65 20 22 20 2a 74 65 6d 70 2a 22 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20   ┆te " *temp*" widen erase-buffer ┆
0x740…760 69 6e 73 65 72 74 20 22 0a 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 67 69 6f 6e 20 22   ┆insert " " call-process-region "┆
0x760…780 73 70 65 6c 6c 22 20 30 20 62 75 66 66 65 72 2d 73 69 7a 65 20 6d 65 73 73 61 67 65 20 22 25 73   ┆spell" 0 buffer-size message "%s┆
0x780…7a0 20 69 73 20 63 6f 72 72 65 63 74 22 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 70 6c   ┆ is correct" search-forward repl┆
0x7a0…7c0 61 63 65 2d 6d 61 74 63 68 20 22 20 22 20 22 25 73 69 6e 63 6f 72 72 65 63 74 22 20 62 75 66 66   ┆ace-match " " "%sincorrect" buff┆
0x7c0…7d5 65 72 2d 73 75 62 73 74 72 69 6e 67 20 31 5d 20 31 34 29 29 0a   ┆er-substring 1] 14)) ┆