diff options
Diffstat (limited to 'lisp/find-file.el')
| -rw-r--r-- | lisp/find-file.el | 10 |
1 files 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 |