diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-16 13:38:53 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-16 13:38:53 +0000 |
| commit | fea245718b5d52284505f5e06668bacb7a0932db (patch) | |
| tree | 6009eac51ec9655ea3451deeff3d944214c2e41d /lisp/progmodes/ada-xref.el | |
| parent | 3ddfb687f9201df39f58c8de08bc72bfda547342 (diff) | |
| download | emacs-fea245718b5d52284505f5e06668bacb7a0932db.tar.gz emacs-fea245718b5d52284505f5e06668bacb7a0932db.tar.bz2 emacs-fea245718b5d52284505f5e06668bacb7a0932db.zip | |
(ada-xref-initialize): Fix call to add-hook.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 11 |
1 files 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 <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 @@ 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") |