Showing the changes to examples (4 of 21 files). Show all
Unified · Split
| @@ -0,0 +1,23 @@ | |||
| 1 | @x In my work (mainly TAOCP) I use \: (not \.) for the dot accent | ||
| 2 | '&`&\relax\^&"&\relax\~&=&.&u&v\cr | ||
| 3 | @y | ||
| 4 | '&`&\relax\^&"&\relax\~&=&:&u&v\cr | ||
| 5 | @z | ||
| 6 | @x | ||
| 7 | 1,1,1,1,1,0,0,1, /* \.{\\-} and \.{\\.} */ | ||
| 8 | 1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1, /* \.{\\=} */ | ||
| 9 | @y | ||
| 10 | 1,1,1,1,1,0,1,1, /* \.{\\-} */ | ||
| 11 | 1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1, /* \.{:} and \.{\\=} */ | ||
| 12 | @z | ||
| 13 | @x and I use |...xref-tag...| for cross-references | ||
| 14 | case '|': if (web>1) { | ||
| 15 | save_skipping=skipping; | ||
| 16 | goto skip_C_prime; | ||
| 17 | } | ||
| 18 | @y | ||
| 19 | case '|': if (web>1) { | ||
| 20 | save_skipping=skipping; | ||
| 21 | goto skip_C_prime; | ||
| 22 | } else discard_to('|'); | ||
| 23 | @z | ||
| @@ -26,6 +26,7 @@ along too. If any of these control sequences is followed by \.\{, everything · 25 unmodified lines | |||
| 26 | up to the next \.\} will also be retained. Thus, for example, the | 26 | up to the next \.\} will also be retained. Thus, for example, the |
| 27 | construction `\.{m\\=\{\\i\}n\\u\ us}' will be considered a single word, | 27 | construction `\.{m\\=\{\\i\}n\\u\ us}' will be considered a single word, |
| 28 | in spite of the control sequences and the space between the two u's. | 28 | in spite of the control sequences and the space between the two u's. |
| 29 | Discretionary hyphens `\.{\char`\\-}' are treated in the same way as accents. | ||
| 29 | 30 | ||
| 30 | The \.{CWEB} conventions are essentially the same as the \TEX/ conventions, | 31 | The \.{CWEB} conventions are essentially the same as the \TEX/ conventions, |
| 31 | in the \TEX/ parts of a \.{CWEB} file. The \CEE/ parts of the file | 32 | in the \TEX/ parts of a \.{CWEB} file. The \CEE/ parts of the file |
| @@ -229,7 +230,7 @@ special, otherwise~1; the conventions for letters are reversed. · 197 unmodified lines | |||
| 229 | 230 | ||
| 230 | @<Global...@>= | 231 | @<Global...@>= |
| 231 | char ptab[]={0,1,1,1,1,0, /* \.{\\"} and \.{\\'} */ | 232 | char ptab[]={0,1,1,1,1,0, /* \.{\\"} and \.{\\'} */ |
| 232 | 1,1,1,1,1,1,0,1, /* \.{\\.} */ | 233 | 1,1,1,1,1,0,0,1, /* \.{\\-} and \.{\\.} */ |
| 233 | 1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1, /* \.{\\=} */ | 234 | 1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1, /* \.{\\=} */ |
| 234 | 1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,1, /* \.{\\H}, \.{\\L}, \.{\\O} */ | 235 | 1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,1, /* \.{\\H}, \.{\\L}, \.{\\O} */ |
| 235 | 0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1, /* \.{\\\^} */ | 236 | 0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1, /* \.{\\\^} */ |
| @@ -18,6 +18,11 @@ · 17 unmodified lines | |||
| 18 | ;; and nothing else, the probable cause is that the wordtest program | 18 | ;; and nothing else, the probable cause is that the wordtest program |
| 19 | ;; could not open /usr/local/lib/dict/words or ~/.words for reading. | 19 | ;; could not open /usr/local/lib/dict/words or ~/.words for reading. |
| 20 | 20 | ||
| 21 | ;; Note (10 Feb 1998): The spell-check logic failed to catch "obso1ete" | ||
| 22 | ;; as a scanner-typo for "obsolete". The reason is that, although "obso" | ||
| 23 | ;; and "ete" are non-words, they couldn't be found in query-replace | ||
| 24 | ;; for the regexps "\bobso\b" and "\bete\b". | ||
| 25 | |||
| 21 | (provide 'kspell) | 26 | (provide 'kspell) |
| 22 | 27 | ||
| 23 | (defvar wordtest-command "wordtest" ;; maybe "/usr/local/bin/wordtest" better? | 28 | (defvar wordtest-command "wordtest" ;; maybe "/usr/local/bin/wordtest" better? |
| @@ -46,7 +46,6 @@ · 45 unmodified lines | |||
| 46 | (define-key suntool-map "jt" 'narrow-to-region) ; F10 | 46 | (define-key suntool-map "jt" 'narrow-to-region) ; F10 |
| 47 | (define-key suntool-map "j\M-t" 'narrow-to-page) ; M-F10 | 47 | (define-key suntool-map "j\M-t" 'narrow-to-page) ; M-F10 |
| 48 | (define-key suntool-map "kt" 'revert-buffer) ; F11 | 48 | (define-key suntool-map "kt" 'revert-buffer) ; F11 |
| 49 | (define-key suntool-map "k\M-T" 'quick-revert-buffer) ; Shift-M-F11 | ||
| 50 | (define-key suntool-map "k\M-t" 'quick-revert-other-buffer) ; M-F11 | 49 | (define-key suntool-map "k\M-t" 'quick-revert-other-buffer) ; M-F11 |
| 51 | (define-key suntool-map "lt" 'goto-line) ; F12 | 50 | (define-key suntool-map "lt" 'goto-line) ; F12 |
| 52 | (define-key suntool-map "l\M-t" 'goto-line) ; M-F12 | 51 | (define-key suntool-map "l\M-t" 'goto-line) ; M-F12 |