# HG changeset patch # User Richard M. Stallman # Date 1123555980 0 # Node ID 0238278946874ffdf3baa4bab1b0d103eeb16f82 # Parent 153c52bc9ad427e6cd3ca8aacd8ff8b6f7e02bdd (ada-procedure-start-regexp, ada-package-start-regexp): Add defvars. diff -r 153c52bc9ad4 -r 023827894687 lisp/find-file.el --- a/lisp/find-file.el Tue Aug 09 02:52:39 2005 +0000 +++ b/lisp/find-file.el Tue Aug 09 02:53:00 2005 +0000 @@ -944,6 +944,9 @@ ;; bind with (setq ff-pre-load-hook 'ff-which-function-are-we-in) ;; +(defvar ada-procedure-start-regexp) +(defvar ada-package-start-regexp) + (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'."