(ada-xref-initialize): Fix call to add-hook.

1 files changed, 6 insertions, 5 deletions

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 4fc9f3c432..6c3807a988 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -6,7 +6,7 @@
 ;;      Rolf Ebert <[email protected]>
 ;;      Emmanuel Briot <[email protected]>
 ;; Maintainer: Emmanuel Briot <[email protected]>
-;; Ada Core Technologies's version:   $Revision: 1.6 $
+;; Ada Core Technologies's version:   $Revision: 1.7 $
 ;; Keywords: languages ada xref
 
 ;; This file is part of GNU Emacs.
@@ -179,7 +179,7 @@ Emacs session.")
 (defvar ada-xref-project-files '()
   "Associative list of project files.
 It has the following format:
-((project_name . value) (project_name . value) ...)
+\((project_name . value) (project_name . value) ...)
 As always, the values of the project file are defined through properties.")
 
 (defvar ada-prj-prj-file nil
@@ -1927,16 +1927,17 @@ This function typically is to be hooked into `ff-file-created-hooks'."
 
 
 (defun ada-xref-initialize ()
-  "Function called by ada-mode-hook to initialize the ada-xref.el package.
-For instance, it creates the gnat-specific menus, set some hooks for
+  "Function called by `ada-mode-hook' to initialize the ada-xref.el package.
+For instance, it creates the gnat-specific menus, sets some hooks for
 find-file...."
   (make-local-hook 'ff-file-created-hooks)
+  ;; This should really be an `add-hook'.  -stef
   (setq ff-file-created-hooks 'ada-make-body-gnatstub)
 
   ;; Read the project file and update the search path
   ;; before looking for the other file
   (make-local-hook 'ff-pre-find-hooks)
-  (add-hook 'ff-pre-find-hooks 'ada-require-project-file)
+  (add-hook 'ff-pre-find-hooks 'ada-require-project-file nil t)
 
   ;; Completion for file names in the mini buffer should ignore .ali files
   (add-to-list 'completion-ignored-extensions ".ali")