[xyzzy:04434] Re: 書き込み禁止、解除

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

吉田さん、こんにちは。

	2000年4月17日(月)[19:50:02]の、
	[xyzzy:04433] Re: 書き込み禁止、解除
	への返事です。

| # もう片方(grepのぶん)も引き続きよろしくお願いします。

(defvar *original-grep-def* #'grep)
(defun grep ()
  (interactive)
  (unwind-protect
      (call-interactively *original-grep-def*)
    (when (equal (buffer-name (selected-buffer)) "*compilation*")
      (setq buffer-read-only t))))

grep-dialog の場合は、

  grep -> grep-dialog
  *compilation* -> *grep*

と置換してください。


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