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

1 files changed, 0 insertions, 10 deletions

diff --git a/lisp/find-file.el b/lisp/find-file.el
index 259a85fa62a..0831b164272 100644
--- 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 ()