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 | b491324ef60344f658a724185aa3b5bb05c9e225 (patch) | |
| tree | dbd833cc1b895b016f2a7c1f079de5425fcaa268 | |
| parent | 8a9673dbe81d94c623852146c0dd9a17bb9712fe (diff) | |
| download | emacs-b491324ef60344f658a724185aa3b5bb05c9e225.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") |