Mercurial > emacs
changeset 12949:f6e5a73b96e4
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Aug 1995 20:43:35 +0000 |
| parents | 052c1dfa4efa |
| children | 83fea4c633e8 |
| files | lisp/find-file.el |
| diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-file.el Sat Aug 26 20:31:16 1995 +0000 +++ b/lisp/find-file.el Sat Aug 26 20:43:35 1995 +0000 @@ -169,8 +169,9 @@ ("^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 @@ 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