[xyzzy:05650] Re: 要望 tags の複数の候補ダイアログ

[TOMINAGA Satoshi <tominaga@xxxxxxxxxxxx>]

冨永です。

前に同じような話をしまして、亀井さんにこんなのを
組んでいただきました。mlの4352あたり。

(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))

==========================================
 TOMINAGA Satoshi
    email:tominaga@xxxxxxxxxxxx
==========================================