* progmodes/ada-mode.el: Override `narrow-to-defun' with `ada-narrow-to-defun'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1be10bb17cd294b402e59661c8bcc51a7b29a13b..a5d84bee7873f56576ed2126f2478ef2a301e7e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>2
+
+       * progmodes/ada-mode.el (ada-create-keymap):
+       Override `narrow-to-defun' with `ada-narrow-to-defun'.
+
 2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>
 
        * progmodes/ada-mode.el: Deal with Ada 2005 "overriding" keyword.

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b25e54018fa1860eddcf3ccee72225585681511f..2b94fdb25ff65f92d1771066a015adf8323b8800 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -4568,6 +4568,8 @@ Moves to 'begin' if in a declarative part."
 
   (define-key ada-mode-extra-map "u"  'ada-prj-edit)
 
+  (define-key ada-mode-map "\C-xnd" 'ada-narrow-to-defun); override narrow-to-defun
+
   ;;  The templates, defined in ada-stmt.el
 
   (let ((map (make-sparse-keymap)))