А есть ли такая хрень для емакса...

ecb называется, там такое есть.

Хм. поставил. Только он показывает прототипы функций в текущем файле. Не пойму как сделать, чтоб теги подхватывал и показывал прототип функции где стоит курсор...

Вобщем сам написал... Мож кому пригодится...


(defun find-tag-tag (string)
  (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
				     tags-case-fold-search
				   case-fold-search))
	 (default (funcall (or find-tag-default-function
			       (get major-mode 'find-tag-default-function)
			       'find-tag-default)))
	 (spec (completing-read (if default
				    (format "%s (default %s): "
					    (substring string 0 (string-match "[ :]+\\'" string))
					    default)
				  string)
				'tags-complete-tag
				nil nil nil nil default)))
    (if (equal spec "")
	(or default (error "There is no default tag"))
      spec)))

(defun find-tag-interactive (prompt &optional no-default)
  (if (and current-prefix-arg last-tag)
      (list nil (if (< (prefix-numeric-value current-prefix-arg) 0)
		    '-
		  t))
    (list (if no-default
	      (read-string prompt)
	    (find-tag-tag prompt)))))


(defun my-find-tag(tag)
  "My find tag in another frame"
  (interactive (find-tag-interactive "Find tag:"))
  (setq my-selw (selected-window))
  (find-tag-other-window tag)
  (setq my-selw-height (window-height))
  (setq my-selw-newheight (- my-selw-height 5))
  (shrink-window my-selw-newheight)
  (select-window my-selw)
)

(global-unset-key [?\M-.])
(global-set-key [?\M-.] 'my-find-tag)