[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-xref.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/ada-xref.el
diff -c emacs/lisp/progmodes/ada-xref.el:1.9 
emacs/lisp/progmodes/ada-xref.el:1.10
*** emacs/lisp/progmodes/ada-xref.el:1.9        Tue Apr  9 14:54:20 2002
--- emacs/lisp/progmodes/ada-xref.el    Sat Apr 27 23:17:51 2002
***************
*** 7,13 ****
  ;;      Rolf Ebert <address@hidden>
  ;;      Emmanuel Briot <address@hidden>
  ;; Maintainer: Emmanuel Briot <address@hidden>
! ;; Ada Core Technologies's version:   $Revision: 1.9 $
  ;; Keywords: languages ada xref
  
  ;; This file is part of GNU Emacs.
--- 7,13 ----
  ;;      Rolf Ebert <address@hidden>
  ;;      Emmanuel Briot <address@hidden>
  ;; Maintainer: Emmanuel Briot <address@hidden>
! ;; Ada Core Technologies's version:   $Revision: 1.10 $
  ;; Keywords: languages ada xref
  
  ;; This file is part of GNU Emacs.
***************
*** 620,630 ****
        )
      
      ;; for Emacs
!     (let* ((menu         (lookup-key ada-mode-map [menu-bar Ada]))
!          (edit-menu    (lookup-key ada-mode-map [menu-bar Ada Edit]))
!          (help-menu    (lookup-key ada-mode-map [menu-bar Ada Help]))
!          (goto-menu    (lookup-key ada-mode-map [menu-bar Ada Goto]))
!          (options-menu (lookup-key ada-mode-map [menu-bar Ada Options])))
  
        (define-key-after menu [Check] '("Check file" . ada-check-current)
        'Customize)
--- 620,630 ----
        )
      
      ;; for Emacs
!     (let* ((menu         (lookup-key ada-mode-map [menu-bar ada]))
!          (edit-menu    (lookup-key ada-mode-map [menu-bar ada edit]))
!          (help-menu    (lookup-key ada-mode-map [menu-bar ada help]))
!          (goto-menu    (lookup-key ada-mode-map [menu-bar ada goto]))
!          (options-menu (lookup-key ada-mode-map [menu-bar ada options])))
  
        (define-key-after menu [Check] '("Check file" . ada-check-current)
        'Customize)