[Emacs-diffs] /srv/bzr/emacs/trunk r99326: * progmodes/ada-mode.el: Override `narrow-to-defun' with `ada-narrow-to-defun'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 99326
author: Stephen Leake <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2010-01-14 13:57:07 +0100
message:
  * progmodes/ada-mode.el: Override `narrow-to-defun' with 
`ada-narrow-to-defun'.
modified:
  lisp/ChangeLog
  lisp/progmodes/ada-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-14 12:52:37 +0000
+++ b/lisp/ChangeLog    2010-01-14 12:57:07 +0000
@@ -1,3 +1,8 @@
+2010-01-14  Stephen Leake  <address@hidden>2
+
+       * progmodes/ada-mode.el (ada-create-keymap):
+       Override `narrow-to-defun' with `ada-narrow-to-defun'.
+
 2010-01-14  Stephen Leake  <address@hidden>
 
        * progmodes/ada-mode.el: Deal with Ada 2005 "overriding" keyword.

=== modified file 'lisp/progmodes/ada-mode.el'
--- a/lisp/progmodes/ada-mode.el        2010-01-14 12:52:37 +0000
+++ b/lisp/progmodes/ada-mode.el        2010-01-14 12:57:07 +0000
@@ -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)))