Mercurial > emacs
changeset 38441:ceb40bd97a77
(ada-xref-initialize): Fix call to add-hook.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 16 Jul 2001 13:38:53 +0000 |
| parents | 9967daaa0231 |
| children | 086300440396 |
| files | lisp/progmodes/ada-xref.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-xref.el Mon Jul 16 13:16:47 2001 +0000 +++ b/lisp/progmodes/ada-xref.el Mon Jul 16 13:38:53 2001 +0000 @@ -6,7 +6,7 @@ ;; Rolf Ebert <ebert@inf.enst.fr> ;; Emmanuel Briot <briot@gnat.com> ;; Maintainer: Emmanuel Briot <briot@gnat.com> -;; 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 @@ (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 @@ (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")