From 903a238c6189a56ad148bb09c288aa4d6526a14b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Aug 1995 20:43:35 +0000 Subject: [PATCH] (ada-spec-suffix): Definition deleted. (ada-make-filename-from-adaname): Delete autoload. (ff-special-constructs): Load ada-mode before referring to ada-spec-suffix and ada-make-filename-from-adaname. --- lisp/find-file.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/find-file.el b/lisp/find-file.el index fe255f9ea96..c9fc0b80645 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el @@ -169,8 +169,9 @@ To override this, give an argument to `ff-find-other-file'.") ("^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)))) + ada-spec-suffix)))) ) "*A list of regular expressions specifying how to recognise special constructs such as include files etc, and an associated method for @@ -252,13 +253,6 @@ specified in `ada-search-directories'. If a file is not found, a new one is created with the first matching extension (`.adb' yields `.ads'). ") -;;;### autoload -(autoload 'ada-make-filename-from-adaname "ada-mode" - "Determine the filename of a package/procedure from its own Ada name.") -(defvar ada-spec-suffix ".ads" - "*Suffix of Ada specification files.") -(make-variable-buffer-local 'ada-spec-suffix) - (defvar modula2-other-file-alist '( ("\\.mi$" (".md")) ;; Modula-2 module definition -- 2.39.2