Mercurial > emacs
comparison lisp/progmodes/ada-xref.el @ 47745:36d9421bf776
(ada-xref-update-project-menu,ada-add-ada-menu): Handle the menu
pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
author | Markus Rost <rost@math.uni-bielefeld.de> |
---|---|
date | Thu, 03 Oct 2002 18:21:02 +0000 |
parents | dd1d952f59c2 |
children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
47744:1b89f0ef4d72 | 47745:36d9421bf776 |
---|---|
473 ;; Parses all the known project files, and insert at least the default | 473 ;; Parses all the known project files, and insert at least the default |
474 ;; one (in case ada-xref-project-files is nil) | 474 ;; one (in case ada-xref-project-files is nil) |
475 (or ada-xref-project-files '(nil))) | 475 (or ada-xref-project-files '(nil))) |
476 | 476 |
477 (if (not ada-xemacs) | 477 (if (not ada-xemacs) |
478 (if (lookup-key ada-mode-map [menu-bar Ada Project]) | 478 (if (and (lookup-key ada-mode-map [menu-bar Ada]) |
479 (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) | 479 (lookup-key ada-mode-map [menu-bar Ada Project])) |
480 submenu))) | 480 (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) |
481 )) | 481 submenu) |
482 (if (lookup-key ada-mode-map [menu-bar ada Project]) | |
483 (setcdr (lookup-key ada-mode-map [menu-bar ada Project]) | |
484 submenu)))) | |
485 )) | |
482 | 486 |
483 | 487 |
484 ;;------------------------------------------------------------- | 488 ;;------------------------------------------------------------- |
485 ;;-- Searching a file anywhere on the source path. | 489 ;;-- Searching a file anywhere on the source path. |
486 ;;-- | 490 ;;-- |
723 (lambda()(interactive) | 727 (lambda()(interactive) |
724 (setq ada-tight-gvd-integration | 728 (setq ada-tight-gvd-integration |
725 (not ada-tight-gvd-integration))) | 729 (not ada-tight-gvd-integration))) |
726 :button (:toggle . ada-tight-gvd-integration)) t)) | 730 :button (:toggle . ada-tight-gvd-integration)) t)) |
727 | 731 |
728 (define-key ada-mode-map [menu-bar Ada Edit rem3] '("------------" . nil)) | 732 (define-key edit-menu [rem3] '("------------" . nil)) |
729 (define-key ada-mode-map [menu-bar Ada Edit open-file-from-src-path] | 733 (define-key edit-menu [open-file-from-src-path] |
730 '("Search File on source path..." . ada-find-file)) | 734 '("Search File on source path..." . ada-find-file)) |
731 ) | 735 ) |
732 ) | 736 ) |
733 (ada-xref-update-project-menu) | 737 (ada-xref-update-project-menu) |
734 ) | 738 ) |