From fea245718b5d52284505f5e06668bacb7a0932db Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 16 Jul 2001 13:38:53 +0000 Subject: [PATCH] (ada-xref-initialize): Fix call to add-hook. --- lisp/progmodes/ada-xref.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 4fc9f3c4322..6c3807a9886 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -6,7 +6,7 @@ ;; Rolf Ebert ;; Emmanuel Briot ;; Maintainer: Emmanuel Briot -;; 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") -- 2.39.2