From fbf2dd6136e97f2d933753689609568c46ef005f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 19 May 2003 14:46:49 +0000 Subject: [PATCH] (ff-special-constructs): Delete the Ada entry. --- lisp/find-file.el | 10 ---------- 1 file changed, 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 () -- 2.39.2