[xyzzy:04092] Re: which-function mode

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

冨永さん、こんにちは。

    Thu, 3 Feb 2000 17:24:13 +0900 の
   “[xyzzy:04090] Re: which-function mode”
    への返事です.

| これをサポートするとなると大変でしょうか？

make-tags-file ではやっているので不可能ではないですけ
どね。速度的にどうなるか…。
これは手ぇ抜きすぎでしょうか?

(defun which-function-find-defun ()
  (save-excursion
    (let ((point (and (scan-buffer "^[A-Za-z].*(" :reverse t :regexp t)
		      (point))))
      (unless (eql which-function-mode-last-point point)
	(setq which-function-mode-last-point point)
	(setq which-function-mode-name
	      (and point (buffer-substring point (progn (goto-eol) (point)))))
	(update-mode-line)))))

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