diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-02 19:58:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-02 19:58:49 +0000 |
| commit | c69dd504e58c92933d2eb1a83398b1a2e16ce05a (patch) | |
| tree | d3290abb5772594668bdabadfc68fcf568d419a8 | |
| parent | 1863bbf89490cfae806e9598a7ed4525cb7e0c08 (diff) | |
| download | emacs-c69dd504e58c92933d2eb1a83398b1a2e16ce05a.tar.gz | |
Finish installing previous change.
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 99b4f8659c2..32a373a6f36 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -605,7 +605,16 @@ If you use ada-xref.el: nil t ((?\_ . "w")(?\. . "w")) beginning-of-line - (font-lock-syntactic-keywords . ada-font-lock-syntactic-keywords)))) + (font-lock-syntactic-keywords . ada-font-lock-syntactic-keywords))) + + ;; Set up support for find-file.el. + (make-variable-buffer-local 'ff-other-file-alist) + (make-variable-buffer-local 'ff-search-directories) + (setq ff-other-file-alist 'ada-other-file-alist + ff-search-directories 'ada-search-directories + ff-pre-load-hooks 'ff-which-function-are-we-in + ff-post-load-hooks 'ff-set-point-accordingly + ff-file-created-hooks 'ada-make-body)) (setq major-mode 'ada-mode) (setq mode-name "Ada") |