(ff-special-constructs): Delete the Ada entry.

diff --git a/lisp/find-file.el b/lisp/find-file.el
index 259a85fa62ae008ef5f9a0437bfc936e118d7029..0831b1642721c48456edc41ce4a4053dc9091935 100644 (file)
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -188,14 +188,6 @@ To override this, give an argument to `ff-find-other-file'."
     ("^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" .
      (lambda ()
        (setq fname (buffer-substring (match-beginning 2) (match-end 2)))))
-
-    ;; Ada import
-    ("^with[ \t]+\\([a-zA-Z0-9_\\.]+\\)" .
-     (lambda ()
-       (setq fname (buffer-substring (match-beginning 1) (match-end 1)))
-       (require 'ada-mode)
-       (setq fname (concat (ada-make-filename-from-adaname fname)
-                          ada-spec-suffix))))
     )
   "*A list of regular expressions for `ff-find-file'.
 Specifies how to recognise special constructs such as include files
@@ -944,8 +936,6 @@ and the name of the file passed in."
 
 (defvar ff-function-name nil "Name of the function we are in.")
 
-;(eval-when-compile (require 'ada-mode))
-
 ;; bind with (setq ff-pre-load-hook 'ff-which-function-are-we-in)
 ;;
 (defun ff-which-function-are-we-in ()