946 |
(defun ff-which-function-are-we-in () |
(defun ff-which-function-are-we-in () |
947 |
"Return the name of the function whose definition/declaration point is in. |
"Return the name of the function whose definition/declaration point is in. |
948 |
Also remember that name in `ff-function-name'." |
Also remember that name in `ff-function-name'." |
949 |
|
(setq ff-function-name |
950 |
(setq ff-function-name nil) |
(save-excursion |
951 |
|
(if (or (re-search-backward ada-procedure-start-regexp nil t) |
952 |
(save-excursion |
(re-search-backward ada-package-start-regexp nil t)) |
953 |
(if (re-search-backward ada-procedure-start-regexp nil t) |
(match-string 0))))) |
|
(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))) |
|
|
)))) |
|
954 |
|
|
955 |
;; bind with (setq ff-post-load-hook 'ff-set-point-accordingly) |
;; bind with (setq ff-post-load-hook 'ff-set-point-accordingly) |
956 |
;; |
;; |
964 |
|
|
965 |
(provide 'find-file) |
(provide 'find-file) |
966 |
|
|
967 |
;;; arch-tag: 5a2fc49e-3b0a-4708-9acf-fb14e471a97a |
;; arch-tag: 5a2fc49e-3b0a-4708-9acf-fb14e471a97a |
968 |
;;; find-file.el ends here |
;;; find-file.el ends here |