From 80e18d20ec6a73b417c9ec4d18e433d1cff5a95f Mon Sep 17 00:00:00 2001 From: Stephen Leake Date: Thu, 14 Jan 2010 13:57:07 +0100 Subject: [PATCH] * progmodes/ada-mode.el: Override `narrow-to-defun' with `ada-narrow-to-defun'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/ada-mode.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1be10bb17cd..a5d84bee787 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-01-14 Stephen Leake 2 + + * progmodes/ada-mode.el (ada-create-keymap): + Override `narrow-to-defun' with `ada-narrow-to-defun'. + 2010-01-14 Stephen Leake * 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 b25e54018fa..2b94fdb25ff 100644 --- 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))) -- 2.39.2