[xyzzy:04352] Re: タグジャンプ

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

冨永さん、こんにちは。

	2000年3月24日(金)[15:19:36]の、
	[xyzzy:04351] タグジャンプ
	への返事です。

| ご検討下さい。

んでは、検討のためのネタ。


(defun ed::make-select-tags-entries (list)
  (mapcar #'(lambda (x)
	      (let (class sep name arg file)
		(goto-char x)
		(goto-bol)
		(unless (looking-at "[]")
		  (setq class (buffer-substring (point) (progn (skip-chars-forward "^") (point)))
			sep "::"))
		(setq name (buffer-substring (1+ (point)) (progn (skip-chars-forward "^") (point)))
		      file (progn
			     (forward-char 1)
			     (buffer-substring (point) (progn (skip-chars-forward "^") (point)))))
		(and (skip-chars-forward "^
\n")
		     (looking-for "
")
		     (setq arg (buffer-substring (1+ (point)) (progn (goto-eol) (point)))))
		(concat class sep name " " arg " - " file)))
	  list))

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