From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Aug 1995 20:43:35 +0000 (+0000)
Subject: (ada-spec-suffix): Definition deleted.
X-Git-Tag: emacs-19.34~2911
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=903a238c6189a56ad148bb09c288aa4d6526a14b;p=emacs.git

(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.
---

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