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

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

吉田さん、こんにちは。

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

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

やっぱ、ちゃう。

(defvar *original-grep-def* #'grep)
(defun grep (regexp &optional arg)
  (interactive "sgrep: \np" :default0 *last-grep-regexp* :history0 'search)
  (unwind-protect
      (funcall *original-grep-def* regexp arg)
    (when (equal (buffer-name (selected-buffer)) "*compilation*")
      (setq buffer-read-only t))))

grep-dialog は[xyzzy:04434]の通りこれで。

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

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