- このプログラムは Emacs Lisp で書かれていて， 単語の繰り返しや句の繰り返しを発見するためのものです．
私が文書を書いている時によく行う間違いは，カットアンドペーストな どで同じ言葉を繰り返してしまうことです．このような間違いは単語自体 は正しいのでスペルチェッカではみつけにくいことと， 繰り返しがあるからといって間違いということもない こともこの間違いをみつけにくくしています．同僚の Alexander が以 前からこの間違いをみつけるプログラムがあっていいはずと言っており， 今回書いてみました．
実は Emacs 付属の文書 -- Emacs Lisp Intro -- にこの問題が述べら れており，その regexp による解答が示されています．その文書でこの問 題が the-the 問題と呼ばれているので，ここでもそれにならいました．
Emacs の解答は簡潔で良いものです．プログラム全体，コメントと文書 まで含めて11行しかありません．ただ，著者がこれは十分だが完全ではな いと説明しています．私は十分だなと思っていたのですが，使いはじめて 次の2つの問題があることに気がつきました．
- Case の違うだけのものをみつけられない．
- You you have this case, the program in emacs lisp intro can not find this.
- 句の繰り返しはみつけられない．
- At least at least you need ... would not be found.
私の the-the プログラムは，Emacs の文書の拡張で，上記の二つの問 題にも解答を与えるものです．
- Easiest one
- Append the the-the.el in your .emacs file, then restart your emacs.
- Nicer one
- Put the 'the-the.el' file in your load-path.
- Add the following lines in your .emacs.
;; find the-the pattern (autoload 'the-the-search-forward "the-the" nil t) (autoload 'the-the-region "the-the" nil t) (autoload 'the-the-buffer "the-the" nil t)
- Find word duplication in your buffer
- M-x the-the-buffer
- Find word duplication in selected region.
- (select a region)
- M-x the-the-region
- Find phrase duplication (two words, at least at least
pattern) in your buffer
- C-u 2 M-x the-the-buffer
