diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-26 20:43:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-26 20:43:35 +0000 |
| commit | 903a238c6189a56ad148bb09c288aa4d6526a14b (patch) | |
| tree | 3953f7bc559402ab99280092dd5e7ddd5b291a88 /lisp/find-file.el | |
| parent | 44fad1233b99cbab03558e53a73b8eccf894e48c (diff) | |
| download | emacs-903a238c6189a56ad148bb09c288aa4d6526a14b.tar.gz | |
(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.
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 |