# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1053355609 0
# Node ID 0a061fbe2420cc56d202c75a6ab4af393bdc2d5f
# Parent  8b14c07986ec179d5205a4380c9105865848309e
(ff-special-constructs): Delete the Ada entry.

diff -r 8b14c07986ec -r 0a061fbe2420 lisp/find-file.el
--- a/lisp/find-file.el	Mon May 19 14:46:06 2003 +0000
+++ b/lisp/find-file.el	Mon May 19 14:46:49 2003 +0000
@@ -188,14 +188,6 @@
     ("^\#\\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 @@
 
 (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 ()