DataMuseum.dk

top - metrics - download

    Length: 2616 (0xa38)
    Names: »spell.elc«

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

Hex Dump

0x000…020 0a 28 64 65 66 76 61 72 20 73 70 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 22 73 70 65 6c 6c 22 20 22   ┆ (defvar spell-command "spell" "┆
0x020…040 5c 0a 2a 43 6f 6d 6d 61 6e 64 20 74 6f 20 72 75 6e 20 74 68 65 20 73 70 65 6c 6c 20 70 72 6f 67   ┆\ *Command to run the spell prog┆
0x040…060 72 61 6d 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 70 65 6c 6c 2d 66 69 6c 74 65 72 20 6e 69 6c   ┆ram.")  (defvar spell-filter nil┆
0x060…080 20 22 5c 0a 2a 46 69 6c 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 70 72 6f 63 65 73 73 20   ┆ "\ *Filter function to process ┆
0x080…0a0 74 65 78 74 20 62 65 66 6f 72 65 20 70 61 73 73 69 6e 67 20 69 74 20 74 6f 20 73 70 65 6c 6c 20   ┆text before passing it to spell ┆
0x0a0…0c0 70 72 6f 67 72 61 6d 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 69 67 68 74 20 72 65 6d   ┆program. This function might rem┆
0x0c0…0e0 6f 76 65 20 74 65 78 74 2d 70 72 6f 63 65 73 73 6f 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 6e 69 6c   ┆ove text-processor commands. nil┆
0x0e0…100 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20 61 6c 74 65 72 20 74 68 65 20 74 65 78 74 20 62 65 66 6f   ┆ means don't alter the text befo┆
0x100…120 72 65 20 63 68 65 63 6b 69 6e 67 20 69 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 70 65 6c 6c 2d   ┆re checking it.")  (defun spell-┆
0x120…140 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 43 68 65 63 6b 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20   ┆buffer nil "\ Check spelling of ┆
0x140…160 65 76 65 72 79 20 77 6f 72 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 46 6f 72 20 65 61   ┆every word in the buffer. For ea┆
0x160…180 63 68 20 69 6e 63 6f 72 72 65 63 74 20 77 6f 72 64 2c 20 79 6f 75 20 61 72 65 20 61 73 6b 65 64   ┆ch incorrect word, you are asked┆
0x180…1a0 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 63 74 20 73 70 65 6c 6c 69 6e 67 0a 61 6e 64 20 74 68   ┆ for the correct spelling and th┆
0x1a0…1c0 65 6e 20 70 75 74 20 69 6e 74 6f 20 61 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 74 6f 20 66   ┆en put into a query-replace to f┆
0x1c0…1e0 69 78 20 73 6f 6d 65 20 6f 72 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73 2e 0a 49 66 20 79   ┆ix some or all occurrences. If y┆
0x1e0…200 6f 75 20 64 6f 20 6e 6f 74 20 77 61 6e 74 20 74 6f 20 63 68 61 6e 67 65 20 61 20 77 6f 72 64 2c   ┆ou do not want to change a word,┆
0x200…220 20 6a 75 73 74 20 67 69 76 65 20 74 68 65 20 73 61 6d 65 20 77 6f 72 64 0a 61 73 20 69 74 73 20   ┆ just give the same word as its ┆
0x220…240 5c 22 63 6f 72 72 65 63 74 5c 22 20 73 70 65 6c 6c 69 6e 67 3b 20 74 68 65 6e 20 74 68 65 20 71   ┆\"correct\" spelling; then the q┆
0x240…260 75 65 72 79 20 72 65 70 6c 61 63 65 20 69 73 20 73 6b 69 70 70 65 64 2e 22 20 28 69 6e 74 65 72   ┆uery replace is skipped." (inter┆
0x260…280 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 65 64 c2 23 87 22 20 5b 6e   ┆active) (byte-code "   ed # " [n┆
0x280…2a0 69 6c 20 73 70 65 6c 6c 2d 72 65 67 69 6f 6e 20 22 62 75 66 66 65 72 22 5d 20 34 29 29 0a 0a 28   ┆il spell-region "buffer"] 4))  (┆
0x2a0…2c0 64 65 66 75 6e 20 73 70 65 6c 6c 2d 77 6f 72 64 20 6e 69 6c 20 22 5c 0a 43 68 65 63 6b 20 73 70   ┆defun spell-word nil "\ Check sp┆
0x2c0…2e0 65 6c 6c 69 6e 67 20 6f 66 20 77 6f 72 64 20 61 74 20 6f 72 20 62 65 66 6f 72 65 20 70 6f 69 6e   ┆elling of word at or before poin┆
0x2e0…300 74 2e 0a 49 66 20 69 74 20 69 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 2c 20 61 73 6b 20 75 73 65   ┆t. If it is not correct, ask use┆
0x300…320 72 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 63 74 20 73 70 65 6c 6c 69 6e 67 0a 61 6e 64 20 71   ┆r for the correct spelling and q┆
0x320…340 75 65 72 79 2d 72 65 70 6c 61 63 65 20 74 68 65 20 65 6e 74 69 72 65 20 62 75 66 66 65 72 20 74   ┆uery-replace the entire buffer t┆
0x340…360 6f 20 73 75 62 73 74 69 74 75 74 65 20 69 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20   ┆o substitute it." (interactive) ┆
0x360…380 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c3 c3 c3 1a 19 18 8a c4 c5 21 3f 85 13 00 c6 c7 21 88   ┆(byte-code "           !?     ! ┆
0x380…3a0 60 89 10 88 c6 c8 21 88 60 89 11 29 88 c9 08 09 ca 08 09 5c 22 23 2b 87 22 20 5b 62 65 67 20 65   ┆`     ! `  )       \"#+ " [beg e┆
0x3a0…3c0 6e 64 20 73 70 65 6c 6c 2d 66 69 6c 74 65 72 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22   ┆nd spell-filter nil looking-at "┆
0x3c0…3e0 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 72 65 67   ┆\\<" forward-word -1 1 spell-reg┆
0x3e0…400 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 65 66 75   ┆ion buffer-substring] 9))  (defu┆
0x400…420 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 74 69 6f   ┆n spell-region (start end &optio┆
0x420…440 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 6c 2d 62   ┆nal description) "\ Like spell-b┆
0x440…460 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 69 6f 6e   ┆uffer but applies only to region┆
0x460…480 2e 0a 55 73 65 64 20 69 6e 20 61 20 70 72 6f 67 72 61 6d 2c 20 61 70 70 6c 69 65 73 20 66 72 6f   ┆. Used in a program, applies fro┆
0x480…4a0 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 0a 44 45 53 43 52 49 50 54 49 4f 4e 20 69 73 20 61   ┆m START to END. DESCRIPTION is a┆
0x4a0…4c0 6e 20 6f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 20 6e 61 6d 69 6e 67 20 74 68 65 20 75 6e 69   ┆n optional string naming the uni┆
0x4c0…4e0 74 20 62 65 69 6e 67 20 63 68 65 63 6b 65 64 3a 0a 66 6f 72 20 65 78 61 6d 70 6c 65 2c 20 5c 22   ┆t being checked: for example, \"┆
0x4e0…500 77 6f 72 64 5c 22 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65   ┆word\"." (interactive "r") (byte┆
0x500…520 2d 63 6f 64 65 20 22 c7 88 09 cf d0 21 1a 18 8a 0a 71 88 d1 20 88 d2 20 29 88 d3 d4 0b 86 1a 00   ┆-code "     !    q      )       ┆
0x520…540 d5 5c 22 88 08 3f 85 26 00 d6 0c 53 66 55 83 4b 00 d7 d8 0d 5c 22 83 3b 00 d9 0e 06 0c d8 c7 0a   ┆ \"  ? &   SfU K    \" ;        ┆
0x540…560 25 82 48 00 d9 0e 06 0c 0e 08 c7 0a c7 da 0d 26 08 82 88 00 70 1e 09 8a 0a 71 88 db 0e 09 0e 06   ┆% H            &    p    q      ┆
0x560…580 0c 23 88 6e 86 60 00 d6 63 88 08 85 68 00 dc 08 21 88 d7 d8 0d 5c 22 83 7a 00 d9 65 64 d8 ca 0a   ┆ # n `  c   h   !    \" z  ed   ┆
0x580…5a0 25 82 86 00 d9 65 64 0e 08 ca 0a c7 da 0d 26 08 29 29 88 d3 dd 0b 86 90 00 d5 8a 0a 71 88 de 20   ┆%    ed       & ))          q   ┆
0x5a0…5c0 df 56 29 83 a0 00 e0 82 a1 00 e1 23 88 c7 c7 ca ca 1e 0e 1e 0d 1e 0c 1e 0b 8a 0a 71 88 de 20 df   ┆ V)        #               q    ┆
0x5c0…5e0 56 29 85 0c 01 8a 0a 71 88 65 62 88 e2 e3 60 e4 20 88 60 5c 22 21 89 16 0b 88 e5 e6 21 88 e7 65   ┆V)     q eb   `   `\"!      !  e┆
0x5e0…600 60 5c 22 88 e8 e9 0e 0b ea 51 0e 0b 5c 22 89 16 0c 88 eb ec ed 0e 0b 21 ee 51 21 29 88 ef 0e 0b   ┆`\"      Q  \"         ! Q!)    ┆
0x600…620 0e 0c 5c 22 3f 85 08 01 65 62 88 f0 f1 ed 0e 0b 21 f1 51 0e 0c 5c 22 88 82 af 00 2c 2a 87 22 20   ┆  \"?   eb      ! Q  \"    ,* " ┆
0x620…640 5b 66 69 6c 74 65 72 20 73 70 65 6c 6c 2d 66 69 6c 74 65 72 20 62 75 66 20 64 65 73 63 72 69 70   ┆[filter spell-filter buf descrip┆
0x640…660 74 69 6f 6e 20 65 6e 64 20 73 70 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 73 74 61 72 74 20 6e 69 6c   ┆tion end spell-command start nil┆
0x660…680 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 6f 6c 64 62 75 66 20 74 20 77 6f 72 64 20 6e   ┆ shell-file-name oldbuf t word n┆
0x680…6a0 65 77 77 6f 72 64 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 63 61 73 65 2d 72 65 70   ┆ewword case-fold-search case-rep┆
0x6a0…6c0 6c 61 63 65 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 2a 74 65 6d 70 2a 22   ┆lace get-buffer-create " *temp*"┆
0x6c0…6e0 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 22 43 68 65   ┆ widen erase-buffer message "Che┆
0x6e0…700 63 6b 69 6e 67 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20 25 73 2e 2e 2e 22 20 22 72 65 67 69 6f 6e   ┆cking spelling of %s..." "region┆
0x700…720 22 20 31 30 20 73 74 72 69 6e 67 3d 20 22 73 70 65 6c 6c 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73   ┆" 10 string= "spell" call-proces┆
0x720…740 73 2d 72 65 67 69 6f 6e 20 22 2d 63 22 20 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73   ┆s-region "-c" insert-buffer-subs┆
0x740…760 74 72 69 6e 67 20 66 75 6e 63 61 6c 6c 20 22 43 68 65 63 6b 69 6e 67 20 73 70 65 6c 6c 69 6e 67   ┆tring funcall "Checking spelling┆
0x760…780 20 6f 66 20 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   ┆ of %s...%s" buffer-size 0 "not ┆
0x780…7a0 63 6f 72 72 65 63 74 22 20 22 63 6f 72 72 65 63 74 22 20 64 6f 77 6e 63 61 73 65 20 62 75 66 66   ┆correct" "correct" downcase buff┆
0x7a0…7c0 65 72 2d 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64   ┆er-substring end-of-line forward┆
0x7c0…7e0 2d 63 68 61 72 20 31 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 72 65 61 64 2d 69 6e 70 75 74   ┆-char 1 delete-region read-input┆
0x7e0…800 20 22 60 22 20 22 27 20 6e 6f 74 20 72 65 63 6f 67 6e 69 7a 65 64 3b 20 65 64 69 74 20 61 20 72   ┆ "`" "' not recognized; edit a r┆
0x800…820 65 70 6c 61 63 65 6d 65 6e 74 3a 20 22 20 66 6c 75 73 68 2d 6c 69 6e 65 73 20 22 5e 22 20 72 65   ┆eplacement: " flush-lines "^" re┆
0x820…840 67 65 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   ┆gexp-quote "$" equal query-repla┆
0x840…860 63 65 2d 72 65 67 65 78 70 20 22 5c 5c 62 22 5d 20 33 30 29 29 0a 0a 28 64 65 66 75 6e 20 73 70   ┆ce-regexp "\\b"] 30))  (defun sp┆
0x860…880 65 6c 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   ┆ell-string (string) "\ Check spe┆
0x880…8a0 6c 6c 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   ┆lling of string supplied as argu┆
0x8a0…8c0 6d 65 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   ┆ment." (interactive "sSpell stri┆
0x8c0…8e0 6e 67 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c6 c7 21 18 8a 08 71 88 c8 20 88   ┆ng: ") (byte-code "    !   q    ┆
0x8e0…900 c9 20 88 ca 09 cb 5c 22 88 cc cd 0a 5c 22 83 26 00 ce 65 64 cd c3 c3 25 82 31 00 ce 65 64 0c c3   ┆      \"    \" &  ed   % 1  ed  ┆
0x900…920 c3 c5 cf 0a 26 08 88 d0 d1 20 55 83 40 00 d2 d3 09 5c 22 82 5a 00 65 62 88 d4 cb c5 c3 23 85 52   ┆    &     U @    \" Z eb     # R┆
0x920…940 00 d5 d6 21 88 82 43 00 88 d2 d7 d8 d9 64 5c 22 5c 22 29 29 87 22 20 5b 62 75 66 20 73 74 72 69   ┆   !  C      d\"\")) " [buf stri┆
0x940…960 6e 67 20 73 70 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 74 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61   ┆ng spell-command t shell-file-na┆
0x960…980 6d 65 20 6e 69 6c 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 2a 74 65 6d 70   ┆me nil get-buffer-create " *temp┆
0x980…9a0 2a 22 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 20 22 0a 22   ┆*" widen erase-buffer insert " "┆
0x9a0…9c0 20 73 74 72 69 6e 67 3d 20 22 73 70 65 6c 6c 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65   ┆ string= "spell" call-process-re┆
0x9c0…9e0 67 69 6f 6e 20 22 2d 63 22 20 30 20 62 75 66 66 65 72 2d 73 69 7a 65 20 6d 65 73 73 61 67 65 20   ┆gion "-c" 0 buffer-size message ┆
0x9e0…a00 22 25 73 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   ┆"%s is correct" search-forward r┆
0xa00…a20 65 70 6c 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   ┆eplace-match " " "%sincorrect" b┆
0xa20…a38 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 31 5d 20 31 36 29 29 0a   ┆uffer-substring 1] 16)) ┆