# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865281529 0
# Node ID f7cc7a56414c7b038601c730a93bcbaccfd70f0b
# Parent  5b0dfe8c78fbc7392523f9d8aacf86f0b25ff3ff
Finish installing previous change.

diff -r 5b0dfe8c78fb -r f7cc7a56414c lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Mon Jun 02 18:30:21 1997 +0000
+++ b/lisp/progmodes/ada-mode.el	Mon Jun 02 19:58:49 1997 +0000
@@ -605,7 +605,16 @@
             nil t
             ((?\_ . "w")(?\. . "w"))
             beginning-of-line
-            (font-lock-syntactic-keywords . ada-font-lock-syntactic-keywords))))
+            (font-lock-syntactic-keywords . ada-font-lock-syntactic-keywords)))
+
+    ;; Set up support for find-file.el.
+    (make-variable-buffer-local 'ff-other-file-alist)
+    (make-variable-buffer-local 'ff-search-directories)
+    (setq ff-other-file-alist   'ada-other-file-alist
+          ff-search-directories 'ada-search-directories
+          ff-pre-load-hooks     'ff-which-function-are-we-in
+          ff-post-load-hooks    'ff-set-point-accordingly
+          ff-file-created-hooks 'ada-make-body))
 
   (setq major-mode 'ada-mode)
   (setq mode-name "Ada")