[Emacs-diffs] Changes to emacs/lisp/find-file.el

[Richard M. Stallman]

Index: emacs/lisp/find-file.el
diff -c emacs/lisp/find-file.el:1.22 emacs/lisp/find-file.el:1.23
*** emacs/lisp/find-file.el:1.22        Tue Feb  4 06:19:31 2003
--- emacs/lisp/find-file.el     Mon May 19 10:46:49 2003
***************
*** 188,201 ****
      ("^\#\\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
--- 188,193 ----
***************
*** 943,950 ****
  ;; The regexps are Ada specific.
  
  (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)
  ;;
--- 935,940 ----