[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
kludge in find-file.el
From: |
Richard M. Stallman |
Subject: |
kludge in find-file.el |
Date: |
Sat, 02 Jul 2005 08:33:53 -0400 |
I noticed this because it got a warning. It seems rather a kludge.
Is there any more general feature that could be used here?
(defun ff-which-function-are-we-in ()
"Return the name of the function whose definition/declaration point is in.
Also remember that name in `ff-function-name'."
(setq ff-function-name nil)
(save-excursion
(if (re-search-backward ada-procedure-start-regexp nil t)
(setq ff-function-name (buffer-substring (match-beginning 0)
(match-end 0)))
; we didn't find a procedure start, perhaps there is a package
(if (re-search-backward ada-package-start-regexp nil t)
(setq ff-function-name (buffer-substring (match-beginning 0)
(match-end 0)))
))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- kludge in find-file.el,
Richard M. Stallman <=