# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1263473827 -3600
# Node ID 7fd22a65b1a9733c3ef6ec603499dcd4abfa2c74
# Parent  4ff0e607507d7a9c9f6c32a1925956295141c66b
* progmodes/ada-mode.el: Override `narrow-to-defun' with `ada-narrow-to-defun'.

diff -r 4ff0e607507d -r 7fd22a65b1a9 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 14 13:52:37 2010 +0100
+++ b/lisp/ChangeLog	Thu Jan 14 13:57:07 2010 +0100
@@ -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 -r 4ff0e607507d -r 7fd22a65b1a9 lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Thu Jan 14 13:52:37 2010 +0100
+++ b/lisp/progmodes/ada-mode.el	Thu Jan 14 13:57:07 2010 +0100
@@ -4568,6 +4568,8 @@
 
   (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)))