[xyzzy:03902] Re: F2 & C-indent

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

Toy さん、こんにちは。

        Fri, 21 Jan 2000 17:26:55 +0900 の
        [xyzzy:03894] Re: F2 & C-indent
        への返事です.

| # 名前が衝突するとかで，２回に１回しかダンプ後正常に動かないあやしいネタ
| # なぜだろう…。(_ _;)  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

詳しく調べてはいませんが、コンパイル時と実行時の環境の
違いが原因でしょう。詳しい説明は面倒なのでしませんが(^^;
コンパイルする場合は `::' ではなく、

  (in-package "editor")
  (define-key
     ...

とするのがお勧めです。
それともう一点、

| 		(setq ed::*grep-directory-name-hook* 'filer-get-directory)
| 		(grep-dialog)
| 		(setq ed::*grep-directory-name-hook* nil)))

は、

 		(let ((ed::*grep-directory-name-hook* 'filer-get-directory))
 		  (grep-dialog))

の方がタイプ量が少ないので楽です。

| # kill-new をぱくっただけ。たまにクリップボードにコピーされない場合あり
| # なぜだろう…。(_ _;)     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

なぜでしょう?
文字列をキルリングにコピーするならこっちの方がいいかも。

  (defun foo (string)
    (setq *clipboard-newer-than-kill-ring-p* nil
	  *kill-ring-newer-than-clipboard-p* t)
    (ed::kill-new string))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx