diff options
| author | Andreas Schwab | 1999-03-05 09:37:00 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1999-03-05 09:37:00 +0000 |
| commit | 10cf099d6266875d24e233e5226cc7865bbe11b8 (patch) | |
| tree | 792df8efe205aef4a6d1561007779f7415b3e1d5 | |
| parent | 3cd37c4cacffb691744d8f398d4b5d65cf46d3fb (diff) | |
| download | emacs-10cf099d6266875d24e233e5226cc7865bbe11b8.tar.gz emacs-10cf099d6266875d24e233e5226cc7865bbe11b8.zip | |
Provide skkdic-cnv.
(skkdic-convert): Emit code to require skkdic-cnv at compile time.
(batch-skkdic-convert): Doc fix.
| -rw-r--r-- | lisp/international/skkdic-cnv.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/international/skkdic-cnv.el b/lisp/international/skkdic-cnv.el index 06f8421478b..186cc8bfb48 100644 --- a/lisp/international/skkdic-cnv.el +++ b/lisp/international/skkdic-cnv.el | |||
| @@ -372,7 +372,7 @@ the generated \"skkdic.el\" is saved." | |||
| 372 | (set-buffer buf) | 372 | (set-buffer buf) |
| 373 | (insert-buffer-substring skkbuf 1 pos)) | 373 | (insert-buffer-substring skkbuf 1 pos)) |
| 374 | (insert "\n" | 374 | (insert "\n" |
| 375 | ";;; Code:\n\n") | 375 | ";;; Code:\n\n(eval-when-compile (require 'skkdic-cnv))\n\n") |
| 376 | 376 | ||
| 377 | ;; Generate the body part of working buffer. | 377 | ;; Generate the body part of working buffer. |
| 378 | (set-buffer skkbuf) | 378 | (set-buffer skkbuf) |
| @@ -425,10 +425,10 @@ the generated \"skkdic.el\" is saved." | |||
| 425 | Use this from the command line, with `-batch'; | 425 | Use this from the command line, with `-batch'; |
| 426 | it won't work in an interactive Emacs. | 426 | it won't work in an interactive Emacs. |
| 427 | For example, invoke: | 427 | For example, invoke: |
| 428 | % emacs -batch -l skkconv -f batch-skkdic-convert SKK-JISYO.L | 428 | % emacs -batch -l skkdic-cnv -f batch-skkdic-convert SKK-JISYO.L |
| 429 | to generate \"skkdic.el\" from SKK dictionary file \"SKK-JISYO.L\". | 429 | to generate \"skkdic.el\" from SKK dictionary file \"SKK-JISYO.L\". |
| 430 | To get complete usage, invoke: | 430 | To get complete usage, invoke: |
| 431 | % emacs -batch -l skkconv -f batch-skkdic-convert -h" | 431 | % emacs -batch -l skkdic-cnv -f batch-skkdic-convert -h" |
| 432 | (defvar command-line-args-left) ; Avoid compiler warning. | 432 | (defvar command-line-args-left) ; Avoid compiler warning. |
| 433 | (if (not noninteractive) | 433 | (if (not noninteractive) |
| 434 | (error "`batch-skkdic-convert' should be used only with -batch")) | 434 | (error "`batch-skkdic-convert' should be used only with -batch")) |
| @@ -449,8 +449,7 @@ To get complete usage, invoke: | |||
| 449 | (message "It takes around 10 minutes even on Sun SS20.") | 449 | (message "It takes around 10 minutes even on Sun SS20.") |
| 450 | (skkdic-convert filename targetdir) | 450 | (skkdic-convert filename targetdir) |
| 451 | (message "Do byte-compile the created file by:") | 451 | (message "Do byte-compile the created file by:") |
| 452 | (message " %% emacs -batch -l skkdic-cnv -f batch-byte-compile skkdic.el") | 452 | (message " %% emacs -batch -f batch-byte-compile skkdic.el") |
| 453 | (message " ^^^^^^^^^^^^^ -- Don't forget this option!") | ||
| 454 | )) | 453 | )) |
| 455 | (kill-emacs 0)) | 454 | (kill-emacs 0)) |
| 456 | 455 | ||
| @@ -556,4 +555,6 @@ To get complete usage, invoke: | |||
| 556 | (setq l (cdr l))) | 555 | (setq l (cdr l))) |
| 557 | map))) | 556 | map))) |
| 558 | 557 | ||
| 558 | (provide 'skkdic-cnv) | ||
| 559 | |||
| 559 | ;; skkdic-cnv.el ends here | 560 | ;; skkdic-cnv.el ends here |