Mercurial > emacs
comparison lisp/find-file.el @ 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 | 7318536fb256 |
| children | d23e1ac7b432 |
comparison
equal
deleted
inserted
replaced
| 12948:052c1dfa4efa | 12949:f6e5a73b96e4 |
|---|---|
| 167 | 167 |
| 168 ;; Ada import | 168 ;; Ada import |
| 169 ("^with[ \t]+\\([a-zA-Z0-9_\\.]+\\)" . | 169 ("^with[ \t]+\\([a-zA-Z0-9_\\.]+\\)" . |
| 170 (lambda () | 170 (lambda () |
| 171 (setq fname (buffer-substring (match-beginning 1) (match-end 1))) | 171 (setq fname (buffer-substring (match-beginning 1) (match-end 1))) |
| 172 (require 'ada-mode) | |
| 172 (setq fname (concat (ada-make-filename-from-adaname fname) | 173 (setq fname (concat (ada-make-filename-from-adaname fname) |
| 173 ada-spec-suffix)))) | 174 ada-spec-suffix)))) |
| 174 ) | 175 ) |
| 175 "*A list of regular expressions specifying how to recognise special | 176 "*A list of regular expressions specifying how to recognise special |
| 176 constructs such as include files etc, and an associated method for | 177 constructs such as include files etc, and an associated method for |
| 177 extracting the filename from that construct.") | 178 extracting the filename from that construct.") |
| 178 | 179 |
| 249 This list should contain the most used extensions before the others, | 250 This list should contain the most used extensions before the others, |
| 250 since the search algorithm searches sequentially through each directory | 251 since the search algorithm searches sequentially through each directory |
| 251 specified in `ada-search-directories'. If a file is not found, a new one | 252 specified in `ada-search-directories'. If a file is not found, a new one |
| 252 is created with the first matching extension (`.adb' yields `.ads'). | 253 is created with the first matching extension (`.adb' yields `.ads'). |
| 253 ") | 254 ") |
| 254 | |
| 255 ;;;### autoload | |
| 256 (autoload 'ada-make-filename-from-adaname "ada-mode" | |
| 257 "Determine the filename of a package/procedure from its own Ada name.") | |
| 258 (defvar ada-spec-suffix ".ads" | |
| 259 "*Suffix of Ada specification files.") | |
| 260 (make-variable-buffer-local 'ada-spec-suffix) | |
| 261 | 255 |
| 262 (defvar modula2-other-file-alist | 256 (defvar modula2-other-file-alist |
| 263 '( | 257 '( |
| 264 ("\\.mi$" (".md")) ;; Modula-2 module definition | 258 ("\\.mi$" (".md")) ;; Modula-2 module definition |
| 265 ("\\.md$" (".mi")) ;; and implementation. | 259 ("\\.md$" (".mi")) ;; and implementation. |