944 |
|
|
945 |
;; bind with (setq ff-pre-load-hook 'ff-which-function-are-we-in) |
;; bind with (setq ff-pre-load-hook 'ff-which-function-are-we-in) |
946 |
;; |
;; |
947 |
|
(defvar ada-procedure-start-regexp) |
948 |
|
(defvar ada-package-start-regexp) |
949 |
|
|
950 |
(defun ff-which-function-are-we-in () |
(defun ff-which-function-are-we-in () |
951 |
"Return the name of the function whose definition/declaration point is in. |
"Return the name of the function whose definition/declaration point is in. |
952 |
Also remember that name in `ff-function-name'." |
Also remember that name in `ff-function-name'." |