[xyzzy:01343] Re: 文字列のロック

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

mwakaharaさん、こんにちは。

    Tue, 1 Dec 1998 23:09:29 +0900 の
   “[xyzzy:01338] Re: 文字列のロック”
    への返事です.

| ほぼイメージどおりです。私の説明不足でコメントの終わり（-->）など、やや予期
| せぬ動きをするところもありますが、これだけ動けば万々歳です。

うーん、ほんとにあんなんでいいんだろうか?(^^;
予期せぬ動きっていうのは、コメントの中にタグがあるような場
合でしょうか? そいつぁちょっと面倒ですね。

別件ですが、バグフィックスです。

(defvar-local foo-keymap nil)
(defvar-local foo-original-keymap nil)

(defun foo-mode (&optional (arg nil sv))
  (interactive "p")
  (ed::toggle-mode 'foo-mode arg sv)
  (cond (foo-mode
	 (unless foo-original-keymap
	   (setq foo-original-keymap (local-keymap)))
	 (unless foo-keymap
	   (setq foo-keymap (copy-keymap foo-original-keymap))
	   (define-key foo-keymap #\Left 'foo-backward-char)
	   (define-key foo-keymap #\Right 'foo-forward-char)
	   (define-key foo-keymap #\Up 'foo-previous-line)
	   (define-key foo-keymap #\Down 'foo-next-line))
	 (use-keymap foo-keymap)
	 (scan-buffer *foo-regexp* :reverse t :regexp t)
	 (narrow-to-region (point) (point))
	 (foo-forward-char))
	(t
	 (use-keymap foo-original-keymap)
	 (widen)
	 t)))

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