Mercurial > emacs

changeset 18126:f7cc7a56414c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish installing previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Jun 1997 19:58:49 +0000
parents 5b0dfe8c78fb
children 6316f98dda40
files lisp/progmodes/ada-mode.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el	Mon Jun 02 18:30:21 1997 +0000
+++ b/lisp/progmodes/ada-mode.el	Mon Jun 02 19:58:49 1997 +0000
@@ -605,7 +605,16 @@
             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")